DecodeDate

Syntax:

procedureDecodeDate(Date: TDateTime; var Year, Month, Day: Word) ;

Beschreibung:

Die Prozedur gibt Jahr, Monat und Tag eines TDateTime-Wertes zurück.

DecodeDate zerlegt den im Parameter Date übergebenen Wert in die Werte Year, Month und Day.
Enthält der TDateTime-Wert ein Jahr kleiner null (v. Chr.), werden die var-Parameter auf null gesetzt.

Beispiel:


//Zu diesem Beispiel gehören eine Schaltfläche und zwei Beschriftungen in einem Formular.
//Wenn der Benutzer auf die Schaltfläche klickt, erscheinen das aktuelle Datum und die Uhrzeit als Beschriftungstexte.

procedure TForm1.Button1Click(Sender: TObject);

var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
 begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
    + IntToStr(Month) + ' of Year ' + IntToStr(Year);
  DecodeTime(Present, Hour, Min, Sec, MSec);
  Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
    + IntToStr(Hour);
end;