>>> ************************************* >>> FUNCTION Valid >>> ************************************* >>> LOCAL llReturn, lcThisVal, lcStripVal, ltVal, lcTime >>> lcThisVal = UPPER(This.Value) >>> lcStripVal = CHRTRAN(lcThisVal, ":", "") >>> llReturn = .T. >>> ltVal = CTOT(lcThisVal) >>> IF EMPTY(ltVal) >>> llReturn = EMPTY(lcStripVal) >>> ELSE >>> IF NOT ISDIGIT(ALLTRIM(LEFT(lcStripVal, 2))) >>> llReturn = .F. >>> ELSE >>> lcTime = TTOC(ltVal, 2) >>> This.Value = ALLTRIM(LEFT(lcTime, 5) + SUBSTR(lcTime, AT(" ", lcTime))) > > *-S-*[ Keep time displaying only significant digits > IF LEFT(This.Value, 1) = "0" > This.Value = " " + SUBSTR(This.Value, 2) > ENDIF > *-S-*] > >>> This.Refresh() >>> ENDIF >>> ENDIF >>> RETURN (llReturn) > >