Böylece doğru sandığımız, ama yanlış bildiğimiz konuların farkına varabiliriz.
Bu cümle kimseye yönelik değil, genel olarak fikrimdir.
While şartını biliyorum, konu birinin nüfüsunu diğeri geçme ile ilgiliymiş, benim aklımda kaç yılda yetişir diye kalmış.
Bu durumda While şartına "=" operatörünü de ekleyebiliriz.
Ama sonuç yine 54. Ben 54 yılda ısrarlıyım, var mı arttıran
Kod:
Sub Hesapla()
Dim Urfa As Integer, Antep As Integer, Yil As Byte
Urfa = 450
Antep = 850
Do While Urfa <= Antep
Yil = Yil + 1
Urfa = Urfa * 1.025
Antep = Antep * 1.013
Loop
MsgBox "Urfa nüfüsu Antep nüfusunu " & Yil & " sonra geçecektir.", vbInformation, "İşlem Sonucu"
End Sub