dato udfordringer

Dato= "4.-Oct 2017 16:03"  , en dato som læses i en en celle i regnearket.

Jeg havde selv lignede problemer med 'CDate()' for nogle år siden, og fik på et LinkedIn forum fortalt, at 'CDate()' faktisk er en meget lidt 'robust' funktion, der især har problemer, hvis der er specialtegn i datoen, eller special tegn står efter hinanden - hvilket de gør i din variabel.

Et forslag kunne være, at lave dato strengen om til et genkendeligt dato format først:

Dato = Replace(WorksheetFunction.Trim(Replace(Replace(Left$(Dato,12),"."," "),"-"," "))," ","/")

Hvilket gerne skulle få din dato string til at blive til:
Dato = "4/Oct/2017" (Hvis jeg ellers har gjort det korrekt)

Derefter udskifter du månederne med tal:

Dato = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(UCase$(Dato), "JAN", 1), "FEB", 2), "MAR", 3), "APR", 4), "MAY", 5), "JUN", 6), "JUL", 7), "AUG", 8), "SEP", 9), "OCT", 10), "NOV", 11), "DEC", 12)

Hvilket gerne skulle få din dato string til at blive til:
Dato = "4/10/2017"

Og, nu kan 'CDate()' genkende datoen :-)

Hej Dan  - det virker helt perfekt, så tak for hjælpen :-)

Jeg har brugt min formel i flere år uden problemer før nu, så jeg er lidt nysgerrig efter at vide, hvad var der galt i mit dato format. kan du kaste lidt lys over det?

Niksen - mit bedste gæt er at en opdatering har ændret måde som CDate() fortolker teksten på - men, jeg ved det ikke...