>with thisform >.txtDate.value = dtoc(v_addcalls.lo_datetime) >.txtDate.enabled = .t. > >local intHour, intMin, intSec > >intHour = iif(hour(v_addcalls.lo_datetime) < 10, "0" + str(hour(v_addcalls.lo_datetime),1,0), str(hour(v_addcalls.lo_datetime),2,0)) >intMin = iif(minute(v_addcalls.lo_datetime) < 10, "0" + str(minute(v_addcalls.lo_datetime),1,0), str(minute(v_addcalls.lo_datetime),2,0)) >intSec = iif(sec(v_addcalls.lo_datetime) < 10, "0" + str(sec(v_addcalls.lo_datetime),1,0), str(sec(v_addcalls.lo_datetime),2,0)) > >.txtTime.value = intHour + ":" + intMin + ":" + intSec >.txtTime.enabled = .t. >>
IntHour = strtran(str(val(intHour),2,0), ' ', '0') IntSec = strtran(str(val(intSec),2,0), ' ', '0') IntSec = strtran(str(val(intSec),2,0), ' ', '0') local Success Success = TRUE if( Success ) if( !between(val(intHour), 0, 23) ) Success = FALSE endif endif if( Success ) if( !between(val(intMin), 0, 59) ) Success = FALSE endif endif if( Success ) if( !between(val(intSec), 0, 59) ) Success = FALSE endif endif return Success