Wyświetl datę w formacie dd/mm/rrrr w witrynie vb.net

Question

Chcę wyświetlić datę w formacie 09/07/2013 zamiast 09-jul-13.

Dim dt As Date = Date.Today 

MsgBox(dt) 

Answer 1

pierwsze, wielkie MM to miesiąc i małe mm są minuty.

Trzeba zdać CultureInfo.InvariantCulture do ToString aby / jako separator jest używany ponieważ byłoby to normalnie być zastąpione separator nurtu kulturowego za:

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

Innym rozwiązaniem jest ucieczka tego formatu niestandardowego specyfikator przez osadzanie/wewnątrz „:

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

MSDN: The "/" Custom Format Specifier:

Specyfikator formatu niestandardowego "/" reprezentuje separator daty, który jest używany do rozróżniania lat, miesięcy i dni. Odpowiednią zlokalizowane Data separator pobierane z DateTimeFormatInfo.DateSeparator własności obecnego lub określony kultury.

Answer 2

tak ..

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

Answer 3

Spróbuj tego.

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

a także 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

Można rozkładać datę do swojego części składowe, a następnie złączyć je razem tak:

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

Answer 6

Znalazłem to coś na daty w XXI wieku, które mogłyby być wprowadzane jako dd/mm lub dd/mm/rr. Ma wydrukować listę obecności i prosi o rozpoczęcie spotkania.

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