Teilen Sie eine Ganzzahl durch eine Zeit mit VBA (Excel)

Question

Ich versuche, eine Summe von ganzen Zahlen durch eine Summe von [h]: mm: ss zu teilen, um [s] zu erhalten. Ich mache das, was mir als diese wilde Verdrehung erscheint.

temp = Split(Format(Range("D" & rInx).Value, "hh:mm:ss"), ":", -1, vbTextCompare) 
answerDelay = CInt(temp(0)) * 3600 + CInt(temp(1)) * 60 + CInt(temp(2)) 

Weil mir dies ziemlich seltsam scheint dachte ich, ich würde es dort Gehirne für Sie löschte zu betrachten und sagen Sie mir einen besseren Weg, es zu tun.

Dies ist das Ende einer Formel auf einem Arbeitsblatt kurz wäre

range(B1)=838 
range(C1)=26:38:44 
range(D1)=range(C1)/range(B1) 

Die Antwort hierfür beträgt 109 Sekunden.

Es funktioniert wie ich es hier habe, ich bin einfach nicht zufrieden mit meiner Lösung.

Haben Sie eine bessere Lösung?

Vielen Dank im Voraus! Craig

Answer 1

Sie können einen TimeSpan verwenden, um die Zeit in Sekunden zu konvertieren und anschließend zu verteilen.

I havn't getestet es aber ungefähr wie dies in C#:

var seconds = new TimeSpan(26, 38, 44).Seconds; 

Ist das, was Sie gemeint?

Answer 2

Excel hält Zeiten als Bruchteile eines Tages, d. H. 24 Stunden = 1,0. Um in Sekunden zu konvertieren, multiplizieren Sie einfach mit 24 * 60 * 60.