[Risolto] Gambas 3.19.1: Now() + 1 = Float

[milio]

Fino alla versione 3.18.4 se aggiungevo un intero ad una data mi ritornava una data.

Adesso mi ritorna float.... Memore del topic sul Socket (https://www.gambas-it.org/smf/index.php?topic=10467.0), sono andato a vedere la guida:

Dates are numbers
A date & time value is implicitly converted to a floating point number whose integer part is the internal date part (the number of days since the origin), and fractional part is the internal time part.

Consequently, you can easily do day arithmetic between dates using the standard + and - operators.

Quindi e' un bug o e' giusto che debba spulciare le 2200 classi del mio progetto che per la maggior parte trattano date appunto, usando la funzione DateAdd() o la conversione del risultato con CDate?

[Gianluigi]

Scusa milio ma non mi è chiaro quello che stai dicendo, se scrivo questo codice:

Codice: [Seleziona]

Public Sub Main()

  Dim n As Float = CFloat(Date(Now))
  Print CDate(n) '<--- 17/04/2024 00:00:00

End

ottengo il risultato atteso, tu cosa ottieni?

 

[milio]

Codice: [Seleziona]

Public Sub Main()

  Print Now()

End

Ottengo 17/04/2024 16:23:07 (Date)

Codice: [Seleziona]

Public Sub Main()

  Print Now() + 1

End

Ottengo 2492523,59976815 (Float)

Anche qui con la versione 3.18.4 ottenevo sempre un valore di tipo Date

[Gianluigi]

Scusa stavo scrivendoti e ho perso tutto 
Come mio solito avevo capito alla rovescia, ora scrivo a Benoit e chiedo del cambiamento

 

[milio]

Ti ringrazio tanto.... 

[Gianluigi]

milio, Benoit dice che non è come sostieni:

Ho appena provato con Gambas 3.18.4:

$ gbx3 -e "Now + 1"
2492523.64755762

Quindi per favore invia il codice che restituirebbe una data!

Benoît Minisini.

Manda del codice da fargli avere, Grazie

 

[Gianluigi]

Sembra che Benoit abbia ragione, ho montato una 18.04.4 su una virtuale e ottengo float.
Sei sicuro di quello che hai scritto?

 

[milio]

Mi puoi eseguire questo codice sulla due versioni e vedere se sono io pazzo o no? 

Codice: [Seleziona]

Public Sub Main()
  
  Dim dDate As Date
  
  
  dDate = Now()
  Print dDate
  
  dDate += 1
  
  Print dDate
  
End

[Gianluigi]

Mi puoi eseguire questo codice sulla due versioni e vedere se sono io pazzo o no? 

Si, con questo codice si ottengono risultati differenti.
L'ho scritto a Benoit, perché non lo hai passato subito? 

 

[milio]

Perchè?

perchè: 

Codice: [Seleziona]

Public Sub Main()

  Do
    Print "Milio è un minchiosauro"
  Loop

end

Ho dato per scontato, senza provare, che la funzione Now() As Date restituisse una data e non un Float...

Comunque sia io ho sempre utilizzato una Variabile Date che poi veniva caricata con Now(), non ho mai usato la funzione Now() da sola come ho erroneamente scritto nell'esempio del primo post.

Scusate....

[Gianluigi]

 

... ok, ogni tanto fa bene scherzare, ma non sono d'accordo, tu per me ma credo di poter parlare a nome di tutti, sei un mentore.
Conosciamo tutti il tuo valore e siamo grati della tua partecipazione. 

 

[kicco]

I agree!
 

[Gianluigi]

Benoit riconosce che si tratta di un bug, finalmente siamo riusciti a farci capire 

It's a bug then. (dDate + 1) is a Float, but when assigning the result to dDate, it must be converted back to a Date automatically.

Regards,

Benoît Minisini.

[milio]

 

Codice: [Seleziona]

Public Sub Main()

  Do
    Print "Milio è un minchiosauro"
    Break
  Loop

end

 

[Gianluigi]

 

Per ora ti devi accontentare del fix sulla Master, che verrà riportato sulla prossima versione stabile quando uscirà.

The fix is on master. It will be backported to the next stable version.

Codice: [Seleziona]

dDate += 1 ' <--- 19/04/2024 14:06:19

 

P.S. Se vuoi un ripasso sulla compilazione, sono a disposizione