Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
This is a vb function that accepts a long value in...
Author:
RichardC
Submitted:
8/4/2002
Version:
VB5
Compatibility:
VB5, VB6
Category:
Date/Time
Views:
17308
This is a vb function that accepts a long value in milliseconds and returns the corresponding time as an 'Hours:Minutes:Seconds' string.
Declarations:
'none
Code:
' Purpose : Converts a long value in milliseconds to a corresponding ' Hours:Minutes:Seconds string. ' ' Accepts : lngTimeInMilliSeconds ' ' Returns : A string which is in the format 'HH:MM:SS' for the exam time. Public Function Milli2HMS(ByVal lngTimeInMilliSeconds As Long) As String Dim lngSecRemainder As Long Dim lngMinSecRemainder As Long Dim lngHoursPart As Long Dim lngMinutesPart As Long Dim lngSecondsPart As Long Dim sTimeRemaining As String Dim sHoursPart As String Dim sMinutesPart As String Dim sSecondsPart As String lngHoursPart = lngTimeInMilliSeconds \ 3600000 lngMinSecRemainder = lngTimeInMilliSeconds Mod 3600000 lngMinutesPart = lngMinSecRemainder \ 60000 lngSecRemainder = lngMinSecRemainder Mod 60000 lngSecondsPart = lngSecRemainder \ 1000 sHoursPart = Format(lngHoursPart, "00") sMinutesPart = Format(lngMinutesPart, "00") sSecondsPart = Format(lngSecondsPart, "00") sTimeRemaining = sHoursPart & ":" & sMinutesPart & ":" & sSecondsPart 'or more efficient but longer ' sTimeRemaining = Space(8) ' Mid$(sTimeRemaining, 1, 2) = sHoursPart ' Mid$(sTimeRemaining, 3, 1) = ":" ' Mid$(sTimeRemaining, 4, 2) = sMinutesPart ' Mid$(sTimeRemaining, 6, 1) = ":" ' Mid$(sTimeRemaining, 7, 2) = sSecondsPart Milli2HMS = sTimeRemaining End Function
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement