HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. 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
