Function To Get the Difference between 2 Dates in different Formats.
Purpose : Function To Get the Difference between 2 Dates .
In the Form of : Day ,DayOfYear ,Hour,Minute,Month,Quarter Second,Weekday,WeekOfYear,Year
' Use : DateInterval.Day / DateInterval.DayOfYear ....
Public Sub DateDifference()
Dim DateDiffVal As Long
DateDiffVal = DateDiff(DateInterval.Year, DateTimePicker1.Value, DateTimePicker2.Value)
MsgBox("Date Difference Is : " & DateDiffVal, MsgBoxStyle.DefaultButton1, "Information")
End Sub