DecodeDate

Modified on 16/01/2009 09:42 by CPABED Categorized as Plattform

'''Syntax:'''{BR}
{{{{'''procedure'''DecodeDate(Date: TDateTime; var Year, Month, Day: Word) ;}}}}{BR}
{BR}
'''Beschreibung:'''{BR}
{BR}
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.{BR}
Enthält der TDateTime-Wert ein Jahr kleiner null (v. Chr.), werden die var-Parameter auf null gesetzt.
{BR}

'''Beispiel:'''{BR}
{BR}
<code pascal>
//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;
</code>

CP Wiki

Navigation¶

DecodeDate