QBasic Girilen Doğum Tarihine Göre Ne Zamandır Yaşıyorum

QBasic Girilen Doğum Tarihine Göre Ne Zamandır Yaşıyorum

QBasic programı gelişim aşamasında  zaman zaman karşımıza qbasic girilen doğum tarihine göre kaç yıl, kaç ay, kaç gündür yaşıyorum programı nasıl yapılır sorusu çıkıyor.

Bu kodlar ile birlikte qbasic programında girilen doğum tarihine göre kaç yıl, kaç ay, kaç gündür yaşıyorum hesabını kolayca yapabileceksiniz.

 

QBasic Girilen Doğum Tarihine Göre Ne Zamandır Yaşıyorum

INPUT "Dogum tarihinizi giriniz:"; dogumtarihi$
bugununtarihi$ = DATE$
dgun = VAL(LEFT$(dogumtarihi$, 2))
day = VAL(MID$(dogumtarihi$, 4, 2))
dyil = VAL(RIGHT$(dogumtarihi$, 4))

bgun = VAL(MID$(bugununtarihi$, 4, 2))
bay = VAL(LEFT$(bugununtarihi$, 2))
byil = VAL(RIGHT$(bugununtarihi$, 4))

yyil = byil - dyil
yay = bay - day
IF yay > 0 THEN yay = yay + 12: yyil = yyil - 1
ygun = bgun - dgun
IF ygun > 0 THEN ygun = ygun + 30: yay = yay - 1
PRINT "Su anda"; yyil; "yil"; yay; "ay"; ygun; "gundur yasiyorsunuz"
END

 

 

Sizlerde kendi yazdığınız programları, istek ve sorularınızı bizlere iletişim kısmından iletebilirsiniz.

QBasic ile ilgili kavramlara ek olarak, QBasic öğrenimini teşvik etmek için karar verme ve döngü kontrolleri dahil olmak üzere bazı örnekler ve örnek uygulamalar vardır.
Diğer örneklere de göz atabilirsiniz:
İlk olarak; 
Rastgele 10 Adet Sayıyı Büyükten Küçüğe Sıralama 
Tc Kimliğin Son 2 Hanesini Bulma
Rastgele 10 Adet Sayıdan En Büyüğünü Ve En Küçüğünü Bulan Program 
Asal Sayı 
Son olarak; 
1-100 Arası Kaç Adet 9 Olduğunu Bulan Program
Kodlarda herhangi bir problem olduğunda lütfen yorum kısmından iletişime geçiniz.

 

 

 

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.