>some times user make mistake in feeding,
>
>instead of 08/2006 they feed like 8/06, if i store the value in a text box.
>
>warm regards,
>mk.

You could do something like that (in your validation routine):

LOCAL ldDate, lcOldDateFormat, lcOldCentury, lbRetVal
m.lcOldDateFormat = SET([DATE])
m.lcOldCentury    = SET([CENTURY])
SET DATE BRITISH
SET CENTURY ON
ldDate = CTOD([01/]+thisform.TextBoxName.Value)
IF NOT EMPTY(ldDate) && Correct date entered
   thisform.TextBoxName.Value = RIGHT(DTOC(ldDate),7) && To Expand TextBox value to full month and year
   m.lbRetVal = .t.
ENDIF
SET DATE &lcOldDateFormat
SET CENTURY &lcOldCentury
RETURN m.lbRetVal