<<< 返回 access911.net 编程静态资料库索引页

如何对两个时间相加?多个日期时间作为条件进行对比判断的问题

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2004-7-18  浏览人次:3776


专题地址:http://access911.net/fixhtm/72FAB71E14DCEEF3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何对两个时间相加?

 


问题:

怎样在Access中累加时间!

例如:

8:22+23:12=31:34

而不是 7:34

 


回答:



'按 Alt+F11 转到 Visual Basic Editor 界面
'“插入”一个“模块”,将下列代码复制进去
'按 Ctrl+G 打开“立即”窗口
'然后将光标停留在"Function TimeSumExplain()" 这行上
'按 F5 运行代码,得到结果

Function TimeSumExplain()
    Dim dteA As Date
    Dim dteB As Date
    Dim dteC As Date
    Dim dblDiff As Double
    dteA = "08:22"
    '注意,这里利用了 VBA 的一个特性:VBA会自动转换数据类型,
    '从字符自动转换为日期时间型,如果直接赋值日期时间型数据应该如下
    'dteA = #8:22:00 AM#

    dteB = "23:12"  '#11:12:00 PM#
    Debug.Print "完整表示的dteA:" & For.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FAB71E14DCEEF3.htm

 


上一篇:新手来看:动画,如何建立查询,如何运行 JET SQL 语句

下一篇:“无聊”问题与解答集锦

2017年2月22日生成静态资料