Gambas-it

Gambas3 => Programmazione => Topic aperto da: pastrank - 16 Febbraio 2013, 11:43:32

Titolo: Localizzazioni orario
Inserito da: pastrank - 16 Febbraio 2013, 11:43:32
Una routine che dovrebbe estrarmi una data in formato rfc-822, equivalente all'output del comando date -R, che ritorna, ad esempio adesso, un formato come
Sat, 16 Feb 2013 11:41:27 +0100

Codice: [Seleziona]
  Dim arr As String[]
  Dim dday As String
  Dim dmon As String

  arr = Split("Sun Mon Tue Wed Thu Fri Sat", " ")
  dday = arr[WeekDay(ddate)]
  arr = Split("Jan Feb Mar Apr May Jun Jul Aug Sep Opt Nov Dec", " ")
  dmon = arr[Month(ddate) - 1]
 
  Return dday & Format(ddate, ", dd ") & dmon & " " & Year(ddate) & " " & Format(Hour(ddate), "00:") & Format(Minute(ddate), "00:") & Format(Second(ddate), "00") & " GMT"

Scrivere GMT ovviamente è errato, qui sul suolo dove sono :-), come fare a trovare il CET o il +01000 corretti? Ovviamente, se posso non uso la shell, se no saprei gia' come, thx
Titolo: Re:Localizzazioni orario
Inserito da: vuott - 02 Luglio 2017, 01:08:47
Ritengo tu debba fare riferimento, oggi, alla proprietà ".TimeZone" della Classe System.