以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  如何避开不存在的日期  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192931)

--  作者：edisontsui --  发布时间：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 --  发布时间：2024/8/3 8:39:00 --   我用另外一个方法(Days = Date.DaysInMonth(2007,2))处理好了。