คือก็ก๊อปเขามานะครับแล้วจะเอามาดัดแปลงเพิ่มหน่อยรบกวนช่วยดูหน่อยนะครับ
คือผมอยากจะเพิ่มส่วนคำนวณเงินเข้าไปด้วยเพราะอันนี้มันมีเฉพาะเวลารบกันแล้วเอาคำตอบที่ได้ไปใส่ไว้ใสTextชื่อtotalซึ่งผมก็เลยอยากจะเพิ่มTextอีกตัวหนึ่งเอาไว้ให้เป็นช่องที่แสดงขึ้นมาว่าเป็นเงินกี่บาทโดยกำหนดไว้ที่ชั่วโมงละ 20 บาท รบกวนเซียนหน่อย
Option Compare Database
Option Explicit
Private Sub cmdCalDiffTime_Click()
Dim ResultTime As String
    ResultTime = CalTime(DtpStartTime, DtpEndTime)
    If ResultTime <> "" Then MsgBox "จำนวนเวลาที่ต่างกัน : " & _
        ResultTime, vbOKOnly + vbInformation, "รายงานผล"
         total.Value = ResultTime
End Sub
Private Sub Form_Load()
      DtpStartTime.Value = "00:00:00"
    DtpEndTime.Value = "00:00:00"
End Sub
Public Function CalTime(StartTime As Date, EndTime As Date) As String
On Error GoTo ErrHandler
Dim cHH As Long
Dim cMM As Long
Dim cSS As Long
If StartTime = EndTime Then
   CalTime = "0:00:00"
    Exit Function
    ElseIf StartTime > EndTime Then
    MsgBox "มั่วแล้วเวลาเริ่มต้นมากกว่าได้ไง", _
                    vbOKOnly + vbInformation, "รายงานความผิดพลาด"
     CalTime = ""
    Exit Function
End If
  Dim SecInMinute As Integer
Dim SecInHour As Integer
SecInMinute = 60
SecInHour = 3600
cHH = DateDiff("s", StartTime, EndTime) \ SecInHour
cMM = (DateDiff("s", StartTime, EndTime) - (cHH * SecInHour)) \ SecInMinute
cSS = DateDiff("s", StartTime, EndTime) - (cHH * SecInHour) - (cMM * SecInMinute)
CalTime = cHH & ":" & cMM & ":" & cSS
ExitProc:
    Exit Function
ErrHandler:
    MsgBox Err.Number & vbCrLf & Err.Description, vbOKOnly + vbInformation, "รายงานความผิดพลาด"
    Resume Next
End Function