thisform.text1.value=ftime() thisform.text2.value=stime() thisform.text3.value=SecToTime(thisform.text2.value-thisform.text1.value) replace time1 with thisform.text1.value,; time2 with thisform.text2.value,; time3 with thisform.text3.value FUNCTION SecToTime(nSecs) LOCAL c_hours, c_min, c_znak IF nSecs == 0 RETURN "" ENDIF c_znak = IIF(nSecs < 0, "-","") nSecs = ABS(nSecs) c_hours = INT(nSecs/3600) nSecs = nSecs - (c_hours*3600) c_hours = IIF(c_hours<10,"0","")+ALLTRIM(STR(c_hours,15)) c_min = INT(nSecs/60) nSecs = nSecs - (c_min*60) c_min = IIF(c_min<10,"0","") + ALLTRIM(STR(c_min,15)) nSecs = IIF(nSecs<10,"0","") + ALLTRIM(STR(nSecs,10)) RETURN c_znak+c_hours+":"+c_min &&+":"+nSecs>hi all,
>thisform.text1.value=ftime() >thisform.text2.value=stime() >thisform.text3.value=thisform.text2.value-thisform.text1.value >replace time1 with thisform.text1.value >replace time2 with thisform.text2.value >replace time3 with thisform.text3.value > > >>thanks