日付型のデータの初期化はどうすればいいのでしょうか?
Dim wk_date As Date
Dim wk_Time As Date
wk_Date = CDate("00/00/00")
wk_Time = CDate("00:00:00")
とすると、時間の方は初期値になるのですが、
日付の方が、“型が一致しません。”というエラーになってしまいます。
何を初期値とするんでしょうか?
そもそも、00年は1900年として、00月00日って、いつでしょうか?
一応初期値といえるものはないわけではないですけど、日付と時刻を初期値にすることに意味はないと思います。
日付型が未入力の時にデータとして“000000”を出力したいのですが
データとして入ることがない日付で初期化しておけばよいのでは?
例えば西暦100年1月1日で。
wk_Date = CDate("100/01/01")
.....
If wk_Date = CDate("100/01/01") Then
Print "000000"
Else
Print Format(wk_Date, "yymmdd")
End If
という感じ。
wk_Date が Date 型である以上、日付として正しくない値
(0年0月0日というような値)は代入できませんよ。
とろさん有難う御座いました。
教えていただいた方向でやってみようと思います。
ツイート | ![]() |