GetDiff Method for LCDatetime

This method gets the difference between the values of two LCDatetime objects.

Defined In

LCDatetime

Syntax

difference = lcDatetime.GetDiff (baseDatetime, Units)

Parameters


Parameter	Description
baseDatetime	LCDatetime. The datetime object to which you want to compare the lcDatetime object.
Units	Long. The units to compare. Units are in the order listed in the constructor: Year, Month, Day, Hour, Minute, Second, Hundredth, Zone, DST. Use the following constants:
	LCDTUNIT_YEAR -- Year units.
	LCDTUNIT_MONTH -- Month units.
	LCDTUNIT_DAY -- Day units.
	LCDTUNIT_WEEKDAY -- Weekday units.
	LCDTUNIT_HOUR -- Hour units.
	LCDTUNIT_MINUTE -- Minute units.
	LCDTUNIT_SECOND -- Second units.
	LCDTUNIT_HUNDREDTH -- Hundredth of second units.
	LCDTUNIT_ZONE -- Time zone units.

Return Value


Value	Description
difference	The difference between the two LCDatetime objects, in the units specified.

If the objects are incompatible for comparison (that is, if one contains only a date and one contains only a time), or if they are date-only values and you ask for a difference in units less than days, the value will be zero.

Example

Option Public
Uselsx "*lsxlc"  
Sub Initialize
  Dim Boston As New LCDateTime _
  (1998, 1, 25,  08, 50, 00, 00,  -5,  True)
  Dim Singapore As New LCDateTime _
  (1998, 1, 27, 1, 10, 00, 00, 8, False)
  Print "A flight taking off from Boston at 8:50am"
  Print "and landing in Singapore at 1:10am"
  Print "will take " & Singapore.GetDiff (Boston, LCDTUNIT_HOUR) & " hours."
End Sub

Example Output

A flight taking off from Boston at 8:50am and landing in Singapore at 1:10am will take 27 hours.