>Try this:

PROCEDURE Text1.Init
>    THIS.Value = DATE ()
>ENDPROC
>
>PROCEDURE Text1.LostFocus
>    LOCAL ldDate AS DATE
>    ldDate = THIS.Value
>    SET DATE YMD
>    THIS.Value = DATE (YEAR (ldDate), MONTH (ldDate), DAY (ldDate))
>ENDPROC

HTH

but in this case, date arrangment changed when text1 getfocus and lostfocus.