Seconds to time funktion

Hej para7. forstår ikke rigtig hvad du mener, altså hvad er fejlen præsics? fordi koden virkede nu ved mig :-)

Mvh jesper

Kan du ikke prøve at lave nogle eksempler på kald der fejler, for det er lidt uklart hvad problemet er...?

Alternativt prøv med denne funktion i stedet:


Du kan teste den med dette kode:

Tak softspot
Den virker som den skal. Min funktion kunne ikek håndtere nogle af de små sekunder, af hvad grund, er ikke så vigtigt nu.
Smid lige svar for point...

Velbekomme :-)

Vær dog opmærksom på, at min funktion ikke er bagt helt færdig, da den også dividere timer med 60, hvilket så kan resultere i mistede timer (hvis der er sekunder nok). Du kan prøve med denne, hvis det er interessant at håndtere flere sekunder end der er i 2-3 døgn:


Og så kan du prøve at teste med større tal (f.eks. 100.000) for at se hvordan den håndterer disse.

Hov. Der er lige en fejl i din funktion. Hvis jeg tester sekunder fra 31-60:

30 seconds => time 00:00:30
34 seconds => time 00:01:34
60 seconds => time 00:01:00

Også lige fejl fra 90 og til 120 sekunder:

30 seconds => time 00:00:30
34 seconds => time 00:01:34
36 seconds => time 00:01:36
60 seconds => time 00:01:00
63 seconds => time 00:01:03
66 seconds => time 00:01:06
71 seconds => time 00:01:11
90 seconds => time 00:02:30
97 seconds => time 00:02:37
100 seconds => time 00:02:40
120 seconds => time 00:02:00

Umiddelbart er det lettest for mig at fixe min funktion, kan vel gøres ved at sætte undtagelser for 1, 2, 4 og 5 sekunder.


Min SecondsToTime:
1 seconds => time 01:00
2 seconds => time 03:00
3 seconds => time 00:03
4 seconds => time 06:00
5 seconds => time 08:00
30 seconds => time 00:30
34 seconds => time 00:34
36 seconds => time 00:36
60 seconds => time 01:00
63 seconds => time 01:03
66 seconds => time 01:06
71 seconds => time 01:11
90 seconds => time 01:30
97 seconds => time 01:37
100 seconds => time 01:40
120 seconds => time 02:00


Din sec2time:
1 seconds => time 00:00:01
2 seconds => time 00:00:02
3 seconds => time 00:00:03
4 seconds => time 00:00:04
5 seconds => time 00:00:05
30 seconds => time 00:00:30
34 seconds => time 00:01:34
36 seconds => time 00:01:36
60 seconds => time 00:01:00
63 seconds => time 00:01:03
66 seconds => time 00:01:06
71 seconds => time 00:01:11
90 seconds => time 00:02:30
97 seconds => time 00:02:37
100 seconds => time 00:02:40
120 seconds => time 00:02:00

Det er jo op til dig, men jeg har lavet en anden version som også fikser det andet problem. Det var et afrundingsproblem der gjorde udslaget.


Bemærk der er kommet en hjælperfunktion med (iif) for at gøre løkken lidt mere kompakt.

Her er min funktion med korrektioner:

Function SecondsToTime(ByVal SecondsX)
    If SecondsX = 1 Or SecondsX = 2 Or SecondsX = 4 Or SecondsX = 5 Then
        SecondsToTime = "00:0" & SecondsX
    Else
        secondsToTime0 = SecondsX/60
        If InStr(secondsToTime0,",") Then
            secondsToTimeMinutePart0 = left(secondsToTime0,InStr(secondsToTime0,",")-1)
        Else
            secondsToTimeMinutePart0 = secondsToTime0
        End If
        If Len(secondsToTimeMinutePart0) = 1 Then
            secondsToTimeMinutePart = "0" & secondsToTimeMinutePart0
        Else
            secondsToTimeMinutePart = secondsToTimeMinutePart0
        End If
        If InStr(secondsToTime0,",") Then
            secondsToTimeSecondPart0 = mid(secondsToTime0,InStr(secondsToTime0,",")+1)
        Else
            secondsToTimeSecondPart0 ="00"
        End If
        secondsToTimeSecondPart0 = ("0," & secondsToTimeSecondPart0)*60
        secondsToTimeSecondPart0 = Round(secondsToTimeSecondPart0)
        If Len(secondsToTimeSecondPart0) = 1 Then
            secondsToTimeSecondPart = "0" & secondsToTimeSecondPart0
        Else
            secondsToTimeSecondPart = secondsToTimeSecondPart0
        End If
        SecondsToTime = secondsToTimeMinutePart & ":" & secondsToTimeSecondPart
    End If
End Function

Udmærket. Så er der også andre der kan få gavn af det her, senere. For det har ikke været til at opstøve færdige asp funktioner til det her. Min egen metode er mere forståelig for mig, selvom den nok ikke er så smart.
Tak for nu :)