¿Cómo calcular el tiempo transcurrido en segundos en VBA?

Question

Tengo 2 cadenas, strStartTime y strEndTime.

strStartTime = "12:32:54" strEndTime = "12:33:05"

Quiero saber cuántos segundos transcurrido entre strStartTime y strEndTime así que hicieron esto:

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

El resultado que obtengo es dtDuration = "# 1/10/1900 #" en la ventana de observación de Localidades.

¿Por qué sucede esto? ¿Cómo obtengo que dtDuration sea igual a 11 durante los 11 segundos que transcurrieron entre el inicio y el final?

Answer 1

acaba de cambiar el tipo de variable a largo:

Dim dtDuration as Long 

VBA convierte los resultados numéricos de las funciones DateDiff en la variable con el tipo de fecha.