Lade...
 

Verwaltung einer Datumsperiode mit Date und String

Verwaltung einer Datumsperiode mit Date und String

Der folgende Programmcode zeigt die Definition eines Windows, über das eine

Datumsperiode ein- und ausgegeben werden kann. Dabei wird das Startdatum mit Hilfe des Oberflächenobjektes Date und die Dauer mit String gesetzt. Da es sich bei der Dauer um einen Wert handelt, gelten für sie alle dort aufgeführten Möglichkeiten zur Ein- und Ausgabe. Diese wird in diesem Beispiel mit Hilfe der InstantView®-Anweisungen DrainWindow und FillWindow durchgeführt.

Window(Win, 50, 70, 410, 37, T("Beispiel Nr. 3", "Example No. 3"))
[
  Var(sdate)
  INITIALIZE:
    CreateTransObject(CX_SPAN_DATE) -> sdate
    "9.12.2005 - 12.12.2005" sdate Put

    0 sdate Get(duration) Call(SetPrecision)
    sdate FillWindow
]
{
  Prompt(10, 12, T("Datumsperiode:", "span-date:"))
  Prompt(150, 3, T("Start:", "start:"))
  Date(CX_SPAN_DATE::this, 152, 11, 110)
  Prompt(270, 3, T("Dauer:", "duration:"))
  String(CX_SPAN_DATE::duration, 268, 11, 80)

}