Posted to tcl by greycat at Fri Jul 27 16:54:29 GMT 2018view raw

  1. # Then, moving forward, can you send this to just George and I every last 5
  2. # calendar days of each month that includes all charges outstanding from the
  3. # beginning of the year, like you provided below?
  4.  
  5. if {[lindex $argv 0] ne "-f"} {
  6. set now [clock seconds]
  7. set nowmonth [clock format $now -format %m]
  8. set later [expr {$now + 5*86400}]
  9. set latermonth [clock format $later -format %m]
  10. if {$nowmonth eq $latermonth} {exit 0}
  11. }
  12.