set %cpshesap $int($calc((1 / %time2) * $len(%TBtriva))) $+ . $+ $left($gettok($calc((1 / %time2) * $len(%TBtriva)),2,46),2)