STORE TTOC(CTOT(thisform.text2.value)+CTOT(thisform.text1.value)+{^2000/01/01:},2) to tResult &&&thisform.text3.value Thisform.text3.value = SUBSTR(tResult,1,5) Z = Thisform.text3.value STORE SUBSTR(z,1,2) TO thour STORE SUBSTR(z,4,2) TO tMinute nTime= tHour+"."+tMinute VAL(nTime) Thisform.text3.value = VAL(nTIME)