Convertir Serial date a une date format YYYY-MM-dd [Résolu]

BrokenArrow29 110 Messages postés vendredi 1 décembre 2006Date d'inscription 14 décembre 2011 Dernière intervention - 9 févr. 2009 à 06:49 - Dernière réponse : Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention
- 10 févr. 2009 à 06:30
Salut tout le monde,
J'aimerais bien trouvé une fonction pour convertir une date de format serial 39794 a 2008-12-12

Merci et bonne journée
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 9 févr. 2009 à 11:35
3
Merci
j'ai même trouvé plus court :

TextBox1.Text = DateTime.FromOADate(39794)

Merci Renfield 3

codes-sources a aidé 81 internautes ce mois-ci

Commenter la réponse de Renfield
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 9 févr. 2009 à 07:08
0
Merci
y'a une partie convertion, pour obtenir un DateTime valide, puis un formatage pour obtenir yyyy-MM-dd :

Dim dat As New DateTime(1899, 12, 30)

dat = dat.AddDays(39794)
MsgBox(dat.ToString("yyyy-MM-dd"))
Commenter la réponse de Renfield
cs_comme 122 Messages postés dimanche 19 mars 2006Date d'inscription 18 juillet 2009 Dernière intervention - 9 févr. 2009 à 11:00
0
Merci
Essaye celà  :  Label1.Caption = CDate(39794)
Commenter la réponse de cs_comme
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 9 févr. 2009 à 11:05
0
Merci
Où comment coder du code .NET invalide.
l'as tu toi même essayé ?

"Erreur: Une valeur de type 'Integer' ne peut pas être convertie en 'Date'."

ton code est valable en VB6, il faudrait simplement que tu formate le résultat comme demandé.

concernant mon code, il est fondé:
39794 est un Double, correspondant au nombre de jours écoulés depuis le 30 décembre 1899 à minuit.
Commenter la réponse de Renfield
BrokenArrow29 110 Messages postés vendredi 1 décembre 2006Date d'inscription 14 décembre 2011 Dernière intervention - 10 févr. 2009 à 02:43
0
Merci
Merci Renfield,
super cool ta fonction !!!!

Merci
Commenter la réponse de BrokenArrow29
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 10 févr. 2009 à 06:30
0
Merci
y'a plus qu'a combiner les deux:

TextBox1.Text = DateTime.FromOADate(39794).ToString("yyyy-MM-dd")
Commenter la réponse de Renfield

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.