以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]2个日期计算之间相差的年月日数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57513)
--  作者：jfmeng
--  发布时间：2014/9/25 20:32:00
--  [求助]2个日期计算之间相差的年月日数

 

求助：

     在2个日期之间，计算相差的年 月 日数，我用了帮助里的DateYMD公式：

 

Dim y,m,d As Integer
Dim dt1 As Date = #2/28/2012#
Dim dt2 As Date = #2/22/2016#
DateYMD(dt1,dt2,y,m,d)
Output.Show(y & "年" & m & "月" & d & "日")     之后就提示： "y"运算符后缺少操作数。

 

我的日期是 "2014-09-01" 这样的格式。我的两个日期分别在[开学日期]和[放假日期]2个列里，要怎么引用？
--  作者：有点甜
--  发布时间：2014/9/25 20:34:00
--  
 不会有错，贴出你写的代码。
--  作者：jfmeng
--  发布时间：2014/9/25 20:38:00
--  
Dim y,m,d As Integer
Dim [开学日期] As Date = #2014-09-01#
Dim [放假日期] As Date = #2015-01-31#
DateYMD([开学日期],[放假日期],y,m,d)
Output.Show(y & "年" & m & "月" & d & "日")
--  作者：有点甜
--  发布时间：2014/9/25 20:39:00
--  
Dim y,m,d As Integer
Dim [开学日期] As Date = "2014-09-01"
Dim [放假日期] As Date = "2015-01-31"
DateYMD([开学日期],[放假日期],y,m,d)
Output.Show(y & "年" & m & "月" & d & "日")
--  作者：jfmeng
--  发布时间：2014/9/25 20:51:00
--  

还是那样的提示
--  作者：有点甜
--  发布时间：2014/9/25 20:52:00
--  
 我测试没有报错啊，你做个例子发上来
--  作者：jfmeng
--  发布时间：2014/9/25 20:59:00
--  

在 学期基本参数 里

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
--  作者：有点甜
--  发布时间：2014/9/25 21:01:00
--  
 你代码怎么写？
--  作者：jfmeng
--  发布时间：2014/9/25 21:03:00
--  
上面两个都用过，都一样 的提示
--  作者：jfmeng
--  发布时间：2014/9/25 21:05:00
--  

我就是要计算2个日期之间的月数，如果有大于10日小于20日，就算半个月，小于10天，就不计，20天及以上就计1个月。

 

[此贴子已经被作者于2014-9-25 21:06:59编辑过]