如何計算不同組唯一值的excel vba中的時間差（以秒為單位）？

Question

我知道這個問題以前經常出現，但我所擁有的是不同的情況。 我有一些關於兩個組的日期和時間的數據。 我想知道每個組的持續時間，但我不知道如何在 Excel VBA 代碼中編寫它。 你能幫我解決嗎？ 這是我的excel表。 在此處輸入圖像描述困難的是，當在同一組中時，它已更改為其他日期，但是當我嘗試減去差異時，它可能是負值而不是正值。 例如 ：

02.09.2017 19:00:00
03.09.2017 01:00:00

在這種情況下，我不能減去 01:00:00 - 19:00:00 因為那會是負數，因此我必須考慮日期的變化。 如果是這樣，我該如何解決？ 非常感謝你的幫助。

Answer 1

如果您的單元格被格式化為數據和時間，您可以使用DateDiff函數，以"n"作為間隔（以秒為單位表示差異）。

我已經用你的數據進行了測試：

A1 02.09.2017 19:00:00 
A2 03.09.2017 01:00:00

代碼：

Option Explicit

Sub CalcSecond()

Dim NumofSec As Long

NumofSec = DateDiff("n", Range("A1").Value, Range("A2").Value)

MsgBox NumofSec

End Sub