Datum im Format TT/MM/JJJJ in vb.net anzeigen

Question

Ich möchte das Datum im Format 09/07/2013 anzeigen anstatt 09-jul-13.

Dim dt As Date = Date.Today 

MsgBox(dt) 

Answer 1

Zuerst Groß MM sind Monate und Klein mm sind Minuten.

Sie haben CultureInfo.InvariantCulture-ToString passieren, um sicherzustellen, dass / als Datumstrennzeichen verwendet wird, da es in der Regel mit der aktuellen Kultur der Datums-Trenn ersetzt werden würde:

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

Eine weitere Option ist, dass benutzerdefinierte Formatbezeichner zu entkommen, indem sie Einbetten der/in ‚:

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

MSDN: The "/" Custom Format Specifier:

Der benutzerdefinierte Formatbezeichner "/" stellt das Datumstrennzeichen dar, das zur Unterscheidung von Jahren, Monaten und Tagen verwendet wird. Es wird verwendet. Die geeignete lokalisierte Datumstrenn wird aus der DateTimeFormatInfo.DateSeparator Eigenschaft abgerufen der aktuellen oder Kultur angegeben.

Answer 2

Like this ..

MsgBox(format(dt,"dd/MM/yyyy")) 

Answer 3

Versuchen Sie es.

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

und auch check this link for more formatting data and time

Answer 4

Dim formattedDate As String = Date.Today.ToString("dd/MM/yyyy") 

Check link below

Answer 5

Sie das Datum in sie zersetzen könnte ist Bestandteile und sie dann zusammen verketten wie folgt aus:

MsgBox(Now.Day & "/" & Now.Month & "/" & Now.Year) 

Answer 6

Ich fand diese Verpflegung für Daten im 21. Jahrhundert könnte das sein eingegeben als TT/MM oder TT/MM/JJ. Es ist beabsichtigt, eine Anwesenheitsliste auszudrucken und nach dem Datum des Treffens zu fragen.

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