time thingy help !

[Psx|Dk]

Hey all

i extract timestamp from a mysqldb

looks like this 20050426151138

what i need is a way to convert it to following !

if i need to see time after 1½ year
want it to look like this

1y 6m 16h 9m 19s



any there can help me out here !

[De Kus]

try this:

Code: Select all

clock scan "[string range $sqlstamp 0 7] [string range $sqlstamp 8 end]"

tcl: evaluate (.tcl): clock scan "20050426 151138"
Tcl: 1114524698
tcl: evaluate (.tcl): ctime 1114524698
Tcl: Tue Apr 26 15:11:38 2005

http://www.tcl.tk/man/tcl8.4/TclCmd/clock.htm#M45

reading The Manual gives enlightment .

for the rest you just need to expr the unixtime stamps and phrase them via the "duration" TCL-Command .