excel - 如何将字符串转换为日期

Question

我正在尝试将字符串转换为日期

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.

请问我该怎么做？

Answer 1

这不是正确使用 DateValue ， 代替

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

和

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

或者

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