This.Value = TTOD(Table.field)and then in the valid, or wherever works best for you,
Local llOk llOk = .T. IF !EMPTY(DTOC(this.Value)) && valid date? IF this.Value <> TTOD(table.field) && changed? replace table.field WITH DTOT(this.Value) Endif Else llOk = .F. MessageBox('Invalid date') ENDIF Return llOk>Does anyone know if it is possible to limit a textbox to only display and allow editing of the date portion of a datatime field?