EncodeDate

Syntax:

function EncodeDate(Year, Month, Day: Word): TDateTime;

Beschreibung:

Die Funktion gibt einen Wert des Typs TDateTime zurück, der einem bestimmten Jahr, Monat und Tag entspricht.
EncodeDate gibt einen Wert des Typs TDateTime für die als Parameter angegebenen Werte Year, Month und Day zurück.
Das Jahr muss zwischen 1 und 9999 liegen.
Für Month sind Werte zwischen 1 und 12 zulässig.

Die zulässigen Werte für Day hängen vom Wert der Eigenschaft Month ab (1 bis 28, 29, 30 oder 31). So liegen beispielsweise die möglichen Tageswerte für den Monat 2 (Februar) zwischen 1 und 28 bzw. zwischen 1 und 29, abhängig davon, ob im Parameter Year ein Schaltjahr übergeben wird.

Befindet sich der angegebene Wert nicht innerhalb der oben aufgeführten Bereiche, wird eine EConvertError-Exception ausgelöst.

Beispiel:


//Im folgenden Beispiel befinden sich drei Eingabefelder, eine Schaltfläche und eine Beschriftung in einem Formular.
//Wenn der Benutzer auf die Schaltfläche klickt, werden die in eingegebenen Werte für Tag, Monat und Jahr in einem TDateTime-Objekt gespeichert.
//Dieses wird dann für die Anzeige in der Beschriftung in einen AnsiString konvertiert.

procedure TForm1.Button1Click(Sender: TObject);

var
  MyDate: TDateTime;
begin
  MyDate := EncodeDate(StrToInt(Edit1.Text), StrToInt(Edit2.Text), StrToInt(Edit3.Text));
  Label1.Caption := DateToStr(MyDate);
end;