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