Discussion :

[Beauserge]

Bonsoir à tous

Sous Delphi 7, j'essaye de calculer l'écart entre 2 dates d'une même (mais en format Date - type (jour et moi seulement, sans l'année) ex :18 avril).
En clair, je voudrais par exemple que la différence entre les dates : 28 avril - 18 avril (renvoie comme résultat 10)

Pour effectuer le calcul de l'écart, j'utilise un DateTimePicker pour la date du jour et la différence doit se faire depuis une date que je récupère dans un stringgrid et stocké dans des TEdit et la fonction DaysBetween

Dans mon code ci-après, les dates sont bien récupérées mais le calcul ne s'effectue pas.
Le compilateur ne renvoie aucune erreur mais lorsque je clique sur le bouton dans mon programme, ça plante et l'erreur "n'est pas une date correcte" s'affiche.
Le problème se situe dans les TEdit : DateFiche1 et EditJour

Sans doute que l’interprétation de la fonction DaysBeetween doit poser problème sans la variable "Annee" et j'aimerai savoir comment contourner cela.

A vous lire pour votre aide
Merci

Cordialement
Beauserge

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button1Click(Sender: TObject);
var
DateJourBase: String;
D1: TDateTime;
E1: Extended;
 
begin
DateTimePicker3.Date:=now;  // date du jour
EditJour.text:=FormatDateTime('dd mmmm', DateTimePicker3.Date); // formatage date (ex : 18 avril)
DateJourBase:=EditJour.text;
 
// récupération date dans stringgrid
DateFiche1.text:=StringGrid1.Cells[0,9];
 
D1:=StrToDate(DateFiche1.text);
E1 := DaysBetween(StrToDate(DateJourBase),D1);
 
// affichage des écarts dans les Edits Ecarts Fiches
EcartF1.Text:=FloatToStr(E1);
 
end;

[SergioMaster]

Bonjour,

Tôt le matin, je ne comprends pas bien le code , surtout sans savoir concrètement ce qui est saisi dans DateFiche1.Text et le but de la transformation StrToDate(DateJourBase), DateJourBase préalablement calculé c'est le chat qui se mord la queue !

Si l'on fait abstraction du problème des années bisextiles je proposerai d'utiliser une année "fixe" non bisextile i.e. 2017

Soit un DateTimePicker : DTPbase ,
et un string sous la forme dd mmm : DF
je procéderai de la manière suivante, à la volée donc sans vérification

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var aa,mm,jj : Word;
     D1,D2 : TDateTime;
     D2String : String;
     Ecart : Integer;
....
begin
// obtention D1 
DecodeDate(DTPBase.date,aa,mm,jj);
D1:=EncodeDate(2017,mm,jj); 
// obtention D2
D2String:=DF+' 2017';
D2:=StrToDate(D2String);
// calcul écart
Ecart:=DaysBetween(D1,D2);
end;

à noter que l'on pourrait aussi se baser sur l'année prise dans le datetimepicker, il suffirait de remplacer l'instruction
D2String:=DF+' 2017' par DF:=Format('%s %d',[DF,aa]);Je reste néanmoins très perplexe dans la logique de l'utilisation faite des dates utiliser l'affichage au lieu de la valeur affichée pour faire le calcul me surprend

[Beauserge]

Bonjour Sergiomaster

Merci pour ta réponse mais à vrai dire, je n'ai pas tout saisi au niveau de ton code.

C'est pas bien grave car j'ai résolu le problème en faisant la conversion de la date directement à la source du stringgrid (donc le format transmis à l'Edit DateFichex n'a pas besoin d'etre décodé)

Merci
Beauserge