dionys0s
XLDnaute Impliqué
Bonjour le forum,
je ne comprends rien : j'ai développé une petite fonction qui renvoie une valeur texte d'un nombre de secondes.
1 => 1 seconde
1.01 => 1 seconde 1 centième
3602.12 => 1 heure 2 secondes 12 centièmes.
Je ne comprends pas pourquoi au delà d'une certaine valeur (248 jours 13 heures 13 minutes 56 secondes 47 centièmes, soit 2 147 483 647 centièmes de secondes.), j'ai un dépassements de capacité. J'ai l'impression d'avoir déclaré mes variables correctement pourtant.
Ci-dessous le code de mes procédures, et joint le classeur qui contient la fonction. En l'état, ça fonctionne, mais en rajoutant 1 centième à la durée (56.47 => 56.48), ça plante chez moi.
C'est pareil chez vous ? Si oui, une idée du pourquoi du comment ?
D'avance merci pour votre aide
je ne comprends rien : j'ai développé une petite fonction qui renvoie une valeur texte d'un nombre de secondes.
1 => 1 seconde
1.01 => 1 seconde 1 centième
3602.12 => 1 heure 2 secondes 12 centièmes.
Je ne comprends pas pourquoi au delà d'une certaine valeur (248 jours 13 heures 13 minutes 56 secondes 47 centièmes, soit 2 147 483 647 centièmes de secondes.), j'ai un dépassements de capacité. J'ai l'impression d'avoir déclaré mes variables correctement pourtant.
Ci-dessous le code de mes procédures, et joint le classeur qui contient la fonction. En l'état, ça fonctionne, mais en rajoutant 1 centième à la durée (56.47 => 56.48), ça plante chez moi.
C'est pareil chez vous ? Si oui, une idée du pourquoi du comment ?
D'avance merci pour votre aide
VB:
Option Explicit
Public Enum eSingPlur: eSing: ePlur: End Enum
Public Sub Test1()
Dim Dur As Double
Const SecPerCnt As Double = 0.01
Const SecPerSec As Double = 1
Const SecPerMin As Double = 60
Const SecPerHour As Double = 60 * SecPerMin
Const SecPerDay As Double = 24 * SecPerHour
Dur = _
Cells(2, 2).Value * SecPerDay + _
Cells(2, 3).Value * SecPerHour + _
Cells(2, 4).Value * SecPerMin + _
Cells(2, 5).Value * SecPerSec + _
Cells(2, 6).Value * SecPerCnt
MsgBox Duration(Dur)
End Sub
Public Sub Test2()
Dim Dur As Double
Const SecPerCnt As Double = 0.01
Const SecPerSec As Double = 1
Const SecPerMin As Double = 60
Const SecPerHour As Double = 60 * SecPerMin
Const SecPerDay As Double = 24 * SecPerHour
Dur = _
Cells(3, 2).Value * SecPerDay + _
Cells(3, 3).Value * SecPerHour + _
Cells(3, 4).Value * SecPerMin + _
Cells(3, 5).Value * SecPerSec + _
Cells(3, 6).Value * SecPerCnt
MsgBox Duration(Dur)
End Sub
Public Function Duration(Seconds As Double) As String
Dim Unts() As Variant, Lvls() As Double, Elt As Variant
Dim Div As Double, Arr() As Double, k As Long
Unts = VBA.Array( _
VBA.Array("centième", "centièmes"), _
VBA.Array("seconde", "secondes"), _
VBA.Array("minute", "minutes"), _
VBA.Array("heure", "heures"), _
VBA.Array("jour", "jours"), _
VBA.Array("année", "années"))
ReDim Lvls(LBound(Unts) To UBound(Unts) - 1): k = LBound(Lvls): For Each Elt In VBA.Array(100, 60, 60, 24, 365)
Lvls(k) = Elt: k = k + 1: Next Elt: Seconds = 100 * Seconds: Div = 1
ReDim Arr(LBound(Unts) To UBound(Unts)): k = LBound(Arr) - 1: Do: k = k + 1
If k > LBound(Lvls) Then Div = Div * Lvls(k - 1)
If Div > Seconds Then Exit Do
If k < UBound(Lvls) Then Arr(k) = Seconds \ Div Mod Lvls(k) Else Arr(k) = Seconds \ Div
Loop Until k = UBound(Unts)
k = k + 1: Do: k = k - 1
If Arr(k) > 0 Then
Duration = Duration & " " & Arr(k) & " " & SingPlur(Arr(k), Unts(k)(eSingPlur.eSing) & "", Unts(k)(eSingPlur.ePlur) & "")
ElseIf k = LBound(Arr) And Duration = "" Then
Duration = "<1 " & SingPlur(Arr(k), Unts(eSingPlur.eSing, k) & "", Unts(eSingPlur.ePlur, k) & "")
End If: Loop Until k = LBound(Unts): Duration = VBA.Trim(Duration) & "."
End Function
Public Function SingPlur(Value As Variant, Sing As String, Plur As String) As String
If VBA.Abs(Value) >= 2 Then SingPlur = Plur Else SingPlur = Sing
End Function
Dernière édition: