查看: 67  |  回复: 0
  VB6 计算两个日期/时间之间的差(DateDiff函数)
楼主
发表于 2025年5月23日 14:49

DateDiff()

函数返回两个日期之间的差值

表达式 DateDiff(timeinterval,date1,date2 [, firstdayofweek [, firstweekofyear]])

允许数据类型:     timeinterval 表示相隔时间的类型, 代码为:

"y"表示"年"

"m"表示"月"

"d"表示"日"

"h"表示"时"

"n"表示"分"

"s"表示"秒"

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Sub Command1_Click()
    fromDate = #4/30/2025#
    toDate = Now
    'toDate = #5/23/2025#
    Debug.Print "相差 " & DateDiff("d", fromDate, toDate)
End Sub

运行结果:

相差 23


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2025 MaNongKu.com