>>STORE TTOC(CTOT(thisform.text2.value)+CTOT(thisform.text1.value)+{^2000/01/01:},2) to thisform.text3.value>>

You can check the code below..

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)