设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1288|回复: 3
打印 上一主题 下一主题

[其它] [求助]怎么计算两个日期之间相差的天数?

[复制链接]
跳转到指定楼层
1#
发表于 2005-10-9 19:17:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
STemp = "Select * From 出差管理"

        Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        Num = 0      

        Rs.MoveFirst  

        For i = 1 To Rs.RecordCount

            '搜索待统计的职员记录,并进行计算“总出差时间”

            If Rs("职员ID") = Me![职员ID] Then

                If Me![开始日期] < Rs("结束日期") And Rs("结束日期") <= Me![结束日期] _

                        And Rs("开始日期") <= Me![开始日期] Then

                    Num = Num + Rs("结束日期") - Me![开始日期]

                ElseIf Me![开始日期] < Rs("结束日期") And Rs("结束日期") _

                        <= Me![结束日期] And Rs("开始日期") > Me![开始日期] Then

                    Num = Num + Rs("结束日期") - Rs("开始日期")

                ElseIf Me![开始日期] <= Rs("开始日期") And Rs("开始日期") < _

                        Me![结束日期] And Rs("结束日期") > Me![结束日期] Then

                    Num = Num + Me![结束日期] - Rs("开始日期")

                ElseIf Rs("开始日期") <= Me![开始日期] And _

                        Rs("结束日期") >= Me![开始日期] Then

                    Num = Num + Me![结束日期] - Me![开始日期]

                End If

                Rs.MoveNext

            Else

                Rs.MoveNext

            End If

        Next i

        '把计算的“总出差时间”结果赋予窗体中“总出差时间”文本框中

        Me![总出差时间] = Num & "天"

        '把“总出差时间”的计算结果赋予CCTime

        CCTime = Num

这里拿出其中一段代码,其中定义了 Num为Variant类型,我测试的结果怎么为0天啊,好象Num = Num + Me![结束日期] - Me![开始日期]并没有起作用啊~`~怎么回师?系统报错“类型不匹配”是不是这个原因?怎么修改啊。。。。。。。。



分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2005-10-10 03:17:00 | 只看该作者
计算两日期间的天数,可用下面方法:1)日期1-日期22)datediff函数
3#
发表于 2005-10-10 06:08:00 | 只看该作者
管理台帐.记账日期-(SELECT max([管理台帐]![记账日期]) FROM 管理台帐 WHERE  (管理台帐.姓名编码=管理台帐_1.姓名编码 and 管理台帐.台帐编码<管理台帐_1.台帐编码)) AS 天数[em03]
4#
 楼主| 发表于 2005-10-10 16:53:00 | 只看该作者
楼上的什么意思,能不能针对我的问题来回答啊,我出现那个错误是什么原因
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 23:33 , Processed in 0.099815 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表