VBA'da geçen süreyi saniye cinsinden nasıl hesaplarsınız?

Question

2 dizgim var strStartTime ve strEndTime.

strStartTime = "00:32:54" strEndTime = "00:33:05" Ben strStartTime ve strEndTime arasında geçen kaç saniye öğrenmek istediğiniz

yüzden bu yaptı:

Dim dtDuration as date 
dtDuration = DateDiff("s", CDate(strStartTime), CDate(strEndTime)) 

Aldığım sonuç, Locals izleme penceresinde dtDuration = "# 1/10/1900 #".

Bu neden oluyor? Başlangıç ​​ve bitiş zamanları arasında geçen 11 saniye için dtDuration'ı 11'e eşit olarak nasıl alabilirim?

Answer 1

Sadece Long değişken türünü değiştirmek:

Dim dtDuration as Long 

VBA tarih türüyle değişkene DateDiff fonksiyonlarının sayısal sonuçları dönüştürür.