PB9 у меня это визуальный компонент:


forward
global type n_editmask from editmask
end type
end forward

global type n_editmask from editmask
integer width = 352
integer height = 84
integer textsize = -10
integer weight = 400
fontcharset fontcharset = russiancharset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial CYR"
long textcolor = 33554432
alignment alignment = center!
maskdatatype maskdatatype = stringmask!
end type
global n_editmask n_editmask

forward prototypes
public subroutine u_convert_type_string ()
public subroutine u_convert_type_datetime ()
end prototypes

public subroutine u_convert_type_string ();string temp_value

temp_value = this.text
IF temp_value = "00.00.0000" or String(Date(temp_value), "DD.MM.YYYY") = "01.01.1900" THEN
temp_value = ""
END IF

this.SetMask(StringMask!,"")
this.text = temp_value

end subroutine

public subroutine u_convert_type_datetime ();string temp_value

temp_value = this.text
IF temp_value = "00.00.0000" THEN
temp_value = ""
END IF
this.SetMask(DateTimeMask!,"dd.mm.yyyy")
this.text = temp_value

end subroutine

event losefocus;this.u_convert_type_string()

end event

on n_editmask.create
end on

on n_editmask.destroy
end on

event getfocus;this.u_convert_type_datetime()
this.SelectText(1, Len(this.Text))

end event

В этом случае появляется возможность ввода некорректного времени!