Posted to tcl by greycat at Fri Jul 27 16:54:29 GMT 2018view raw
- # Then, moving forward, can you send this to just George and I every last 5
- # calendar days of each month that includes all charges outstanding from the
- # beginning of the year, like you provided below?
- if {[lindex $argv 0] ne "-f"} {
- set now [clock seconds]
- set nowmonth [clock format $now -format %m]
- set later [expr {$now + 5*86400}]
- set latermonth [clock format $later -format %m]
- if {$nowmonth eq $latermonth} {exit 0}
- }