Bonsoir messieurs,
J'ai developpé une application en delphi7 qui marche très bien sur XP. Mais elle me genère un message quand je l'exécute sur windows7.
Le message est le suivant:
le code qui génère l'erreur est :Overflow while converting variant of type (Double) into type (Date)
Je voulais savoir comment resoudre ce problème.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 VDateCourant.Date:=EncodeDate(strtoint(copy(DateToStr(Now()),7,4)), StrToInt('12'), StrToInt('31')); SelectTableau.Close; SelectTableau.Params.ParamByName('IDProcess').Value:=ObjProcess.Id; SelectTableau.Params.ParamByName('VDate_D').Value:=EncodeDate(strtoint(copy(DateToStr(VDateCourant.Date),7,4)), StrToInt('01'), StrToInt('01')); SelectTableau.Params.ParamByName('VDate_F').Value:=VDateCourant.Date; SelectTableau.Open;
Merci d'avance pour votre aide.
Partager