#1
|
||||
|
||||
Hangi Gün Doğduğunuzu ve Kaç Günlük Olduğunuzu Öğrenin
Hangi Gün Doğduğunuzu Öğrenin
Önce yapmamız gereken 1 textbox, 1 label ve 1 buton Button_Click olayına --------------- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = FormatDateTime(TextBox1.Text, DateFormat.LongDate) End Sub --------------- proğramı çalıştırıp texte doğum gününüzü gün/ay/yıl (28/01/1991) olarak yazıp butona basarak hangi günde doğduğunuzu öğrenebilirsiniz... _____________________________ Kaç Günlük Olduğunuzu Öğrenin Burada yapmamız gereken 2 textbox ve 1 buton Button_Click olayına --------------- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim tarih1, tarih2 As Date tarih1 = "#" & TextBox1.Text & "#" tarih2 = "#" & TextBox2.Text & "#" MsgBox(DateDiff(DateInterval.Day, tarih1, tarih2) & " günlüksünüz") End Sub --------------- Proğramı çalıştırıp 1.texte doğduğunuz günü, 2.texte bugünün tarihini yazıp butona tıklamanız yeterli...Kaç gündür hayatta olduğunuzu öğrenmek için... |
Benzer Konular |
||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Erdoğan suçlu, Peres olgun adammış! | HaZzAn | Dünyadan Haberler | 0 | 30 January 2009 07:58 |