EncodeDate

Modified on 16/01/2009 09:12 by CPABED Categorized as Plattform
'''Syntax:'''{BR}
{{{{'''function''' EncodeDate(Year, Month, Day: Word): TDateTime;}}}}{BR}
{BR}
'''Beschreibung:'''{BR}
{BR}
Die Funktion gibt einen Wert des Typs TDateTime zurück, der einem bestimmten Jahr, Monat und Tag entspricht.{BR}
EncodeDate gibt einen Wert des Typs TDateTime für die als Parameter angegebenen Werte Year, Month und Day zurück.{BR}
Das Jahr muss zwischen 1 und 9999 liegen.{BR}
Für Month sind Werte zwischen 1 und 12 zulässig.{BR}

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.{BR}

Befindet sich der angegebene Wert nicht innerhalb der oben aufgeführten Bereiche, wird eine EConvertError-Exception ausgelöst.{BR}
{BR}
'''Beispiel:'''{BR}
{BR}
<code pascal>
//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;
</code>
CP Wiki

Navigation¶

EncodeDate
