Overflow while converting variant of type (Double) into type (Date)
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:
Citation:
Overflow while converting variant of type (Double) into type (Date)
le code qui génère l'erreur est :
Code:
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; |
Je voulais savoir comment resoudre ce problème.
Merci d'avance pour votre aide.
