Localizzazioni orario

[pastrank]

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

[vuott]

Ritengo tu debba fare riferimento, oggi, alla proprietà ".TimeZone" della Classe System.