timer1.timer
--------------------------------------------------------------------------------------------------
#DEFINE LONGDATE_LOC CDOW(DATE())+" "+CMONTH(DATE())+" "+ ;
ALLTRIM(STR(DAY(DATE())))+", "+ALLTRIM(STR(YEAR(DATE())))
IF This.Parent.TimeFormat = 0
This.Parent.txtTime.Value = IIF(VAL(SUBSTR(TIME(),1,2))>12, ;
ALLTRIM(STR((VAL(SUBSTR(TIME(),1,2))-12)))+SUBSTR(TIME(),3,6),TIME())
ELSE
This.Parent.txtTime.Value = TIME()
ENDIF
THIS.Parent.txtDate.Value = LONGDATE_LOC
--------------------------------------------------------------------------------------------------Download Program klik disini