Verwaltung einer Datumsperiode mit zwei Daten-Feldern
Der folgende Programmcode zeigt die Definition eines Windows, über das eine
Datumsperiode ein- und ausgegeben werden kann. Dabei wird für das Start- und Enddatum jeweils ein Oberflächenobjekt Date verwendet, deren Inhalt mit der Funktion SetPeriodBorders gesetzt werden kann. Im Gegensatz zu Objekten anderer Klassen kann in diesem Fall nicht mit DrainWindow bearbeitet werden, da eine Datumsperiode intern aus einem Tagesdatum und einer Zeitdauer besteht.
Window(Win, 50, 70, 410, 37, T("Beispiel Nr. 2", "Example No. 2"))
[
Var(sdate)
INITIALIZE:
CreateTransObject(CX_SPAN_DATE) -> sdate
"9.12.2005 - 12.12.2005" sdate Put
sdate FillWindow
]
{
Prompt(10, 13, T("Datumsperiode:", "span-date:"))
Prompt(151, 3, T("Start:", "Start:"))
Date(CX_SPAN_DATE::StartOfPeriodMA(), 151, 12, 110)
Prompt(270, 3, T("Ende:", "End:"))
Date(CX_SPAN_DATE::EndOfPeriodMA(), 270, 12, 110)
}