Era una cosa che avevo già chiesto nella ML comunque fai così e non hai problemi:
Print Format(Now, "dd/mm/yyyy")
:ciao: :ciao: :ciao:
Seppur più semplice e più utilizzato il suggerimento di Gianluigi, per curiosità segnalo anche quest'altra possibilità:
Public Sub Main()
' Nel primo argomento della funzione "Scan()" convertiamo il ritorno della funzione "Now" in una stringa.
' Poiché questa è composta da un primo gruppo di caratteri, da uno spazio e da un secondo gruppo di caratteri,
' nel secondo argomento della funzione "Scan()" riproduciamo la struttura della stringa e prendiamo il primo elemento
' del array di tipo "String[ ]" ritornato, ossia quello che contiene il gruppo di caratteri che rappresenta la data (e non l'orario):'
Print Scan(Str(Now), "* *")[0]
End
:ciao:
Era una cosa che avevo già chiesto nella ML
non lo sapevo!
fai così
Print Format(Now, "dd/mm/yyyy")
Print Scan(Str(Now), "* *")[0]
:ciao: e grazie ad entrambi!
Si è aggiunto un nuovo capitolo (http://gambas.8142.n7.nabble.com/With-Date-one-day-less-td58278.html) nella strada verso la comprensione delle date.
Ora noi in Europa, Inghilterra e dintorni esclusi, abbiamo UTC+1 cioè siamo un ora avanti rispetto a UTC zero, questo comporta che essendo Date posizionato sull'ora 00:00:00 come si può appunto vedere dal tuo quesito, se si utilizzano le stringhe, la funzione praticamente ritorna sempre il giorno prima alle ore 23, in quanto Gambas ritorna il dato UTC (https://it.wikipedia.org/wiki/Tempo_coordinato_universale).
Lo si constata facilmente con questa prova empirica:
Public Sub Main()
Dim d1 As Date
d1 = Date("6/15/2008")
Print Format$(d1, "dd mm yyyy")
d1 = Date("6/15/2008 01:00:00")
Print Format$(d1, "dd mm yyyy")
End
:ciao: