datum

[ruva]

Wie kan mij helpen??
Na export excel vanuit een ander programma ziet de data als volgt eruit vb 20050502 hier kan ik niet mee rekenen. Met celeigenschappen kom ik ook niet weg.
Ik ben benieuwd naar de oplossing

 

[Guus2005]

ik ben bang dat je even een functie moet maken die de datum yyyymmdd omzet in ddmmyyyy of dd-mm-yyyy

function ConvertDate(strDate as string) as date

dim dag as string
dim maand as string
dim jaar as string

jaar = left(strDate,4)
maand = mid(strdate,5,2)
dag = right(strdate,2)

ConvertDate = Format(DateSerial(jaar, maand, dag),"dd-mm-yyyy")

end function

Dit kan natuurlijk ook in een regel maar dat is wel onleesbaarder.

Weest gegroet,
Guus

 

[NuMan]

als A1=20050502, gebruik volgende formule:
=DATUM(DEEL(A1;1;4);DEEL(A1;5;2);DEEL(A1;7;2))
succes,
NuMan

 

[ruva]

Hartstikke bedankt, ik kan weer verder
gr Hans