Je récupère d'un fichier texte des dates... Le problème est que lorsque je
transforme le texte en date il arrive que la date ai le jour et le mois
d'intervertit... La date est interprétée à l'américaine...
Avez vous une astuce pour résoudre ce problème ?
Voilà mes lignes:
Dim EnregTmp As String
Dim EnregDate As Date
EnregTmp = Mid(Ligne, 1, 2) & "/" & Mid(Ligne, 3, 2) & "/" & Mid(Ligne, 5,
4)
EnregDate = CDate(EnregTmp)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fred
dans : news:45367313$0$31245$, HD écrivait :
Bonjour,
Bonsoir,
Je récupère d'un fichier texte des dates... Le problème est que lorsque je transforme le texte en date il arrive que la date ai le jour et le mois d'intervertit... La date est interprétée à l'américaine... Avez vous une astuce pour résoudre ce problème ?
Voilà mes lignes: Dim EnregTmp As String Dim EnregDate As Date EnregTmp = Mid(Ligne, 1, 2) & "/" & Mid(Ligne, 3, 2) & "/" & Mid(Ligne, 5, 4) EnregDate = CDate(EnregTmp)
Puisque tu connais le jour, le mois et l'année, utilise plutôt DateSerial
-- Fred http://www.cerbermail.com/?3kA6ftaCvT
dans : news:45367313$0$31245$426a74cc@news.free.fr,
HD écrivait :
Bonjour,
Bonsoir,
Je récupère d'un fichier texte des dates... Le problème est que
lorsque je transforme le texte en date il arrive que la date ai le
jour et le mois d'intervertit... La date est interprétée à
l'américaine...
Avez vous une astuce pour résoudre ce problème ?
Voilà mes lignes:
Dim EnregTmp As String
Dim EnregDate As Date
EnregTmp = Mid(Ligne, 1, 2) & "/" & Mid(Ligne, 3, 2) & "/" &
Mid(Ligne, 5, 4)
EnregDate = CDate(EnregTmp)
Puisque tu connais le jour, le mois et l'année, utilise plutôt
DateSerial
Je récupère d'un fichier texte des dates... Le problème est que lorsque je transforme le texte en date il arrive que la date ai le jour et le mois d'intervertit... La date est interprétée à l'américaine... Avez vous une astuce pour résoudre ce problème ?
Voilà mes lignes: Dim EnregTmp As String Dim EnregDate As Date EnregTmp = Mid(Ligne, 1, 2) & "/" & Mid(Ligne, 3, 2) & "/" & Mid(Ligne, 5, 4) EnregDate = CDate(EnregTmp)
Puisque tu connais le jour, le mois et l'année, utilise plutôt DateSerial
-- Fred http://www.cerbermail.com/?3kA6ftaCvT
HD
Effectivement... DateSerial est particulièrement adapté à mon problème...
Merci à toi Fred :-)
-- @+ HD
Effectivement... DateSerial est particulièrement adapté à mon problème...
