怎么把2004-13-1自动转为2005-1-1..在线等...

[fashman]

RT
在线等...

[tatty_bad]

呵呵，很想知道，怎么出来的2004－13－01？？？

这也要有机会阿

[yb2008]

关注!

[99percent]

if rs("日期")="2004-13-1" then
conn.execute("update 表 set 日期="2005-1-1" where 日期="2004-13-1""
end if


你想怎么样转,不清楚你,你要说明白.

[lingyun2111]

怎么把2004-13-1自动转为2005-1-1..在线等...
提供个思路,以下代码没有测试^_^

if month("2004-13-1")>12 then
y=year("2004-13-1")+1
m=month("2004-13-1")-12
end if
newtime=y & "-" & m & "-" & day("2004-13-1")

[fashman]

不是sql里面..就是算日期的时候,遇到到这样的情况.自动换到下一年..

[ahhisoft]

IF Month>12 Then
Month=Month-12
Year=Year+1
End IF

[dsclub]

我认为当初运算出13月的算法有问题

[dh20156]

你就直接替换好了，查找-13-，整个日期替换成2005-1-1

[xiaoyuehen]

问题不完整
2004-13-1 => 2005-1-1

2004-25-1 => 2006-1-1?

function toDate(str)
dim arrStr, intY, intM, intD
arrStr = Split(str, "-")
intY = arrStr(0) + arrStr(1) \ 12
intM = ((arrStr(1) - 1) Mod 12 + 1)
intD = arrStr(2)

toDate = intY & "-" & intM & "-" & intD
end function

注: 上面的函数不可直接用, 必须对str进行检测, 且arrStr(1)不能为<=0的数!!!