CDate (Type mismatch) spørgsmål....

Hvis du har en variabel med gyldig dato, så kan du sige:
= Month(variabel) & " " & Day(variabel) & " " & Year(variabel)

Osv.

Men jeg skal have løst det med min funktion - jeg gør følgende:

strMsgDate: Sat, 17 May 2003 18:01:10 +0200
postdate = ConvertPop3Date(strMsgDate)

Hvorfor virker min funktion ikke?

Prøv at fjerne kommaet i CDate(......", "

Det kan ikke lade sige gøre, nu skal jeg spise aftens mad, mor kalder, men sdate er din variable den skal ikke indgå i funktionen.

Function ConvertPop3Date(sDate)
Dim aDates, sDay, sMonth, sYear, sTime
aDates = Split(sDate, " ")
sMonth = aDates(2)
sDay = CInt(aDates(1))
sYear = CInt(aDates(3))
sTime = aDates(4)
ConvertPop3Date = sMonth & " " & sDay & ", " & sYear
End Function

ups...!
Se lige bort fra det jeg lige skrev...!

Function ConvertPop3Date(sDate)
Dim aDates, sDay, sMonth, sYear, sTime
aDates = Split(sDate, " ")
sMonth = aDates(2)

if sMonth = "January" then
sMonth = "1"
elseif sMonth = "February" then
sMonth = "2"
elseif sMonth = "March" then
sMonth = "3"
elseif sMonth = "April" then
sMonth = "4"
elseif sMonth = "May" then
sMonth = "5"
elseif sMonth = "June" then
sMonth = "6"
elseif sMonth = "July" then
sMonth = "7"
elseif sMonth = "August" then
sMonth = "8"
elseif sMonth = "September" then
sMonth = "9"
elseif sMonth = "October" then
sMonth = "10"
elseif sMonth = "November" then
sMonth = "11"
elseif sMonth = "December" then
sMonth = "12"
end if



sDay = CInt(aDates(1))
sYear = CInt(aDates(3))
sTime = aDates(4)
ConvertPop3Date = sMonth & "/" & sDay & "/" & sYear
End Function

Denne funktion virker i hvert fald på min computer...

og så prøver vi lige en sidste gang...
Function ConvertPop3Date(sDate)
Dim aDates, sDay, sMonth, sYear, sTime
aDates = Split(sDate, " ")
sMonth = aDates(2)

if sMonth = "January" then
sMonth = "1"
elseif sMonth = "February" then
sMonth = "2"
elseif sMonth = "March" then
sMonth = "3"
elseif sMonth = "April" then
sMonth = "4"
elseif sMonth = "May" then
sMonth = "5"
elseif sMonth = "June" then
sMonth = "6"
elseif sMonth = "July" then
sMonth = "7"
elseif sMonth = "August" then
sMonth = "8"
elseif sMonth = "September" then
sMonth = "9"
elseif sMonth = "October" then
sMonth = "10"
elseif sMonth = "November" then
sMonth = "11"
elseif sMonth = "December" then
sMonth = "12"
end if



sDay = CInt(aDates(1))
sYear = CInt(aDates(3))
sTime = aDates(4)
ConvertPop3Date = CDate(sMonth & "/" & sDay & "/" & sYear)
End Function

Hej ellebaek > Det ser ud til at virke! ...og pointene er selvfølgelig dine! Tak for hjælpen!

selv tak...