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



İyi günler.