<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html><body>
> By using a external standard C function, its result is same that .ToUnixTime() Method:<br /><br />Obviously still no <strong><span class="commit-sha">72384c08</span></strong><span class="commit-sha"> fix.<br /><br /></span><br /><br /><br /><br />
<p>Il 07.04.2018 19:39 vuott@tiscali.it ha scritto:</p>
<blockquote type="cite" style="padding-left:5px; border-left:#1010ff 2px solid; margin-left:5px; width:100%"><!-- html ignored --><!-- head ignored --><!-- meta ignored -->By using a external standard C function, its result is same that .ToUnixTime() Method:<br /><br /><span style="color: #993300;">Library "libc:6"</span><br /><br /><span style="color: #993300;">Public Struct timespec</span><br /><span style="color: #993300;"> tv_sec As Long</span><br /><span style="color: #993300;"> tv_nsec As Long</span><br /><span style="color: #993300;">End Struct</span><br /><br /><span style="color: #993300;">Private Const CLOCK_REALTIME As Integer = 0</span><br /><br /><span style="color: #993300;">' int clock_gettime (clockid_t __clock_id, struct timespec *__tp)</span><br /><span style="color: #993300;">' Get current value of clock CLOCK_ID and store it in TP.</span><br /><span style="color: #993300;">Private Extern clock_gettime(__clock_id As Integer, __tp As Timespec) As Integer</span><br /><br /><br /><span style="color: #993300;">Public Sub Main()</span><br /> <br /><span style="color: #993300;"> Dim spec As New Timespec</span><br /> <br /><span style="color: #993300;"> clock_gettime(CLOCK_REALTIME, spec)</span><br /> <br /><span style="color: #993300;"> Print spec.tv_sec, "(from external function)"</span><br /> <br /><span style="color: #993300;"> Print CFloat(Date.ToUnixTime(Now)), "(with .ToUnixTime() Method)"</span><br /> <br /><span style="color: #993300;"> Print CFloat(DateDiff("01/01/1970 04:00:00", Now, gb.Second)), "(by adding 4 hours)"</span><br /> <br /><span style="color: #993300;"> Print</span><br /><span style="color: #993300;"> Print CFloat(DateDiff("01/01/1970", Now, gb.Second)), "(--> NO added hours)"</span><br /> <br /><span style="color: #993300;">End<br /><br /><br /><span style="color: #000000;">regards</span><br /><span style="color: #000000;">vuott</span><br /></span><br /><br /><br /><br /><br /><br /><br /><br />
<p>Il 07.04.2018 18:47 Gianluigi ha scritto:</p>
<blockquote style="padding-left: 5px; border-left: #1010ff 2px solid; margin-left: 5px; width: 100%;">
<div dir="ltr"><br />
<div class="gmail_extra"><br />
<div class="gmail_quote">2018-04-07 18:15 GMT+02:00 Benoît Minisini <span><<a href="mailto:g4mba5@gmail.com">g4mba5@gmail.com</a>></span>:<br />
<blockquote class="gmail_quote" style="margin: 0px 0px 0px 0.8ex; border-left: 1px solid #cccccc; padding-left: 1ex;">Le 07/04/2018 à 02:02, <a href="mailto:vuott@tiscali.it">vuott@tiscali.it</a> a écrit :<br />
<blockquote class="gmail_quote" style="margin: 0px 0px 0px 0.8ex; border-left: 1px solid #cccccc; padding-left: 1ex;">Hello,<br /><br /> I do not understand why these two lines do not return the same result.<br /><br /> Public Sub Main()<br /><br /> Print CFloat(DateDiff(CDate("01/01/1970"), Now, gb.Second))<br /><br /> Print CFloat(Date.ToUnixTime(Now)) ' Obviously we have to activate "gb.util" Component<br /><br /> End<br /><br /><br /> So that the two results are identical, I have to add 4 hours !<br /><br /> Public Sub Main()<br /><br /> Print CFloat(DateDiff(CDate("01/01/1970 04:00:00"), Now, gb.Second)) ' Here I have to add 4 hours !<br /><br /> Print CFloat(Date.ToUnixTime(Now))<br /><br /> End<br /><br /><br /> regards<br /> vuott<br /><br /></blockquote>
<br /> It's a bug in Date.ToUnixTime() and Date.FromUnixTime() function.<br /><br /> Can you try with commit <a href="https://gitlab.com/gambas/gambas/commit/72384c0806071556d50e1e8870dd12f868985155">https://gitlab.com/gambas/gambas/commit/72384c0806071556d50e1e8870dd12f868985155</a> ?<br /><br /> Regards,<span class="gmail-HOEnZb"><span style="color: #888888;"><br /><br /> -- <br /> Benoît Minisini<br /><br /> --------------------------------------------------<br /><br /> This is the Gambas Mailing List:<br /><a href="https://lists.gambas-basic.org/listinfo/user">https://lists.gambas-basic.org/listinfo/user</a><br /><br /> Search the list:<br /><a href="https://lists.gambas-basic.org/cgi-bin/search.cgi">https://lists.gambas-basic.org/cgi-bin/search.cgi</a><br /><br /> Hosted by <a href="https://www.hostsharing.net">https://www.hostsharing.net</a><br /></span></span></blockquote>
</div>
<br />Sorry, I know I'm the most ignorant of all, but I think the error is in DateDif and not in ToUnixTime, as (perhaps) demonstrated as follows:<br /><br />Public Sub Main()<br /> <br /> unix<br /> diff<br /> <br />End<br /><br /><br />Private Sub unix()<br /><br /> Dim i, u, r As Float<br /><br /> i = 60 * 60 * 24 ' ms of one day<br /> u = CFloat(Date.ToUnixTime(Now)) ' epoc ms<br /> r = u / i<br /> r = Frac(r) ' remainder<br /> Print Time(r) ' UTC correct<br /><br />End<br /><br />Private Sub diff()<br /><br /> Dim i, u, r As Float<br /><br /> i = 60 * 60 * 24 ' ms of one day<br /> u = CFloat(DateDiff("01/01/1970", Now, gb.Second)) ' epoc ms???<br /> r = u / i<br /> r = Frac(r) ' remainder<br /> Print Time(r) ' UTC incorrect (+ 4 hrs)<br /><br />End<br /><br />Regards<br />Gianluigi</div>
</div>
</blockquote>
<!-- html ignored --><br /><br /><br />
<p>Con Mobile Open 6 GB hai 6 Giga, 600 minuti e 300 SMS per il tuo smartphone a 9€ al mese per sempre. Passa ora a Tiscali Mobile, il nostro mese è vero! <a href="http://tisca.li/Open6GB0318">http://tisca.li/Open6GB0318</a><br /><br /></p>
</blockquote>
</body></html>
<br><br/><br/>Con Mobile Open 6 GB hai 6 Giga, 600 minuti e 300 SMS per il tuo smartphone a 9€ al mese per sempre. Passa ora a Tiscali Mobile, il nostro mese è vero! <a href='http://tisca.li/Open6GB0318' target='_blank'>http://tisca.li/Open6GB0318</a><br/><br/>