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

fashman 2004-12-04 08:50:41
RT
在线等...
...全文
168 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
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???

这也要有机会阿

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧