On Fri, 2004-12-24 at 21:53, Benjamin Geer wrote:

> 
>   let _ =
>      let curr_time = time () in
>      let curr_tm = gmtime curr_time in
>      let new_time, _ = mktime {curr_tm with tm_hour = curr_tm.tm_hour+1} in
>      let diff = new_time -. curr_time in
>         Printf.printf "%f\n%f\n%f\n"
>            curr_time
>            new_time
>            diff  ;;
> 1103885443.000000
> 1103889043.000000
> 3600.000000
> - : unit = ()

-9 hours? Sounds like USA...

Here's me:

1103887404.000000
1103851404.000000
-36000.000000

That's Eastern Australia.
[should be +10 hours.. hmmm]

-- 
John Skaller, mailto:skaller@users.sf.net
voice: 061-2-9660-0850, 
snail: PO BOX 401 Glebe NSW 2037 Australia
Checkout the Felix programming language http://felix.sf.net