日々更新

簡単だけど、つい忘れる。。。
メモ。

Dim dtmNowDate dtmNowDate = Now()

MsgBox CStr(dtmNowDate)     
MsgBox CStr(Year(dtmNowDate))     
MsgBox CStr(Month(dtmNowDate))
MsgBox CStr(Day(dtmNowDate))
MsgBox CStr(Right("0" & Month(dtmNowDate), 2))