Private Sub Command0_Click()
Dim datTime1 As Date
Dim datTime2 As Date

Dim interval As String
interval = "n" 'look in help 'DateDiff'

datTime1 = CDate(Me.txtDateTime1)
datTime2 = CDate(Me.txtDateTime2)

MsgBox DateDiff(interval, datTime1, datTime2)
End Sub

ถ้าคำตอบนี้ทำให้คุณพอใจ
โปรดถวายสังฆทาน แก่วัดที่บ้านเกิดคุณด้วยครับ

ขอบคุณค่ะ