Discussion :

[masterdash]

Salut à tous, j'ai cette condition en espérant trouver mieux.

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
var Year_Now, Month_Now, Year_Calc, Month_Calc : String;
begin
  Year_Now := '2021';
  Month_Now := '03';
  Year_Calc := '2018';
  Month_Calc := '03';
  IF Year_Calc > Year_Now Then
    Exit
  Else
    IF Year_Calc < Year_Now Then
      Begin
        WriteLn(Year_Calc + ' < ' + Year_Now);
      End
    Else
        IF Month_Calc < Month_Now Then
            Begin
              WriteLN(Year_Calc + ' est Egale a '+ Year_Now + ' et ' + Month_Calc + ' est inférieur à ' + Month_Now);
            End;
end.

[ShaiLeTroll]

1) d'ou vient la Date ? son format ?
2) DecodeDate fourni Year, Month, Day en Word, une comparaison numérique.
3) Il n'y a pas de le cas de l'égalité

Et finalement, quel est le besoin ?
La comparaison de Date peut se faire directement via deux TDate et un EncodeDate, au pire si l'on veut gérer séparément l'année avec YearsBetween

Sinon même résultat en plus court

Code :

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

1
2
3
4
5
6
7
8
9
  if Year_Calc = Year_Now then
  begin
    if Month_Calc < Month_Now then
        WriteLN(Year_Calc + ' est Egale a '+ Year_Now + ' et ' + Month_Calc + ' est inférieur à ' + Month_Now);
  end
  else if Year_Calc < Year_Now then
    WriteLn(Year_Calc + ' < ' + Year_Now)
  else
    Exit;

[masterdash]

Merci ShaiLeTroll , sur le programme je travail avec des Périodes extraite d'une des tables Ex: '202101' ou '2021T4', que je doit comparaître avec la date du System pour en quelque les pénalités. ça me va aussi en plus court. merci

[ShaiLeTroll]

Si c'est une simple comparaison de délai entre deux dates, on peut faire comme cela si tu veux savoir si '202101' ou '2021T4' antérieur à la date en cours
Tu oublies une problématique, si c'est le début ou la fin d'un mois ou d'un trimestre, cela change le résultat

'202101' => True, date dépassée (20210131)
'2021T2' =>False, date non atteinte (20210631)
'2021T2' + ATrimestreEnd à False =>True, date dépassée (20210401)
'2021T4', False, date non atteinte (20211231)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button6Click(Sender: TObject);
begin
  if IsPeriodeExpired('202101') then
    ShowMessage('202101');
 
  if IsPeriodeExpired('2021T2') then
    ShowMessage('2021T2');
 
  if IsPeriodeExpired('2021T2', False) then
    ShowMessage('2021T2 False');
 
  if IsPeriodeExpired('2021T4') then
    ShowMessage('2021T4');
end;

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
22
23
24
25
26
27
28
function IsPeriodeExpired(const APeriode: string; APeriodeEnd: Boolean = True): Boolean;
var
  PeriodeDate: TDate;
  PeriodYear, PeriodMonth, PeriodDay: Word;
begin
  if Length(APeriode) = 6 then
  begin
    PeriodYear := StrToInt(Copy(APeriode, 1, 4));
    if APeriode[5] = 'T' then
    begin
      if APeriodeEnd then
        PeriodMonth := 3 * StrToInt(APeriode[6])
      else
        PeriodMonth := 1 + 3 * (StrToInt(APeriode[6]) - 1)
    end
    else
      PeriodMonth := StrToInt(Copy(APeriode, 5, 2));
 
    if APeriodeEnd then
      PeriodDay := DaysInAMonth(PeriodYear, PeriodMonth) // System.DateUtils
    else
      PeriodDay := 1;
 
    Result := EncodeDate(PeriodYear, PeriodMonth, PeriodDay) < Now();
  end
  else
    raise Exception.CreateFmt('Période "%s" invalide', [APeriode]);
end;