Visualizzazione data gg/mm/aaaa in vb.net

Question

voglio visualizzare la data in formato 09.07.2013 invece di 09-mar-13.

Dim dt As Date = Date.Today 

MsgBox(dt) 

Answer 1

In primo luogo, MM maiuscolo sono mesi e minuscole mm sono minuti.

Devi passare CultureInfo.InvariantCulture-ToString per garantire che / come separatore della data viene utilizzato in quanto sarebbe normalmente essere sostituito con separatore di data della cultura corrente:

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

Un'altra opzione è quella di sfuggire a quel identificatore di formato personalizzato incorporando il/nel raggio ':

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

MSDN: The "/" Custom Format Specifier:

Il "/" formato personalizzato identificatore rappresenta il separatore della data, che viene utilizzato per differenziare anni, mesi e giorni. L'appropriata separatore data localizzata viene recuperato dal DateTimeFormatInfo.DateSeparator struttura della corrente oppure specificato cultura.

Answer 2

Ti piace questa ..

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

Answer 3

Prova questa.

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

e anche 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

Si potrebbe decomporre la data in sue parti costituenti e poi li concatenare insieme in questo modo:

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

Answer 6

ho trovato questo approvvigionato per le date nel 21 ° secolo che potrebbero essere immesso come gg/mm o gg/mm/aa. È destinato a stampare un registro di presenza e chiede di iniziare la data della riunione.

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