date now-time)) (define now-day-time (date->time-utc (string->date (date->string now-date "~Y ~m ~d") "~Y ~m ~d"))) (define now-month-time (date->time-utc (string->date (string-append (date->string now-date "~Y ~m") " 01") "~Y ~m ~d"))) (define one-day (time-difference (make-time time-utc 0 86400) (make-time time-utc 0 0))) (define one-short-month (time-difference (make-time time-utc 0 2332800) (make-time time-utc 0 0))) ?>

# Custom Report Generator

Run report on -

Run the report
on all projects that:

string (time-utc->date (subtract-duration now-day-time one-day)) "~Y-~m-~d") "\">" )) ?>
Showed activity more recently than:
string (time-utc->date (add-duration now-day-time one-day)) "~Y-~m-~d") "\">" )) ?>
Showed activity no later than:

## Activity Report

Daily |  |
Monthly |  |
Custom |  |
| Show time spent on projects