Einzelnen Beitrag anzeigen

Maja Jessica

Registriert seit: 16. Apr 2005
Ort: Dortmund
95 Beiträge
 
Delphi 4 Standard
 
#2

Re: Vorjahr und Vormonat berechnen.

  Alt 12. Dez 2006, 23:59
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
  Mit Zitat antworten Zitat