Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!
Dim a As Data
Dim b As Data
Private Sub command2_click()
If Text1 = "" Then
MsgBox "Bir Tarih Girin"
Exit Sub
End If
a = Text1
b = Text2
Text3 = Val(DateDiff("d", a, b)) 'Burada Kaç Gün Yaşadığınız Hesaplanıyor.
End Sub
Private Sub form_load()
Text2.Enabled = False 'Şimdi Tarih değeri soluk yapılıyor
Text2 = Date 'Bilgi sayar tarihi yazdırılıyor
End Sub
Dim b As Data
Private Sub command2_click()
If Text1 = "" Then
MsgBox "Bir Tarih Girin"
Exit Sub
End If
a = Text1
b = Text2
Text3 = Val(DateDiff("d", a, b)) 'Burada Kaç Gün Yaşadığınız Hesaplanıyor.
End Sub
Private Sub form_load()
Text2.Enabled = False 'Şimdi Tarih değeri soluk yapılıyor
Text2 = Date 'Bilgi sayar tarihi yazdırılıyor
End Sub
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
