* * HELP & MANUAL PREMIUM PACK 4 DEMO VERSION * *
This documentation was styled with a demo skin from the Premium Pack 4 add-on for Help & Manual. The contents of the skin are encrypted and not configurable. You can only publish HM projects with this skin. You cannot edit it or change it.
This version is copyright and may only be used for local testing purposes. It may not be distributed.
Please purchase the full version of the Premium Pack to get the configurable skins and remove this notice. The package will also include the Toolbox configuration utility for Premium Pack skins.
Description
Compares two cDateTime object's date & time perspective separately.
Syntax
<cDateTime>.Diff(otherCDateTime)
Returns
None.
Parameters
Name |
Type |
Optional |
Meaning |
otherCDateTime |
cDateTime |
No |
Other cDateTime object to compare. |
Remarks
Restrictions
See also
Examples
' Create an object with current date and time
Dim firstDateTime As New cDateTime
' Set its values
firstDateTime.NewDate(2020, 12, 24)
firstDateTime.NewTime(20, 0, 0)
' Create another object with current date and time
Dim secondDateTime As New cDateTime
' Set its values
secondDateTime.NewDate(2021, 11, 25)
secondDateTime.NewTime(22, 30, 45)
Dim diffDate As DateInterval
' Calculate difference in dates and hours - separately
diffDate = firstDateTime.Diff(secondDateTime)
' Display difference - in this case it will be:
' 0 years, 11 months and 1 days
' 8066 hours, 30 minutes, 45 seconds, 0 miliseconds
' The value for hours might be a surprise, but it simply converts all the days between two dates to hours
MsgBox 0, "Years: " + diffDate.Years + $CRLF +
"Months: " + diffDate.Months + $CRLF +
"Days: " + diffDate.Days + $CRLF +
"Hours: " + diffDate.Hours + $CRLF +
"Minutes: " + diffDate.Minutes + $CRLF +
"Seconds: " + diffDate.Seconds + $CRLF +
"Milliseconds:" + diffDate.Mseconds + $CRLF
