Guten Morgen
Eventuell hilft dir dieses ein wenig weiter
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var heute, vormonat, vorjahr : TDate;
jahr, monat, tag : word;
begin
heute := now;
ShowMessage(DateToStr(now));
vormonat := now - 31;
ShowMessage(DateToStr(vormonat));
vorjahr := now - 365;
ShowMessage(DateToStr(vorjahr));
DecodeDate(vorjahr, jahr, monat, tag);
ShowMessage(IntToStr(Jahr));
end;
Zitat:
Der Typ TDate wird zur Darstellung eines Datums verwendet.
Unit
Controls
type TDate = type TDateTime;
Beschreibung
TDate repräsentiert den speziellen Typ eines TDateTime -Wertes ohne Dezimalstellen. Ein TDate-Wert gibt die Anzahl der Tage an, die seit dem 30.12.1899 vergangen sind.
Ziehst du von "Heute" 1 ab dann hast du "Gestern"
(Die Nachkommastellen bei TDateTime stellen die Uhrzeit in Dezimal dar)
Alle Angaben ohne Gewähr, daher austesten (befasse mich gerade auch lernenderweise damit)
Gruß, MJ