***** A TCL Error Has Occurred ***** Event Handler: D:\Program Files\Siemens\HCL\xiadong\sanling.tcl Event: MOM_end_of_path Error Info: can't use floating-point value as operand of "%" while executing "expr int(($tcut1 % 3600) / 60)" (procedure "PB_CMD_minz_tcut_set" line 36) invoked from within "PB_CMD_minz_tcut_set" (procedure "MOM_end_of_path" line 25) invoked from within "MOM_end_of_path" Error Code: ARITH DOMAIN {floating-point value}

这个错误提示表明在计算表达式`expr int(($tcut1 % 3600) / 60)`时，无法使用浮点数作为操作数。

TCL中的取模运算符`%`要求操作数为整数。所以在这里，您需要确保`tcut1`的值是整数。

要解决这个问题，您可以尝试将`tcut1`转换为整数，可以使用`int()`函数或`round()`函数来实现。具体的修改代码如下：

set tcut1 [round $tcut1]
set hours [format "%02d" [expr int($tcut1 / 3600)]]
set minutes [format "%02d" [expr int(($tcut1 % 3600) / 60)]]
set seconds [format "%02d" [expr int($tcut1 % 60)]]

这样，您先将`tcut1`四舍五入到最近的整数值，然后再进行后续的计算和格式化操作。

请注意，在其他地方也可能存在类似的浮点数操作问题，您可以根据具体情况进行类似的修正。