DatabaseRecord の日付の値に Nil を設定した場合、そのメンバーに登録されない

以下のコードのように DatabaseRecord のメンバーとして日付の値を設定する場合、その日付の値が Nil だった場合、メンバーの値として Nil になるのではなく、メンバーそのものが登録されないため、注意をしてください。

Dim row As DatabaseRecord
Dim theBD, theWrongBD As Date

theBD = New Date( 2010, 4, 1 )
theWrongBD = Nil

// row にはメンバー「誕生日」が追加される
row.DateColumn( “誕生日” ) = theBD

// row にはメンバー「誕生日」が追加されない
row.DateColumn( “誕生日” ) = theWrongBD   // theBirthday

d = New date( 0, 0, 0 ) とした場合、年月日としては 1961/1/1 が設定されるので、これで判断する方法も選択肢にしないといけない場合があると思われます。

date 型を継承した myDate 型を作成し、計算型プロパティを1つ作成して、1961/1/1 の場合には Nil を返すなど、自分なりに使いやすいクラスを作るほうが幸せかもしれません。