Discussion :

[Klemsy78]

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:

Overflow while converting variant of type (Double) into type (Date)

le code qui génère l'erreur est :

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;

Je voulais savoir comment resoudre ce problème.
Merci d'avance pour votre aide.