Converting mins to hours and mins

[dcomit]

Tcl 8.4 on Solaris 10

I’m trying to convert minutes to hours and minutes.

set x [lindex $xlateInVals 0]
set x [string trimleft $x 0]
set x [expr $x * 60]
set hhmm [clock format $x -format "%H%M"]
puts "Time Out >$hhmm<"
set xlateOutVals $hhmm

If xlateInVals is 0141 the result I’m getting is 0321, but it should be 0221. I’m obviously doing something wrong but I can’t work out what.

Thanks,
Dave

 

[Bong]

You need to set the GMT flag, otherwise the clock interpreter will try to be "helpful":

% clock format $x -format "%H%M" -gmt 1
0221

_________________
Bob Rashkin

 

[dcomit]

It doesn't work for me.

tcl>set x 0141
0141
tcl>set hhmm [clock format $x -format "%H%M" -gmt 1]
0001

 

[Bong]

You still need to pass a number of seconds into the clock format.

_________________
Bob Rashkin

 

[dcomit]

You're absolutely right - thanks.

tcl>set x 141
141
tcl>set hhmm [clock format [expr $x*60] -format "%H%M" -gmt 1]
0221