thisform.TotalTxt.Value =thisform.AddTime(thisform.AddTime(thisform.Text1.Value, thisform.Text2.Value, .t.), thisform.Text3.Value)thanks.
>LPARAMETERS nSecs, nSec2, seconds_return >LOCAL c_hours, c_min, c_znak, nLocSec >IF TYPE("nSecs") # "C" .OR.; > TYPE("nSec2") # "C" .OR.; > TYPE("nSecs") # TYPE("nSec2") > RETURN IIF(seconds_return,0,"") >ENDIF >nLocSecs = VAL(LEFT(nSec2,2))*3600 >nLocSecs = nLocSecs + VAL(SUBSTR(nSec2,4,2))*60+ VAL(SUBSTR(nSec2,7,2)) >nLocSecs = nLocSecs + (VAL(LEFT(nSecs,2))*3600 + VAL(SUBSTR(nSecs,4,2))*60+ VAL(SUBSTR(nSecs,7,2))) > >nSecs = ABS(nLocSecs) >IF seconds_return > RETURN nSecs >ENDIF >c_hours = INT(nSecs/3600) >IF c_hours > 24 > RETURN "" >ENDIF >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_hours+":"+c_min+":"+nSecs > >>
>thisform.AddTime(thisform.AddTime(thisform.Text1.Value, thisform.Text2.Value, .t.), thisform.Text3.Value)