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

Messages postés
110
Date d'inscription
vendredi 1 décembre 2006
Dernière intervention
14 décembre 2011
- 9 févr. 2009 à 06:49 - Dernière réponse :
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 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
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 9 févr. 2009 à 11:35
3
Merci
j'ai même trouvé plus court :

TextBox1.Text = DateTime.FromOADate(39794)

Merci Renfield 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 87 internautes ce mois-ci

Commenter la réponse de Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 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
Messages postés
122
Date d'inscription
dimanche 19 mars 2006
Dernière intervention
18 juillet 2009
- 9 févr. 2009 à 11:00
0
Merci
Essaye celà  :  Label1.Caption = CDate(39794)
Commenter la réponse de cs_comme
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 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
Messages postés
110
Date d'inscription
vendredi 1 décembre 2006
Dernière intervention
14 décembre 2011
- 10 févr. 2009 à 02:43
0
Merci
Merci Renfield,
super cool ta fonction !!!!

Merci
Commenter la réponse de BrokenArrow29
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Dernière intervention
22 août 2018
- 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.