Re: PB SUR XLSDONNEE SUR UN FORMAT DE CELLULE TRES SPECIAL
Posté par drcharly93 le 25/4/2008 12:25:29
Bonjour,
La gestion des dates est un peu différente entre Excel et WinDev
Pour cela il vous faudra reformater vos données pour pouvoir les exploiter:
Code saisie à la volée pouvant comporter des erreurs
La gestion des dates est un peu différente entre Excel et WinDev
Pour cela il vous faudra reformater vos données pour pouvoir les exploiter:
//Cette fonction va renvoyer une date au format DateHeure
PROCEDURE proConvertirDateDeExcel(pDate est une chaine)
dDateHeure est une DateHeure
sHeure est une chaine
sDate est une chaine
nJour est un entier
nAnnee est un entier
sHeure = Droite(pDate,8)
sHeure = Remplace(sHeure, ":", "")
dDateHeure..PartieHeure = sHeure[[ A 6]]
sDate = ExtraitChaine( pDate, 1, " " )
nJour = ExtraitChaine( sDate, 1, "-" )
nAnnee = ExtraitChaine( sDate, 3, "-" )
Selon ExtraitChaine( sDate, 2 "-" )
Cas "janv" : nMois = 1
Cas "févr" : nMois = 2
Cas "mars" : nMois = 3
Cas "avr" : nMois = 4
Cas "mai" : nMois = 5
Cas "juin" : nMois = 6
Cas "juil" : nMois = 7
Cas "août" : nMois = 8
Cas "sept" : nMois = 9
Cas "oct" : nMois = 10
Cas "nov" : nMois = 11
Cas "déc" : nMois = 12
Fin
dDateHeure..Annee = nAnnee
dDateHeure..Mois = nMois
dDateHeure..Mois = nMois
dDateJour = nJour
Renvoyer dDateHeure
Code saisie à la volée pouvant comporter des erreurs
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5842&post_id=23690