[Gambas-user] With Date one day less

[Karl Reinl]

Am Samstag, den 21.01.2017, 17:22 +0100 schrieb Gianluigi:
> I, with Date, become crazy.
> Just look here:
> '---------------------------------
> Public Sub Main()
> 
>   Dim d1 As Date
> 
>   d1 = "6/15/2008"
>   Print Format$(d1, "dd mm yyyy") ' > 14 06 2008
> 
> End
> '----------------------------------
> Because UTC (an hour more) becomes one less day?
> (sig!)
> 
> Regards
> Gianluigi

Salut Gianluigi, 

like that you get what you want.

Public Sub Button1_Click()
Dim d1 As Date

  d1 = Date(2008, 6, 15)
  Print Format$(d1, "dd mm yyyy") ' > 15 06 2008

End


-- 
Amicalement
Charlie