Sub sample()
MsgBox Format(Now(), "yyyy/mm/dd") MsgBox Format(Now(), "hh:nn:ss") MsgBox Format(Now(), "yyyy/mm/dd hh:nn:ss") MsgBox Format(Now(), "yy年m月d日 h時n分s秒")
End Sub
