Lade...
 

Verwaltung einer Datumsperiode mit zwei Daten-Feldern

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)

}