Text 384, 157 rader
Skriven 2005-03-20 05:01:00 av "ak" <ak@myspamtrap.Com> (1:278/230)
Ärende: Re: Argghhhh!  Converting Milliseconds...
=================================================



"Steve Gerrard" <mynamehere@comcast.net> skrev i en meddelelse
news:0amdnerSU-mgUKHfRVn-2w@comcast.com...
>
> "AK" <ak@myspamtrap.com> wrote in message
> news:423c97e7$0$687$edfadb0f@dread16.news.tele.dk...
>> You have a bug in it, Rick
>> It originates from the constants.
>> They needs one more zero.
>> And have one more constant of 100
>> to use for the mask.
>>
>> Try to convert 61742 milliSeconds.
>> From head it gives: H:00 M:01 S:01 H:74
>> The Function reveals
>> H:00 M:10 S:17 H:42
>>
>>
>
> Quite right, ako, a millisecond is 1/1000 of a second. Also, once you fix
> that, the function should also round off the seconds if you choose not to
> display milliseconds, e.g. your example of 61742 should show M:01 S:02.
>
> Const MSperHour As Long = 3600000
> Const MSperMinute As Long = 60000
> Const MSperSecond As Long = 1000
>
> Function MillisecondsToTime(MS As Long, _
>         Optional IncludeMilliSecs As Boolean = False, _
>         Optional IncludeLabels As Boolean = False) As String
>  Dim Hours As Long
>  Dim Minutes As Long
>  Dim Seconds As Currency
>  Dim MilliSecs As Long
>
>    Hours = Int(MS / MSperHour)
>    Minutes = Int((MS - (Hours * MSperHour)) / MSperMinute)
>    Seconds = (MS - (Hours * MSperHour) - _
>              (Minutes * MSperMinute)) / MSperSecond
>    MilliSecs = MSperSecond * (Seconds - Int(Seconds))
>    Seconds = Int(Seconds)
>
>    If Not IncludeMilliSecs Then
>        If MilliSecs >= MSperSecond / 2 Then
>            Seconds = Seconds + 1
>            If Seconds > 59 Then
>                Seconds = 0
>                Minutes = Minutes + 1
>                If Minutes > 59 Then
>                    Minutes = 0
>                    Hours = Hours + 1
>                End If
>            End If
>        End If
>    End If
>
>    If IncludeLabels Then
>      MillisecondsToTime = "H:" & Format(Hours, "0# ") & _
>                           "M:" & Format(Minutes, "0# ") & _
>                           "S:" & Format(Seconds, "0#")
>    Else
>      MillisecondsToTime = Format(Hours, "0#") & _
>                           ":" & Format(Minutes, "0#") & _
>                           ":" & Format(Seconds, "0#")
>    End If
>
>    If IncludeMilliSecs Then
>        MillisecondsToTime = MillisecondsToTime & "." & _
>                             Format(MilliSecs, "0#")
>    End If
>
> End Function


'The OP doesn't want to append the decimalpart to the
'seconds. He want it to stand explicitly. Also, he want
'it expressed with 2 digits.
'To full fill this, I changed several among which;
'you can 't have MilliSecs As Long, as to round off
'seconds to two digits (up for third => 5).
I also changed the Dim'ing to Double, enthough
Currency would work. -But in certain cases,
there could be a long ripple (99...9) on the
decimalparts of seconds, where Currency wouldn't
suffice with its limit of 4 digit decimal.
Also, when making divisions with 2 Longs, the
result is rounded up on odd integer part left of
the decimalpart. Otherwise, it is rounded down.
This fact would really mess op the final result.

' Rick did it on purpose to call all Lurkes playing put!

ako

Function MillisecondsToTime(MS As Long, _
  Optional IncludeHundreths As Boolean = False, _
  Optional IncludeLabels As Boolean = False) As String
  Dim Hours As Double
  Dim Minutes As Double
  Dim Seconds As Double
  Dim Hundreds As Double
  Dim MilliSecs As Double
  Const MSperHour As Long = 3600000
  Const MSperMinute As Long = 60000
  Const MSperSecond As Long = 1000
  If MS / MSperHour > 999 Then
    MillisecondsToTime = "***"
  Else
    Hours = Int(MS / MSperHour)
    Minutes = Int((MS - Hours * MSperHour) / MSperMinute)
    Seconds = (MS - (Hours * MSperHour) - _
              (Minutes * MSperMinute)) / MSperSecond
    MilliSecs = Seconds - Int(Seconds)
    Seconds = Int(Seconds)
    If Not IncludeHundreths Then
        If MilliSecs >= 0.5 Then
            Seconds = Seconds + 1
            If Seconds > 59 Then
                Seconds = 0
                Minutes = Minutes + 1
                If Minutes > 59 Then
                    Minutes = 0
                    Hours = Hours + 1
                End If
            End If
        End If
    End If

    If IncludeLabels Then
      MillisecondsToTime = "H:" & Format(Hours, "0# ") & _
                           "M:" & Format(Minutes, "0# ") & _
                           "S:" & Format(Seconds, "0#")
    Else
      MillisecondsToTime = Format(Hours, "0#") & _
                           ":" & Format(Minutes, "0#") & _
                           ":" & Format(Seconds, "0#")
    End If

    If IncludeHundreths Then
        If IncludeLabels Then
            MillisecondsToTime = MillisecondsToTime & _
            " H:" & Right(Format(MilliSecs, "0.00"), 2)
        Else
            MillisecondsToTime = MillisecondsToTime & _
            ":" & Right(Format(MilliSecs, "0.00"), 2)
        End If
    End If
  End If
End Function




--- UseNet To RIME Gateway @ 3/20/05 4:59:19 AM ---
 * Origin: MoonDog BBS, Brooklyn,NY, 718 692-2498, 1:278/230 (1:278/230)