Local loForm
loForm = CreateObject("form_date")
loForm.show( 1 )

DEFINE CLASS form_date AS form

	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT text1 AS textbox WITH ;
		StrictDateEntry =  0 , ;
		Alignment =  3 , ;
		Value = (date()), ;
		Height =  23 , ;
		Left =  108 , ;
		Top =  84 , ;
		Width =  100 , ;
		Name = "Text1"


	PROCEDURE text1.Valid
		IF EMPTY(This.Value) = .T. AND This.Text <> TRANSFORM({},"@"+This.Format)  
			MessageBox("Дата введена некорректно!")  
		ENDIF
	ENDPROC


ENDDEFINE

LOCAL lcFieldName, lnState
lcFieldName = JustExt(this.ControlSource)
lnState = GetFldState(m.lcFieldName)

IF EMPTY(This.Value) AND m.lnState IN ( 2 , 4 )
	* Данное поле пытались изменить, но значение осталось пустым

	* Сбрасываю признак изменения поля
	=SetFldState(m.lcFieldName, m.lnState- 1 )
ENDIF

Local loForm
loForm = CreateObject("form_date")
loForm.show( 1 )

DEFINE CLASS form_date AS form

	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT text1 AS textbox WITH ;
		StrictDateEntry =  0 , ;
		Alignment =  3 , ;
		Height =  23 , ;
		Left =  108 , ;
		Top =  84 , ;
		Width =  100 , ;
		Name = "Text1"


	PROCEDURE Load
		Create Cursor test (f1 D)
		Append blank
		replace f1 with Date()
	ENDPROC


	PROCEDURE Init
		ThisForm.text1.ControlSource="test.f1"
	ENDPROC


	PROCEDURE text1.Valid
		#define DIGITS "0123456789"

		IF EMPTY(This.Value) = .T. AND Empty(Chrtran(this.Tag, Chrtran(This.Tag,DIGITS,""), "")) = .F.
			MessageBox("Дата введена некорректно!")  
		EndIf

		* Сброс сохраненного значения
		this.Tag = ""
	ENDPROC


	PROCEDURE text1.InteractiveChange
		This.Tag = TransForm(This.Text)
	ENDPROC


ENDDEFINE