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}