Calcul avec secondes vba

J'ai une colonne dans excel qui stocke la différence entre et la date de fin et la date de début en secondes.

Time window seconds 2580 (0:43) 16200

Je voudrais résumer ces secondes et stocker ces informations dans un tableau. Ce tableau devrait alors contenir le nombre total de secondes. Cependant, si je spécifie ce tableau comme suit:

 Dim totalnumber(7) as Date

Je reçois des valeurs bizarres dans le format Date, au lieu de secondes. L'étape suivante consiste à effectuer un calcul simple avec chaque numéro stocké dans le tableau. Comment puis-je définir ce tableau afin qu'il contienne des secondes et que je puisse faire un calcul avec ça?

Si c'est un integer représentant le nombre de secondes, j'utiliserais un tableau de Long.

 Dim seconds(7) as Long

PROTIP : Vous pouvez utiliser les fonctions DateAdd et DateDiff pour calculer les dates et les portions des dates avec et à partir de nombres entiers. Par exemple

 Dim lSeconds as Long lSeconds = DateDiff("s", date1, date2) Dim dtNew as Date dtNew = DateAdd("s", lSeconds, date1)

Vois ici:

DateDiff

DateAdd

Lorsque vous calculez la différence entre deux jours, le format Date vous donne une valeur exprimée en jours. Les numbers après la virgule vous donnent les heures, les minutes, les secondes, les millisecondes, etc. Par exemple, la valeur de la date 2.5 représenterait 2 jours, 12 heures (12 heures = 0.5 jours).

Pour convertir une valeur de Date en secondes, multipliez par 86.400 (86.400 secondes par jour).