1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
|
private
{ Déclarations privées }
procedure InitializeDatesLimite ;
public
{ Déclarations publiques }
DatesLimite: array [1..12] of TDateTime;
end;
procedure TForm1.InitializeDatesLimite;
begin
DatesLimite[1] := EncodeDate(2024, 1, 24);
DatesLimite[2] := EncodeDate(2024, 2, 22);
DatesLimite[3] := EncodeDate(2024, 3, 21);
DatesLimite[4] := EncodeDate(2024, 4, 23);
DatesLimite[5] := EncodeDate(2024, 5, 23);
DatesLimite[6] := EncodeDate(2024, 6, 21);
DatesLimite[7] := EncodeDate(2024, 7, 24);
DatesLimite[8] := EncodeDate(2024, 8, 23);
DatesLimite[9] := EncodeDate(2024, 9, 23);
DatesLimite[10] := EncodeDate(2024, 10, 24);
DatesLimite[11] := EncodeDate(2024, 11, 22);
DatesLimite[12] := EncodeDate(2024, 12, 20);
//memo1.lines.loadfromfile(pchar('Dateslimite.txt'));
end;
procedure TForm1.BCalculClick(Sender: TObject);
var
MoisEnCours: Integer;
JoursRestants: Integer;
ligne:string;
begin
MoisEnCours := MonthOf(Now);
if (MoisEnCours >= 1) and (MoisEnCours <= 12) then
begin
JoursRestants := DaysBetween(Now, DatesLimite[MoisEnCours]);
//afficher le nomre de jours restants dans Edit1 :
Edit1.Text := intToStr(JoursRestants) ;
Memo1.Lines.Add(Format('Plus que %d jours avant de toucher ta pension', [JoursRestants, DateToStr(DatesLimite[MoisEnCours])])); // ''au %s.
end
else
begin
Edit1.Text :=('Le mois en cours n''est pas valide.');
end;
end; |