Display date in dd/mm/yyyy format in vb.net

后端 未结 7 1879
独厮守ぢ
独厮守ぢ 2021-01-11 11:08

I want to display date in 09/07/2013 format instead of 09-jul-13.

Dim dt As Date = Date.Today

MsgBox(dt)
相关标签:
7条回答
  • 2021-01-11 11:47

    Like this ..

    MsgBox(format(dt,"dd/MM/yyyy"))
    
    0 讨论(0)
  • 2021-01-11 11:49

    if you want to display date along with time when you export to Excel then you can use this

    xlWorkSheet.Cells(nRow, 3).NumberFormat = "dd/mm/yy h:mm AM/PM"
    
    0 讨论(0)
  • 2021-01-11 11:55

    First, uppercase MM are months and lowercase mm are minutes.

    You have to pass CultureInfo.InvariantCulture to ToString to ensure that / as date separator is used since it would normally be replaced with the current culture's date separator:

    MsgBox(dt.ToString("dd/MM/yyyy", CultureInfo.InvariantCulture))
    

    Another option is to escape that custom format specifier by embedding the / within ':

    dt.ToString("dd'/'MM'/'yyyy")
    

    MSDN: The "/" Custom Format Specifier:

    The "/" custom format specifier represents the date separator, which is used to differentiate years, months, and days. The appropriate localized date separator is retrieved from the DateTimeFormatInfo.DateSeparator property of the current or specified culture.

    0 讨论(0)
  • 2021-01-11 11:55

    I found this catered for dates in 21st Century that could be entered as dd/mm or dd/mm/yy. It is intended to print an attendance register and asks for the meeting date to start with.

    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
    
    0 讨论(0)
  • Dim formattedDate As String = Date.Today.ToString("dd/MM/yyyy")
    

    Check link below

    0 讨论(0)
  • 2021-01-11 11:59

    Try this.

     var dateAsString = DateTime.Now.ToString("dd/MM/yyyy");
    // dateAsString = "09/07/2013"
    

    and also check this link for more formatting data and time

    0 讨论(0)
提交回复
热议问题