[EMAIL PROTECTED] wrote:
> ahora: now
> hms: parse to-string ahora/time ":"
> seconds-from: (ahora - make date! [1 1 1970]) * 86400 + ((to-integer hms/1)
> * 3600) + ((to-integer hms/2) * 60) + (to-integer hms/3)
date: now
seconds: ((date - 1-1-1970) * 86400) + (date/time/hour * 3600) +
(date/time/minute * 60) + date/time/second
Ciao,
/Gabriele./
o--------------------) .-^-. (----------------------------------o
| Gabriele Santilli / /_/_\_\ \ Amiga Group Italia --- L'Aquila |
| GIESSE on IRC \ \-\_/-/ / http://www.amyresource.it/AGI/ |
o--------------------) `-v-' (----------------------------------o
