Posted to tcl by greycat at Fri Jul 27 16:54:29 GMT 2018view pretty
# 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} }