Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Convertir une Date en version VF ?

3 réponses
Avatar
Oleane
Bonjour a tous


Voila le code, j'arrive pas a convertir en Date Francaise

Dim Mystring As New Exif.ExifMetadata("C:\DSCN1398.jpg")
Dim Madate As String = Mystring.DateTime. DisplayValue '= "2004:12:26
23:48:48" date US

J'ai fait des convert des format des Ctype ou encore des DateTime.ToString
et rien ne fonctionne
je sais plus comment m'y prendre pour convertir cette date j'ai plus d'idées


Le resultat doit etre sous forme "Jour Mois Année heure"


Merci de votre aide ...

3 réponses

Avatar
Fred
"Oleane" a écrit dans le message de news:
d1pjum$tt6$
Bonjour a tous


Voila le code, j'arrive pas a convertir en Date Francaise

Dim Mystring As New Exif.ExifMetadata("C:DSCN1398.jpg")
Dim Madate As String = Mystring.DateTime. DisplayValue '= "2004:12:26
23:48:48" date US

J'ai fait des convert des format des Ctype ou encore des DateTime.ToString
et rien ne fonctionne
je sais plus comment m'y prendre pour convertir cette date j'ai plus
d'idées


Le resultat doit etre sous forme "Jour Mois Année heure"


Merci de votre aide ...




Bonjour,

Voilà un bout de code mais tu noteras que j'ai remplacé les : par des /, ce
qui correspond au format en-US
Il te faut donc trouver à quelle culture appartient ta représentation.

Dim dtinfo As DateTimeFormatInfo = New CultureInfo("en-US",
False).DateTimeFormat
Dim d As Date
d = Date.Parse("2004/12/26 23:48:48", dtinfo)
Console.WriteLine(d.ToLongDateString)
Avatar
Fred
"Fred" a écrit dans le message de news:


"Oleane" a écrit dans le message de news:
d1pjum$tt6$
Bonjour a tous


Voila le code, j'arrive pas a convertir en Date Francaise

Dim Mystring As New Exif.ExifMetadata("C:DSCN1398.jpg")
Dim Madate As String = Mystring.DateTime. DisplayValue '= "2004:12:26
23:48:48" date US

J'ai fait des convert des format des Ctype ou encore des
DateTime.ToString
et rien ne fonctionne
je sais plus comment m'y prendre pour convertir cette date j'ai plus
d'idées


Le resultat doit etre sous forme "Jour Mois Année heure"


Merci de votre aide ...




Bonjour,

Voilà un bout de code mais tu noteras que j'ai remplacé les : par des /,
ce qui correspond au format en-US
Il te faut donc trouver à quelle culture appartient ta représentation.



Essais réalisés avec toutes les cultures par curiosité.
Aucune n'interprète la chaîne 2004:12:26 23:48:48.
Il va falloir faire un petit traitement de chaîne.
Du coup mon idée perd de son intérêt. Il te suffit de faire :

sDate="2004:12:26 23:48:48"
Dim sDateHeure() as string=sDate.Split(" ")
Dim sJMA() as string=sDateHeure(0).Split(":")
sDate = sJMA(2) & "/" & sJMA(1) & "/" & sJMA(0) & " " & sDateHeure(1)

pour avoir la date dans le bon sens.


Dim dtinfo As DateTimeFormatInfo = New CultureInfo("en-US",
False).DateTimeFormat
Dim d As Date
d = Date.Parse("2004/12/26 23:48:48", dtinfo)
Console.WriteLine(d.ToLongDateString)



Avatar
Oleane
Terrible merci énormément


"Fred" a écrit dans le message de
news:

"Fred" a écrit dans le message de news:

>
> "Oleane" a écrit dans le message de news:
> d1pjum$tt6$
>> Bonjour a tous
>>
>>
>> Voila le code, j'arrive pas a convertir en Date Francaise
>>
>> Dim Mystring As New Exif.ExifMetadata("C:DSCN1398.jpg")
>> Dim Madate As String = Mystring.DateTime. DisplayValue ' "2004:12:26
>> 23:48:48" date US
>>
>> J'ai fait des convert des format des Ctype ou encore des
>> DateTime.ToString
>> et rien ne fonctionne
>> je sais plus comment m'y prendre pour convertir cette date j'ai plus
>> d'idées
>>
>>
>> Le resultat doit etre sous forme "Jour Mois Année heure"
>>
>>
>> Merci de votre aide ...
>>
>>
> Bonjour,
>
> Voilà un bout de code mais tu noteras que j'ai remplacé les : par des /,
> ce qui correspond au format en-US
> Il te faut donc trouver à quelle culture appartient ta représentation.

Essais réalisés avec toutes les cultures par curiosité.
Aucune n'interprète la chaîne 2004:12:26 23:48:48.
Il va falloir faire un petit traitement de chaîne.
Du coup mon idée perd de son intérêt. Il te suffit de faire :

sDate="2004:12:26 23:48:48"
Dim sDateHeure() as string=sDate.Split(" ")
Dim sJMA() as string=sDateHeure(0).Split(":")
sDate = sJMA(2) & "/" & sJMA(1) & "/" & sJMA(0) & " " & sDateHeure(1)

pour avoir la date dans le bon sens.

>
> Dim dtinfo As DateTimeFormatInfo = New CultureInfo("en-US",
> False).DateTimeFormat
> Dim d As Date
> d = Date.Parse("2004/12/26 23:48:48", dtinfo)
> Console.WriteLine(d.ToLongDateString)
>