2013 年 7 月 9 日ではなく、2013 年 9 月 7 日の形式で日付を表示したいと考えています。
Dim dt As Date = Date.Today
MsgBox(dt)
2013 年 7 月 9 日ではなく、2013 年 9 月 7 日の形式で日付を表示したいと考えています。
Dim dt As Date = Date.Today
MsgBox(dt)
このような ..
MsgBox(format(dt,"dd/MM/yyyy"))
これは、dd/mm または dd/mm/yy として入力できる 21 世紀の日付に対応していることがわかりました。出席簿を印刷することを目的としており、開始する会議の日付を要求します。
Sub Print_Register()
Dim MeetingDate, Answer
Sheets("Register").Select
Range("A1").Select
GetDate:
MeetingDate = DateValue(InputBox("Enter the date of the meeting." & Chr(13) & _
"Note Format" & Chr(13) & "Format DD/MM/YY or DD/MM", "Meeting Date", , 10000, 10000))
If MeetingDate = "" Then GoTo TheEnd
If MeetingDate < 36526 Then MeetingDate = MeetingDate + 36526
Range("Current_Meeting_Date") = MeetingDate
Answer = MsgBox("Date OK?", 3)
If Answer = 2 Then GoTo TheEnd
If Answer = 7 Then GoTo GetDate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
TheEnd:
End Sub