Tcl to calculate date/time difference

Use the tcl clock command.  (Do the math with the output of clock scan, and covert back to readable format with clock format.)

See http://tmml.sourceforge.net/doc/tcl/clock.html#SECTid81dd9d8

– Glenn

Glenn,

Here is a tangible example that might be similar enough to help you get going.

In this esample, I kill a message if the time stamp (TS) stored in AIL-6 of a SIU scheduling message is older than 6 hours when it hits cloverleaf.

The URL to the entire trxid proc can be found at

https://usspvlclovertch2.infor.com/viewtopic.php?t=1562&” class=”bbcode_url”>https://usspvlclovertch2.infor.com/viewtopic.php?t=1562&

Here is the code snippet from ( trxid_SIU_rxtfc.tcl ) that illustrates how I call the proc ( oth_chk_time_span.tcl ) that does the acutal work of figuring out the time difference:

[code]

How about something like this:

set timediff [expr [clock scan “20080616T235900”]-[clock scan “20080613T130000”]]

set days [expr $timediff/86400]

set hours [expr $timediff%86400/3600]

set minutes [expr $timediff%86400%3600/60]

echo “$days days $hours hours $minutes min.”

Notice the ‘T’ between the date and the time…. I am sure you can do an insert of some sort….  Also the time must have hhmmss in it for clock scan to work….The results:

3 days 10 hours 59 min.

This was quick and dirty so I hope I didn’t miss anything… Happy Motoring….