Discussion :

[Jah73]

Bonjour à tous,

Je n'arrive pas à convertir un format de date.

La date en entrée est la suivante : "Jul 11 10:13 "

Et je souhaite la transformer dans le format suivant : "dd/MM HH:mm"

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim inputFormat As String = "MMM dd HH:mm"
Dim outputFormat As String = "dd/MM HH:mm"
Dim frenchDate As String = ChangeDateFormat(dateUnix, inputFormat, outputFormat)
 
 
Private Function ChangeDateFormat(dateString As String, inputFormat As String, outputFormat As String) As String
     Dim dt As DateTime = DateTime.ParseExact(dateString, inputFormat, Nothing)
     Return dt.ToString(outputFormat)
End Function

Mais ca me génère une erreur ...

Quelqu'un a une idée ?

Merci

[chaparo]

Il faut juste que tu fasses le ToString(outputformat)Si tu a un datetimepicker derrière tu peux modifier la propriété customFormat

Tu ne peux pas parser une date selon un style enfin je ne crois pas ...

[chrismonoye]

Bonsoir,
à tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   Private Function ChangeDateFormat(dateString As String, inputFormat As String, outputFormat As String) As String
        Dim dt As DateTime = DateTime.ParseExact(dateString, inputFormat, New Globalization.CultureInfo("en-US")) ', Globalization.DateTimeStyles.None)
        Return dt.ToString(outputFormat)
    End Function

Il faut à mon avis spécifier la Culture pour le paramètre provider.

[karirovax]

Bonjour à tous,

Je n'arrive pas à convertir un format de date.

La date en entrée est la suivante : "Jul 11 10:13 "

Et je souhaite la transformer dans le format suivant : "dd/MM HH:mm"

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim inputFormat As String = "MMM dd HH:mm"
Dim outputFormat As String = "dd/MM HH:mm"
Dim frenchDate As String = ChangeDateFormat(dateUnix, inputFormat, outputFormat)
 
 
Private Function ChangeDateFormat(dateString As String, inputFormat As String, outputFormat As String) As String
     Dim dt As DateTime = DateTime.ParseExact(dateString, inputFormat, Nothing)
     Return dt.ToString(outputFormat)
End Function

Mais ca me génère une erreur ...

Quelqu'un a une idée ?

Merci

Salut

A vous de l'essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function ToENGLICH(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String
        Return gDate.ToString(format, New Globalization.CultureInfo("en-US"))
    End Function

ensuite vous l'appelez:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
'Ajoutez par exemple un label 
Label1.Text = ToENGLICH(Date.Today, "dddd dd MMMM yyyy")

Le format est optionnel

[Jah73]

Bonjour à tous,

Merci pour vos réponses et désolé pour le retard !




@karirovax; J'ai essayé ta solution mais voilà le problème :



Pour le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ToENGLICH(dateUnix, "dd/MM HH:mm")

@chrismonoye; J'ai essayé ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Try
            Dim dt As DateTime = DateTime.ParseExact(dateString, inputFormat, New Globalization.CultureInfo("en-US"))
            Return dt.ToString(outputFormat)
        Catch ex As Exception
            MsgBox(ex.Message)
            Return Nothing
        End Try

Cela me lève l'exception suivante : "La chaîne n'a pas été reconnue en tant que DateTime valide."

Il faut à mon avis spécifier la Culture pour le paramètre provider.

C'est à dire ?




@chaparo;

ToString(outputformat) ne fonctionne pas non plus. Et qu'est-ce qu'un datetimepicker ?




Encore merci !

[Jah73]

Yes ! J'ai trouvé

Je me suis servi de la solution de chrismonoye

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim inputFormat As String = "MMM dd HH:mm "
Dim outputFormat As String = "dd/MM HH:mm"
 
Dim frenchDate As String = ChangeDateFormat(dateUnix, inputFormat, outputFormat)
 
....
 
Private Function ChangeDateFormat(dateString As String, inputFormat As String, outputFormat As String) As String
     Try
          Dim dt As DateTime = DateTime.ParseExact(dateString, inputFormat, New Globalization.CultureInfo("en-US"), Globalization.DateTimeStyles.None)
          Return dt.ToString(outputFormat)
     Catch ex As Exception
          MsgBox(ex.Message)
          Return Nothing
     End Try
End Function

Merci à tous pour vos réponses et votre aide

[Savak]

Tu as tout ce dont tu as besoin ici

Je te conseille de regarder attentivement la propriété DateTimeFormatInfo. Ça pourrait t'aider à résoudre ton problème.

Tiens nous au courant!