Formatere/parse et underligt dato/tid\'s format..

Hvordan vil du have det til at se ud?

YYYY-MM-DD HH:MM:SS eller DD-MM-YYYY HH:MM:SS ...

Her er et script du kan køre fra kommandolinjen (med Windows Script Host), der viser hvordan du kan trække de forskellige komponenter ud af strengen, så må du selv sætte det nye format sammen bagefter :-)

Option Explicit

Dim objRegExp, strDato, objMatch

If WScript.Arguments.Count <> 1 Then
  WScript.Echo(\"Anvendelse: cscript DatoFormat.vbs dato\")
  WScript.Quit(1)
End If

strDato = WScript.Arguments(0)

Set objRegExp = New RegExp

With objRegExp
  .Pattern = \"^(Mon|Tue|Wed|Thu|Fri|Sat|Sun),\\s+(\\d{1,2})\\s+(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|No|Dec)\\s+(\\d+)\\s+(\\d\\d:\\d\\d:\\d\\d)\\s+(.+)$\"
  .IgnoreCase = True
End With

If Not objRegExp.Test(strDato) Then
  WScript.Echo(\"Datoen matcher ikke formatet.\")
Else
  Set objMatch = objRegExp.Execute(strDato)(0)
  WScript.Echo(\"Dag: \" & objMatch.SubMatches(0))
  WScript.Echo(\"Dato: \" & objMatch.SubMatches(1))
  WScript.Echo(\"Måned: \" & objMatch.SubMatches(2))
  WScript.Echo(\"Årstal: \" & objMatch.SubMatches(3))
  WScript.Echo(\"Klokkeslæt: \" & objMatch.SubMatches(4))
  WScript.Echo(\"Tidszone: \" & objMatch.SubMatches(5))
End If

Jeg skal også bruge det så den selv regner tiden ud efter den angivne tidszone ...

1) Tidszoner er ikke nemme at håndtere!
2) Du skal nok læse dig til lidt mere viden om formatet, men +0200 betyder formodentlig GMT +2.

Klokken 14:00 i tidszonen GMT +2 er klokken 12:00 i GMT, og derfor klokken 13:00 i GMT +1 som Danmark tilhører. EST er lig GMT -5.

God fornøjelse ;-)

Kig evt. her:

http://www.timezoneconverter.com/

Husk iøvrigt den lille detalje der hedder sommertid :-)

13:28:26 Thu Jun 07 2001 in GMTconverts to
15:28:26 Thu Jun 07 2001 in Europe/Copenhagen
DST* is not in effect on this date/time in GMT
DST* is in effect on this date/time in Europe/Copenhagen

hmm .. tak ..