egghelp/eggheads community

duraiton help [SOLVED]

2006-05-29T04:37:13-04:00

thanks noname that works perfectly does that i needed

Statistics: Posted by Slightz — Mon May 29, 2006 4:37 am

duraiton help [SOLVED]

2006-05-28T15:49:38-04:00

try clock scan

try sentence

Statistics: Posted by noname — Sun May 28, 2006 3:49 pm

duraiton help [SOLVED]

2006-05-28T12:04:03-04:00

try clock scan

Statistics: Posted by Ofloo — Sun May 28, 2006 12:04 pm

duraiton help [SOLVED]

2006-05-28T10:30:55-04:00

If you dont want duration to show more than 2 units, you could cut off the rest by using:
lrange [duration $d] 0 3
this should cut '1 week 2 days 7 hours 30 minutes' to '1 week 2 days'. No need to write an own proc about it :D.

i just wanted to have days - no years or weeks
it should cut '1 week 2 days 7 hours 30 minutes' to '9 days 7 hours 30 minutes' ;)

PS: why use a regexp "\[^\\d\]" if you can use a non regexp expression like (though this matchs rather {^\s*\d+\s*$}):
![string is integer -strict $timestamp]
Differences: your regexp continues if string is zero. 'string is' is valid when the value is trailed or lead by whitespace characters and therefore more accurate for TCL to determine, if a following integer operation will succeed.

tnx a lot - mayb 'string is' was a bit to easy -.^

Statistics: Posted by noname — Sun May 28, 2006 10:30 am

duraiton help [SOLVED]

2006-05-28T06:54:08-04:00

If you dont want duration to show more than 2 units, you could cut off the rest by using:
lrange [duration $d] 0 3
this should cut '1 week 2 days 7 hours 30 minutes' to '1 week 2 days'. No need to write an own proc about it .

PS: why use a regexp "\[^\\d\]" if you can use a non regexp expression like (though this matchs rather {^\s*\d+\s*$}):
![string is integer -strict $timestamp]
Differences: your regexp continues if string is zero. 'string is' is valid when the value is trailed or lead by whitespace characters and therefore more accurate for TCL to determine, if a following integer operation will succeed.

Statistics: Posted by De Kus — Sun May 28, 2006 6:54 am

duraiton help [SOLVED]

2006-05-27T16:48:41-04:00

Code:

set prestamp_ago [duration [expr [unixtime] - $prestamp]]; # e.g. 4 years 37 weeks 2 days 18 hours 48 minutes 58 secondsset prestamp_day [clock format $prestamp -format "%m/%d"]; # e.g. 05/27

but duration isnt the best method imho... noone wants to calc 1y 33weeks too days... so i here is my code, which i'm usin...

Code:

### dupecheck[...]    set nothetime [unixtime]    set tim_ago [no:dupe:ago $nothetime $tim]; #e.g. 20d 7h 13m 16s    set tim_day [no:dupe:day $tim]; # e.g. 05/07[...]### dupe tim agoproc no:dupe:ago { unixtime prestamp } { if {[regexp "\[^\\d\]" $unixtime] != "1" && [regexp "\[^\\d\]" $prestamp] != "1" && $unixtime < "2000000000" && $prestamp < "2000000000" && $unixtime != "0" && $prestamp != "0"} {   set timdiff [expr $unixtime - $prestamp]   set d [expr {$timdiff/86400}]  set h [expr {($timdiff%86400)/3600}]  set m [expr {(($timdiff%86400)%3600)/60}]  set s [expr {(($timdiff%86400)%3600)%60}]  append ds $d "d"  append hs $h "h"  append ms $m "m"  append ss $s "s"  if { $d > 0 } {   append dupeago $ds " " $hs " " $ms " " $ss  } elseif { $h > 0 } {   append dupeago $hs " " $ms " " $ss  } elseif { $m > 0 } {   append dupeago $ms " " $ss  } else {   append dupeago $ss  }  return $dupeago }}### dupe day agoproc no:dupe:day { prestamp } { if {[regexp "\[^\\d\]" $prestamp] != "1" && $prestamp < "2000000000" && $prestamp != "0" && $prestamp != "0"} {   return  [clock format $prestamp -format "%m/%d"] }}

btw: a new version will b published in a few days -.^

Statistics: Posted by noname — Sat May 27, 2006 4:48 pm

duraiton help [SOLVED]

2006-05-23T23:53:01-04:00

i haved... read and just got to change the format from 24 horus to PM AM but i dont get it how can i tweak that pice of code or how can i do it

can you help me out

Statistics: Posted by Slightz — Tue May 23, 2006 11:53 pm

duraiton help [SOLVED]

2006-05-23T22:07:35-04:00

From tcl-commands.doc:

duration
Returns: the number of seconds converted into years, weeks, days, hours,
minutes, and seconds. 804600 seconds is turned into 1 week 2 days
7 hours 30 minutes.

You may also find the clock manual page of use.

Statistics: Posted by Alchera — Tue May 23, 2006 10:07 pm

duraiton help [SOLVED]

2006-05-29T04:38:36-04:00

Hello, yes i know this has been asked and i searched for "duration" but can't fiure out im a newbie to TCL and is a hard language i did not code tthsi script is just part of it but what im tryign to do is instead of showing

Code:

05/23/2006 7:45:PM

i wan't somethign like this

Code:

2 weeks 1 day 3 hours 4 mins 30 secs 05/23

something liek this i been looking at this pice of the code but cant get it

Code:

proc check:stamp { timestamp } { regsub -- {[nN][oO][wW]} $timestamp "" timestamp if { $timestamp == "" || $timestamp == "\-" } { return [unixtime] } else { return $timestamp}}proc unx2nps { timestamp } { if {[regexp "\[^\\d\]" $timestamp]} { error "unx2nps: parameter is not a valid unix timestamp" } if {$timestamp > "2000000000"} { error "unx2nps: parameter is too large" } return [clock format $timestamp -format "%m/%d/%Y %l:%M:%p"]}

i was tryign to set something like

set blah [duration $unx2nps]

but then the script does nto output the info

any help would be thanksfull

Thank You

Statistics: Posted by Slightz — Tue May 23, 2006 8:32 pm