.-

.-

[Anastasia Gornostaeva]

Hello.

open Unix

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


gives an negative result -7200.000000. Why? 

Re: [Caml-list] .-

[Benjamin Geer]

On Friday 24 December 2004 10:04, Anastasia Gornostaeva wrote:
> gives an negative result -7200.000000. Why?

I just tried it and got this result:

        Objective Caml version 3.08.1

# #load "unix.cma" ;;
# open Unix

  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 = ()

Ben

Re: [Caml-list] .-

[skaller]

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

Re: [Caml-list] .-

[Benjamin Geer]

On Friday 24 December 2004 11:25, skaller wrote:
> > 3600.000000
> > - : unit = ()
>
> -9 hours? Sounds like USA...

I'm in London; I expect that's 3600 seconds, i.e. the one-hour difference 
specified in the program.  (It only worked because my local time zone is GMT, 
for the reasons others have given.)

Ben

Re: [Caml-list] .-

[Alexander Fuchs]

Anastasia Gornostaeva wrote:
> open Unix
> 
> 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
> 
> 
> gives an negative result -7200.000000. Why?

Form the manual:

gmtime : Assumes UTC (Coordinated Universal Time), also known as GMT.

mktime : The tm argument is interpreted in the local time zone.

So, actually you compare GMT with your local time zone, which in my case 
(Germany) returns 0 for the above example.


Try localtime instead of gmtime:

localtime : Assumes the local time zone.


	Alex

Re: [Caml-list] .-

[Anastasia Gornostaeva]

On Fri, Dec 24, 2004 at 12:07:35PM +0100, Alexander Fuchs wrote:

> Form the manual:
> 
> gmtime : Assumes UTC (Coordinated Universal Time), also known as GMT.
> 
> mktime : The tm argument is interpreted in the local time zone.
> 
> So, actually you compare GMT with your local time zone, which in my case 
> (Germany) returns 0 for the above example.
> 
> 
> Try localtime instead of gmtime:
> 
> localtime : Assumes the local time zone.
> 
Great, thank you. Now it works as expected.

ermine

Re: [Caml-list] .-

[Julien Cristau]

On 24/12/2004-11:10, Anastasia Gornostaeva wrote:

> Hello.
> 
> open Unix
> 
> 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
> 
> 
> gives an negative result -7200.000000. Why? 
> 
Probably because Unix.mktime's argument is interpreted in the local time 
zone (as explained in unix.mli). You probably want to call 
Unix.localtime instead of Unix.gmtime.

HTH,
Julien

Re: [Caml-list] .-

[skaller]

On Fri, 2004-12-24 at 21:04, Anastasia Gornostaeva wrote:
> Hello.
> 
> open Unix
> 
> 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
> 
> 
> gives an negative result -7200.000000. Why? 

Because you live in Russia not London.

gmtime is adjusting for your timezone. Instead of 1 hour,
you're getting -2 hours. So I am going to guess you live
in a GMT+3 hour timezone .. so that's Western Russia,
perhaps Moscow?

-- 
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

Re: [Caml-list] .-

[Anastasia Gornostaeva]

On Fri, Dec 24, 2004 at 10:19:12PM +1100, skaller wrote:

> Because you live in Russia not London.
> 
> gmtime is adjusting for your timezone. Instead of 1 hour,
> you're getting -2 hours. So I am going to guess you live
> in a GMT+3 hour timezone .. so that's Western Russia,
> perhaps Moscow?

yes Moscow, thanks :)

ermine