Diviser un entier par une heure en utilisant VBA (Excel)

Question

J'essaie de diviser une somme d'entiers par une somme de [h]: mm: ss pour obtenir [s]. Je le fais par ce qui me semble être cette contorsion sauvage.

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

Parce que cela semble assez étrange pour moi je pensais que je le mettrais là pour vous le cerveau à regarder et me dire une meilleure façon de le faire.

C'est la fin d'une formule sur une feuille de calcul en bref serait

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

La réponse à cela est 109 secondes.

Cela fonctionne comme je l'ai ici, je ne suis pas satisfait de ma solution.

Avez-vous une meilleure solution?

Merci d'avance! Craig

Answer 1

Vous pouvez utiliser un TimeSpan pour convertir le temps en secondes et le diviser ensuite.

Je havn't testé mais somthing comme celui-ci en C#:

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

Est-ce que vous vouliez dire?

Answer 2

Excel conserve les durées en fractions d'un jour, c'est-à-dire 24 heures = 1,0. Pour convertir en secondes, il suffit de multiplier par 24 * 60 * 60.