[HJG] 2012-02-02 Small and simple tcl-only program to show the time at some selected places around the world. ====== # Worldtime-clock - http://wiki.tcl.tk/14375 # HaJo Gurt - 2012-02-02 catch {console show} catch {wm withdraw .} proc q {} {exit} proc w {} { puts "Time around the world:" foreach tz { :Pacific/Honolulu :America/Los_Angeles :America/Chicago :America/New_York :UTC :Europe/Berlin :Africa/Cairo :Europe/Moscow :Asia/Tokyo :Australia/Canberra } { set td [clock format [clock seconds] \ -format "%H:%M:%S %Y-%m-%d %a %z" -timezone $tz] puts [format "%-22s %s" $tz $td] } } console title "Worldtime - w to refresh, q to quit" w #. ====== Result: === Time around the world: :Pacific/Honolulu 10:25:00 2012-02-13 Mon -1000 :America/Los_Angeles 12:25:00 2012-02-13 Mon -0800 :America/Chicago 14:25:00 2012-02-13 Mon -0600 :America/New_York 15:25:00 2012-02-13 Mon -0500 :UTC 20:25:00 2012-02-13 Mon +0000 :Europe/Berlin 21:25:00 2012-02-13 Mon +0100 :Africa/Cairo 22:25:00 2012-02-13 Mon +0200 :Europe/Moscow 23:25:00 2012-02-13 Mon +0300 :Asia/Tokyo 05:25:00 2012-02-14 Tue +0900 :Australia/Canberra 07:25:00 2012-02-14 Tue +1100 === ---- '''See also:''' [Wallclock] [clock format] [timezone] <> Date and Time