null 値の Datetime オブジェクトを作成する

「null」の LCDatetime 値とは、テキストが "" である値です。このような値を取得するには次の 3 つの方法があります。

• コンストラクタの引数が指定せずに、New LCDatetime 構文を使用する。null の日付/時刻値を返される。
• LCDatetime の Text プロパティ (書き込み可能) を "" に設定する。
• Clear メソッドを使用する。

次のサンプルコードは、上記の 3 つの方法を示しています。

Sub Click(Source As Button)
	Dim dat1 As New LCDatetime
	dat1.SetCurrent ' set a value just so we have something to erase
	Dim dat2 As New LCDatetime(2003, 10, 17, 15, 30, 0)
	Dim dat3 As New LCDatetime
	On Error Goto oops
	
	Print dat1.Text & {, } & dat2.Text & {, } & dat3.Text
	dat1.Text = ""
	dat2.Clear
	' don't need to clear dat3 because it was always a null value
	Print dat1.Text & {, } & dat2.Text & {, } & dat3.Text
End Sub

このコードサンプルによって得られる出力例は、次のとおりです。

<03/19/2003 05:39:10.25 PM, 10/17/2003 03:30:00 PM, >
<, , >