如何在VB6中添加、减去两个或多个DTPicker值

Question

here is my GUI

    Dim d1, d2, d3 As Date
    Dim d4 As Integer
    Dim x As Long

    Option Explicit

    Private Sub Command1_Click()
    d1 = TimePicker.Value + DTPicker1.Value 
    d2 = TimePicker2.Value + DTPicker3.Value

    x = DateDiff("h", d1, d2) 

    MsgBox x

    End Sub

    Private Sub Form_Load()

    TimePicker.Format = dtpTime
    TimePicker2.Format = dtpTime

    End Sub

============================================

我想计算三天或更多天的小时数，我只能加上两天，它给了我 16 小时的值，它是正确的，如果我增加更多的一天，它会增加 24 小时，所以它变成 40 怎么办我可以修复 this.I 想要每天 8 小时吗

Answer 1

如果您使用 x = DateDiff("h", d1, d2)，您将获得 d1 和 d2 之间小时的数字。如果您使用 x = DateDiff("d", d1, d2)，您将获得 d1 和 d2 之间天的天数。

如果你想每天得到 8 小时，只需将 DateDiff 值乘以 8:

x = DateDiff("d", d1, d2) * 8

如何在VB6中添加、减去两个或多个DTPicker值

How to add, subtract two or more DTPicker value in VB6

vb6