以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样判断日期是否有效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173037)
--  作者：rogen
--  发布时间：2021/11/12 8:53:00
--  怎样判断日期是否有效
要从表格里导入数据，有个日期字段
如何判断表格里的日期值是否有效？
--  作者：有点蓝
--  发布时间：2021/11/12 9:10:00
--  
什么表格？execl？
--  作者：rogen
--  发布时间：2021/11/12 9:13:00
--  
以下是引用有点蓝在2021/11/12 9:10:00的发言：
什么表格？execl？

对的，从excel导入数据
--  作者：有点蓝
--  发布时间：2021/11/12 9:28:00
--  
参考：http://www.foxtable.com/webhelp/topics/2334.htm

Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
\'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"编号","产品","客户","雇员","单价","折扣","数量","日期"}
\'注意下面的循环变量从1开始，而不是从0开始，因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
dim d as date
if Date.TryParse(Sheet(n,7).Value,d) then
msgbox(“有效”)
else
msgbox(“无效”)
endif