DevPC

büyük tarihten küçük tarihi çıkararak arada kaç gün kaldığını hesaplıyor.



Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Me.Text = DateDiff(DateInterval.Day, d1.Value, d2.Value)
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
d1.Value = "1985-06-14"
End Sub


Detay açıklama:
datedifff(sonuç ne olarak bildirilsin seçeneği gün,ay veya yıl istenebilir , büyük tarih, küçük tarih)
dateinterval.day => gün olarak sonuç istiyorsak
dateinterval.mount => ay olarak sonuç istiyorsak
dateinterval.year => yıl olarak sonuç istiyorsak