//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