web-dev-qa-db-fra.com

Afficher la date au format jj/mm/aaaa sur vb.net

Je souhaite afficher la date au format 09/07/2013 au lieu de 09-juil-13.

Dim dt As Date = Date.Today

MsgBox(dt)
vb.netdatetime-format
10
Ravikant Upadhyay

Premièrement, les lettres MM majuscules sont les mois et les lettres minuscules mm, les minutes.

Vous devez passer CultureInfo.InvariantCulture à ToString pour vous assurer que / est utilisé comme séparateur de date car il serait normalement remplacé par le séparateur de date de la culture actuelle:

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

Une autre option consiste à échapper à ce spécificateur de format personnalisé en incorporant le/dans ':

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

MSDN: spécificateur de format personnalisé "/" :

Le spécificateur de format personnalisé "/" représente le séparateur de date, qui est utilisé pour différencier les années, les mois et les jours. Approprié le séparateur de date localisé est extrait du fichier DateTimeFormatInfo.DateSeparator propriété du actuel ou spécifié Culture.

27
Rango

Essaye ça.

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

et aussi vérifiez ce lien pour plus de données de formatage et de temps

8
Darshan

Comme ça ..

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

si vous souhaitez afficher la date avec l'heure à laquelle vous exportez vers Excel, vous pouvez utiliser cette

xlWorkSheet.Cells(nRow, 3).NumberFormat = "dd/mm/yy h:mm AM/PM"
0
Prasanna

Vous pouvez décomposer la date en ses composants et les concaténer comme suit:

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

J'ai trouvé ce traiteur pour les dates au 21ème siècle qui pourraient être entrés comme jj/mm ou jj/mm/aa Il est prévu d'imprimer un registre de présence et de demander la date de la réunion pour commencer.

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

Vérifiez le lien ci-dessous

0
VB.NET LEARNER