Foxtable(狐表)用户栏目专家坐堂 → 怎样判断日期是否有效


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

主题:怎样判断日期是否有效

帅哥哟,离线,有人找我吗?
rogen
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:586 积分:4817 威望:0 精华:0 注册:2015/11/22 10:28:00
怎样判断日期是否有效  发帖心情 Post By:2021/11/12 8:53:00 [只看该作者]

要从表格里导入数据,有个日期字段
如何判断表格里的日期值是否有效?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/12 9:10:00 [只看该作者]

什么表格?execl?


 回到顶部
帅哥哟,离线,有人找我吗?
rogen
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:586 积分:4817 威望:0 精华:0 注册:2015/11/22 10:28:00
  发帖心情 Post By:2021/11/12 9:13:00 [只看该作者]

以下是引用有点蓝在2021/11/12 9:10:00的发言:
什么表格?execl?

对的,从excel导入数据


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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


 回到顶部