Omzetten naar Datum

[harolda1980]

Ik krijg elke keer een overloop als ik probeer deze datum om te zetten naar een datum

20120117

Ik zou deze naar een bruikbare datum willen converteren.
Daarnaast moet ik ook een code hebben die van een datum dezelfde notatie kan maken zoals hierboven.

 

[snb]

kies maar:

Sub snb()
    c01 = 20120117
    c02 = CDate(Format(c01, "@@@@-@@-@@"))
    c03 = CDate(Format(c01, "0000-00-00"))
    c04 = CDate(Format(c01, "####-##-##"))
End Sub

 

[harolda1980]

Top bedankt voor de eenvoudige oplossing.
Maar als ik van 17-01-2012 weer terug moet naar 20120117 hoe doe ik dat?

 

[snb]

c05=format(17-01-2012,"yyyymmdd")

 

[harolda1980]

Top!