以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这个函数怎么测试,这样测试报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194103)

--  作者:xxfoxtable
--  发布时间:2024/11/11 9:13:00
--  这个函数怎么测试,这样测试报错
Dim a As Date = #08/11/2024#
Dim b As Integer = DateDiff(\'d\',date(),a)
msgbox(b)

--  作者:有点蓝
--  发布时间:2024/11/11 9:20:00
--  
Dim a As Date = #08/11/2024#
Dim b As Integer = DateDiff("d", New Date(), a)
msgbox(b)

--  作者:xxfoxtable
--  发布时间:2024/11/11 11:42:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:5.png
图片点击可在新窗口打开查看
这样提示,对吗?

--  作者:有点蓝
--  发布时间:2024/11/11 11:49:00
--  
https://blog.51cto.com/u_16099314/6377869
--  作者:xxfoxtable
--  发布时间:2024/11/11 12:11:00
--  
这天数也不对呀
--  作者:有点蓝
--  发布时间:2024/11/11 13:29:00
--  
多少才对?
--  作者:xxfoxtable
--  发布时间:2024/11/11 14:51:00
--  
不应该是三天吗?
--  作者:有点蓝
--  发布时间:2024/11/11 14:56:00
--  
建议花时间学学编程基础

Dim a As Date = #11/08/2024#
Dim b As Integer = DateDiff("d", a, Date.Today)
msgbox(b)