LCDatetime の GetDiff メソッド

このメソッドにより、2 つの LCDatetime オブジェクトの値の差を求めます。

定義位置

LCDatetime

構文

difference = lcDatetime.GetDiff (baseDatetime, Units)

パラメータ

パラメータ	説明
baseDatetime	LCDatetime。lcDatetime オブジェクトと比較する日時オブジェクトです。
Units	Long。比較する単位。単位の順序は、コンストラクタで定義するとおりです (Year、Month、Day、Hour、Minute、Second、Hundredth、Zone、DST)。次の定数を使用します。
	LCDTUNIT_YEAR -- 年単位
	LCDTUNIT_MONTH -- 月単位
	LCDTUNIT_DAY -- 日単位
	LCDTUNIT_WEEKDAY -- 曜日単位
	LCDTUNIT_HOUR -- 時間単位
	LCDTUNIT_MINUTE -- 分単位
	LCDTUNIT_SECOND -- 秒単位
	LCDTUNIT_HUNDREDTH -- 100 分の 1 秒単位
	LCDTUNIT_ZONE -- タイムゾーン単位

戻り値

値	説明
difference	2 つの LCDatetime オブジェクトの差を指定の単位で表した値

2 つのオブジェクトが比較に適していない場合 (一方のオブジェクトの内容が日付のみで、他方の内容が時刻のみの場合)、または内容が日付のみのオブジェクトの差を日数より小さい単位で求めた場合は、値はゼロとなります。

例

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

出力例

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