Question

I’m trying to convert a string into date

a = Datumo: 16.09.2012.

d = Mid(a, 9, 2) ' 16 - should be the day
m = Mid(a, 12, 2) ' 09 - month
y = Mid(a, 15, 4) ' 2012 - year

Dim dt As Date 
dt = DateValue(d, m, y) ' Error line 
dt = DateAdd("d", 1, dt) ' should be 17.09.2012.

How can I do this , please?

Answer 1

Thats not a correct use of DateValue, replace

dt = DateValue(d, m, y) ' Error line 
dt = DateAdd("d", 1, dt) ' should be 17.09.2012.

with

dt = DateSerial(y, m, d) 
dt = DateAdd("d", 1, dt)

or

dt = 1 + DateAdd("d", 1, dt)