Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何避开不存在的日期


  共有1695人关注过本帖树形打印复制链接

主题：如何避开不存在的日期
帅哥哟，离线，有人找我吗？
edisontsui
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10082 威望：0 精华：0 注册：2014/12/18 16:12:00 		如何避开不存在的日期  发帖心情 Post By：2024/8/2 17:10:00 [只看该作者]

For c As Integer = 1 To 31
... ...
    Dim c10 As Date = CDate(c9)
    Dim c11 as short = c10.DayOfWeek 

上面代码要将字符串c9转化为日期格式，然后再将c10转换为星期几。但是如果碰到不存在的日期，比如2024-04-31的话，就会出现警告：
从字符串“2024-04-31”到类型“Date”的转换无效。
请问我要怎样才能避开这类不存在的日期，不让它出现警告呢? 谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10082 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2024/8/3 8:39:00 [只看该作者]

我用另外一个方法(Days = Date.DaysInMonth(2007,2))处理好了。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询