如何将字符串转换为日期 [英] How to convert a string into date

问题描述

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

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.

请问如何做？

推荐答案

不正确使用 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)

这篇关于如何将字符串转换为日期的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！