Public Function FindDato(ByVal pStr As String) As Double
Dim sDato As String, pDato As Date, lOut As Double
sDato = Left(pStr, Len(pStr) - 13)
sDato = LCase(sDato)
sDato = Replace(sDato, "january", "januar", 1, , vbTextCompare)
sDato = Replace(sDato, "february", "februar", 1, , vbTextCompare)
sDato = Replace(sDato, "march", "marts", 1, , vbTextCompare)
sDato = Replace(sDato, "may", "maj", 1, , vbTextCompare)
sDato = Replace(sDato, "june", "juni", 1, , vbTextCompare)
sDato = Replace(sDato, "july", "juli", 1, , vbTextCompare)
sDato = Replace(sDato, "october", "oktober", 1, , vbTextCompare)
pDato = sDato
lOut = DateSerial(Year(pDato), Month(pDato), Day(pDato))
pDato = Right(pStr, 11)
lOut = lOut + TimeSerial(Hour(pDato), Minute(pDato), Second(pDato))
FindDato = lOut
Public Function FindDato(ByVal pStr As String) As Double
Dim sDato As String, pDato As Date, lOut As Double
sDato = Left(pStr, Len(pStr) - 13)
sDato = LCase(sDato)
sDato = Replace(sDato, "january", "januar", 1, , vbTextCompare)
sDato = Replace(sDato, "february", "februar", 1, , vbTextCompare)
sDato = Replace(sDato, "march", "marts", 1, , vbTextCompare)
sDato = Replace(sDato, "may", "maj", 1, , vbTextCompare)
sDato = Replace(sDato, "june", "juni", 1, , vbTextCompare)
sDato = Replace(sDato, "july", "juli", 1, , vbTextCompare)
sDato = Replace(sDato, "october", "oktober", 1, , vbTextCompare)
pDato = sDato
lOut = DateSerial(Year(pDato), Month(pDato), Day(pDato))
pDato = Right(pStr, 11)
lOut = lOut + TimeSerial(Hour(pDato), Minute(pDato), Second(pDato))
FindDato = lOut
End Function
Trænger dine lattermuskler til en omgang fitness på dansk? Vi viser vej til fem websider fyldt med humor og vanvittig satire.
Eee Pad Transformer Prime er frygtindgydende med sin quadcore processor og evne til at trylle sig om til bærbar. Apple bør kigge i bagspejlet, for Asus' tablet-pc kommer buldrende - og gør det...
Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...
Den nye offentlige betaversion af Windows 8 er klar i denne måned.
Android-platformen har længe været plaget af et særligt problem. Men måske er problemet nu ved at være elimineret.
