DateIff Kullanımı

İki tarih arasında ne kadar süre geçtiğini yıl, ay, gün, saat, dakika, saniye bazlı hesaplayan küçük bir program yapalım.

Screenshot 

    Şekil 1

    Şekil2

   Şekil3

Form1.vb

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim tarih1, tarih2 As Date

        tarih1 = Date.Now

        'tarih2 = "6.10.2012"

        tarih2 = DateTimePicker1.Text

        'girilen tarihten şu anki tarihe kadar geçen veya kalan zamanı mesaj olarak yazdıracağız.

        If tarih1 > tarih2 Then

 MessageBox.Show("Geçen Yıl: " & DateDiff(DateInterval.Year, tarih1, tarih2) & " yıl" _

 & vbCrLf & "Geçen Ay: " &DateDiff(DateInterval.Month, tarih1, tarih2) & " ay" _

 & vbCrLf & "Geçen Gün: " &DateDiff(DateInterval.Day, tarih1, tarih2) & " gün" _

 & vbCrLf & "Geçen Dakika: "& DateDiff(DateInterval.Minute, tarih1, tarih2) & " dakika" _

 & vbCrLf & "Geçen Saniye: "& DateDiff(DateInterval.Second, tarih1, tarih2) & " saniye")

       

Else

MessageBox.Show("Kalan Yıl: " & DateDiff(DateInterval.Year, tarih1, tarih2) & " yıl" _

&vbCrLf & "Kalan Ay: " & DateDiff(DateInterval.Month, tarih1, tarih2) & " ay" _

&vbCrLf & "Kalan Gün: " & DateDiff(DateInterval.Day, tarih1, tarih2) & " gün" _

&vbCrLf & "Kalan Dakika: " & DateDiff(DateInterval.Minute, tarih1, tarih2) & " dakika" _

&vbCrLf & "Kalan Saniye: " & DateDiff(DateInterval.Second, tarih1, tarih2) & " saniye")

        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Label2.Text = Date.Now

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.