28,409
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
xiaoyuehen 2004-12-04
- 打赏
- 举报
问题不完整
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的数!!!
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的数!!!
dh20156 2004-12-04
- 打赏
- 举报
你就直接替换好了，查找-13-，整个日期替换成2005-1-1
dsclub 2004-12-04
- 打赏
- 举报
我认为当初运算出13月的算法有问题
ahhisoft 2004-12-04
- 打赏
- 举报
IF Month>12 Then
Month=Month-12
Year=Year+1
End IF
Month=Month-12
Year=Year+1
End IF
fashman 2004-12-04
- 打赏
- 举报
不是sql里面..就是算日期的时候,遇到到这样的情况.自动换到下一年..
lingyun2111 2004-12-04
- 打赏
- 举报
怎么把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")
提供个思路,以下代码没有测试^_^
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")
99percent 2004-12-04
- 打赏
- 举报
if rs("日期")="2004-13-1" then
conn.execute("update 表 set 日期="2005-1-1" where 日期="2004-13-1""
end if
你想怎么样转,不清楚你,你要说明白.
conn.execute("update 表 set 日期="2005-1-1" where 日期="2004-13-1""
end if
你想怎么样转,不清楚你,你要说明白.
yb2008 2004-12-04
- 打赏
- 举报
关注!
tatty_bad 2004-12-04
- 打赏
- 举报
呵呵，很想知道，怎么出来的2004－13－01？？？
这也要有机会阿
这也要有机会阿
