Tempo Unix e problema dell'anno 2038

[vuott]

https://foro.gambas-es.org/viewtopic.php?f=1&t=6895

[Gianluigi]

Scusa l'ignoranza sui millisecondi, ma così non va bene?

Codice: [Seleziona]

Public Sub Main()
  '' occorre attivare gb.util
  Print Date.ToUnixTime(Now) ' secondi
  Print Date.ToUnixTime(Now) * 1000 ' millisecondi

End

 

[vuott]

Interessante, ma non restituisce i millisecondi.   

[Gianluigi]

Interessante, ma non restituisce i millisecondi.   

 

[Gianluigi]

Da Wikipedia:

Tempo (Unix)
Nei sistemi operativi Unix e Unix-like il tempo viene rappresentato come offset in secondi rispetto alla mezzanotte (UTC) del 1º gennaio 1970 (detta epoca).

Quindi stiamo parlando di secondi e non di millisecondi

È un discorso già affrontato, in Gambas la parte più piccola in cui si può misurare il tempo è il secondo, pertanto per avere i millisecondi l'unica è moltiplicare per mille i secondi, ottenendo naturalmente un arrotondamento al secondo inferiore, vale a dire che fin che non scatta il nuovo secondo è valido il precedente e questo verrà ritornato dalla funzione.

Se uno ha bisogno di una maggiore precisione deve utilizzare librerie esterne vedi la nostra wiki o rivolgersi ad altri linguaggi di programmazione.

 

[vuott]

in Gambas la parte più piccola in cui si può misurare il tempo è il secondo

...forse... direi utilizzare .
Infatti l'entità temporale dei millisecondi è attestata comunque dalla costante nativa gb.Millisecond

Inoltre questi due comandi:

Codice: [Seleziona]

Print CFloat(Now)

Codice: [Seleziona]

Print CStr(Now)

restituiscono rappresentazioni inferiori al secondo.   

[Gianluigi]

in Gambas la parte più piccola in cui si può misurare il tempo è il secondo

...forse... direi utilizzare .
Infatti l'entità temporale dei millisecondi è attestata comunque dalla costante nativa gb.Millisecond

Inoltre questi due comandi:

Codice: [Seleziona]

Print CFloat(Now)

Codice: [Seleziona]

Print CStr(Now)

restituiscono rappresentazioni inferiori al secondo.   

Si hai ragione, mi sono espresso male.
Stavo per l'appunto facendo esperimenti sul Frac di CFloat(Now) (che restituisce i microsecondi da mezzanotte) per vedere se avevo torto... 

P.S. Oltretutto pare che non sia come pensavo, vale a dire che i secondi si arrotondano come normale su base 500 ms se sotto o sopra.

[Gianluigi]

Basta ci rinuncio, l'unica cosa che sono riuscito ad ottenere è un bel (si fa per dire) mal di testa.
Oltretutto non mi ero neanche accorto che la discussione su forum spagnolo era proseguita e avevi postato la funzione di gb.util con un escamotage che dovrebbe restituire i decimali. 
Ma dato, e non concesso che sia vero, che la funzione si arrotonda su base 500ms all'ora l'escamotage non dovrebbe funzionare senza tenerne conto 
 

[kicco]

 
Stavo riguardando la questione dei millisecondi...
Time per esempio restituisce anche i millisecondi, anche se succede una cosa strana:

Codice: [Seleziona]

Public Sub Main()
  
  Print "Pippo  " & Time
  Print Time

End

Nel primo Print ottengo anche i millisecondi
Nel secondo Print no!   
Un baco?
Wait è espresso con un  numero decimale in secondi, con risoluzione al millisecondo (0.001), sembrerebbe!

[Gianluigi]

Stavo riguardando la questione dei millisecondi...
Time ..·
Nel primo Print ottengo anche i millisecondi
Nel secondo Print no!   
Un baco?

Succede anche a me, non saprei se trattasi di baco.
Potrebbe essere che vi siano in ballo dei cambiamenti, ad esempio nella wiki è presente questa funzione però non credo ci sia un componente a supportarla. 
O al contrario trattasi di cose vecchie... boh!

 

[vuott]

Nel primo Print ottengo anche i millisecondi

...sembrerebbe che l'operatore " & " determini quel fenomeno.

Provate anche il semplice esempio:

Codice: [Seleziona]

Public Sub Main()

  Print Null & Time

End

[kicco]

...sembrerebbe che l'operatore " & " determini quel fenomeno.

...e indipendentemente dalla sua posizione.

Codice: [Seleziona]

print time & "prova"

porta allo stesso risultato!
 
 

[vuott]

Torno alla questione della quantità di secondi trascorsi dalla data iniziale UNIX.

Ebbene, a me queste due righe non restituiscono il medesimo risultato:   

Codice: [Seleziona]

Public Sub Main()

   Print CFloat(DateDiff(CDate("01/01/1970"), Now, gb.Second))

   Print CFloat(Date.ToUnixTime(Now))

End

Affinché i due risultati siano identici, devo aggiungere 4 ore alla data/orario presente nella prima riga, cioè così:   

Codice: [Seleziona]

Public Sub Main()

   Print CFloat(DateDiff(CDate("01/01/1970 04:00:00"), Now, gb.Second))

   Print CFloat(Date.ToUnixTime(Now))

End

Risulta anche a voi ?   


Il problema sembra essere la prima riga, giacché utilizzando funzioni esterne standard C, ottengo il risultato identico alla seconda riga:

Codice: [Seleziona]

Library "libc:6"

Public Struct timespec
  tv_sec As Long
  tv_nsec As Long
End Struct

Private Const CLOCK_REALTIME As Integer = 0

' int clock_gettime (clockid_t __clock_id, struct timespec *__tp)
' Get current value of clock CLOCK_ID and store it in TP.
Private Extern clock_gettime(__clock_id As Integer, __tp As Timespec) As Integer


Public Sub Main()
  
  Dim spec As New Timespec
  
  clock_gettime(CLOCK_REALTIME, spec)
  
  Print spec.tv_sec, "(dalla funzione esterna)"
  
  Print CFloat(Date.ToUnixTime(Now)), "(con il Metodo .ToUnixTime() )"

  Print CFloat(DateDiff("01/01/1970 04:00:00", Now, gb.Second)), "(con 4 ore aggiuntive)"

   Print CFloat(DateDiff("01/01/1970", Now, gb.Second)), "(senza ore aggiuntive)"
  
End

[Gianluigi]

@Kicco

Bisognerebbe capire esattamente quali passaggi addotta Print per trasformare in String ciò che scrive.
Infatti se scriviamo Print CStr(time) otteniamo i millisecondi...

@Vuott

Risulta anche a voi ?   

Io ottengo lo stesso risultato: 

Codice: [Seleziona]

Public Sub Main()
  
  Print CFloat(DateDiff(CDate("01/01/1970 04:00:00"), Now, gb.Second))

  Print CFloat(Date.ToUnixTime(Now))

End

In Console:

Codice: [Seleziona]

1523015660
1523015660

 

P.S. Il tuo SO è localizzato?

[vuott]

P.S. Il tuo SO è localizzato?

Dove lo vedo ?