DATEFORM
Syntax: I% = DATEFORM(FormTitle$, ProceedButtonText$, CancelButtonText$,
DateFieldLabel$, dateArray%, mode%)
- FormTitle$
- ProceedButtonText$
- CancelButtonText$
- DateFieldLabel$
- dateArray%
- dateArray% should be dimensioned to 2.
- dateArray% contains input date on entry and output date on completion.
I% = 1 if user pressed proceed button, I%=0 if user pressed cancel
button.
- mode%
- 0 - Date and Time
- 1 - Date Only
- 2 - Time Only
Example
10 DIM DT%(2)
20 D%=DAYS()
30 T%=MILLISECONDS()
40 DT%(0)=D%
50 DT%(1)=T%
60 I%=DATEFORM("Date Form","Continue","Cancel","Today",DT%,0)
70 IF I%=0 THEN GOTO 100
80 D%=DT%(0)
90 T%=DT%(1)
100 END
|
