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
|
function setdate(): String;
var
Day, Month, Year, OldDay, OldMonth, OldYear: Integer;
begin
//calcul date actuel moins 21 jours
Day := StrToInt(GetDateTimeString('d'));
Month := StrToInt(GetDateTimeString('m'));
Year := StrToInt(GetDateTimeString('yyyy'));
OldDay := Day - 21;
if OldDay < 1 then
begin
OldDay := 30 + OldDay;
OldMonth := Month - 1;
end
else
OldMonth := Month;
if OldMonth < 1 then
begin
OldMonth := 12;
OldYear := Year - 1;
end
else
OldYear := Year;
Result := IntToStr(OldYear) + '-' + IntToStr(OldMonth) + '-' + IntToStr(OldDay);
end; |
Partager