Date-Type textbox problem
Posted: Thu May 10, 2018 11:57 am
Hi friends,
I played around with a date-type textbox and need help. See the code:
It seems inputmask does not work with date-textbox, and the date format setting is ignored too.
Btw: Why do I not get a syntax error because of the semicolon at value of label datum and why do I get a syntax error at the date statement in textbox?
Thank you for your help
Robert
PS: How can I append a screenshot to show you the result of my code?
I played around with a date-type textbox and need help. See the code:
Code: Select all
#include "hmg.ch"
set century on
set date to german
set date format to "DD.MM.YYYY"
FUNCTION Main()
local cDat, cDatum
DEFINE WINDOW Date_1 ;
AT 120,120 ;
WIDTH 400 ;
HEIGHT 150 ;
TITLE "Textbox Date" ;
MAIN
END WINDOW
On Key F10 of date_1 action showdat()
@ 50,50 LABEL datum ;
PARENT Date_1 ;
VALUE "Datum" ;
@ 50,160 TEXTBOX date ;
PARENT Date_1 ;
WIDTH 120 ;
HEIGHT 30 ;
date
inputmask "99.99.9999"
VALUE Date()
ACTIVATE WINDOW Date_1
RETURN NIL
function showdat
cDat:=dtoc(Date_1.date.value)
cDatum:=right(cDat,4)+substr(cDat,4,2)+left(cDat,2)
MsgInfo(cDat)
MsgInfo(cDatum)
return
Btw: Why do I not get a syntax error because of the semicolon at value of label datum and why do I get a syntax error at the date statement in textbox?
Thank you for your help
Robert
PS: How can I append a screenshot to show you the result of my code?