Belajar Logika dan Pemrograman

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DtpTglPertama.Format = DateTimePickerFormat.Custom
DtpTglPertama.CustomFormat = "dd-MMMM-yyyy"
DtpTglKedua.Format = DateTimePickerFormat.Custom
DtpTglKedua.CustomFormat = "dd-MMMM-yyyy"


End Sub

Private Sub BtnSelisih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSelisih.Click
Dim TglPertama, TglKedua As Date
TglPertama = Format(DtpTglPertama.Value, "dd-MMMM-yyyy")
TglKedua = Format(DtpTglKedua.Value, "dd-MMMM-yyyy")
LblSelisih.Text = Math.Abs(DateDiff(DateInterval.Day, TglPertama, TglKedua)) & " Hari"

End Sub
End Class