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

fashman 2004-12-04 08:50:41
RT
在线等...
...全文
131 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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的数!!!
回复
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
回复
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")
回复
99percent 2004-12-04
if rs("日期")="2004-13-1" then
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???

这也要有机会阿
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-12-04 08:50
社区公告
暂无公告