17

2013 年 7 月 9 日ではなく、2013 年 9 月 7 日の形式で日付を表示したいと考えています。

Dim dt As Date = Date.Today

MsgBox(dt)
4

7 に答える 7

4

このような ..

MsgBox(format(dt,"dd/MM/yyyy"))
于 2013-07-09T10:44:45.887 に答える
1

これは、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
于 2016-12-31T15:34:01.103 に答える