ist zwar aus vb aber dennoch:
Public Function ConvertTimeToMilliseconds(TimeString As String, Optional IncludeHours
As Boolean) As Long
' Converts a time (HH:MM:SS:hh) to Milli
' seconds
Dim i As Integer, Mins As Long, Secs As Long, HSecs As Long, Hours As Long
Dim CurrentString As String, CurrentChar As String
If TimeString = vbNullString Then Exit Function
Hours = -1
Mins = -1
Secs = -1
HSecs = -1
CurrentString = vbNullString
For i = 1 To Len(TimeString)
CurrentChar = Mid$(TimeString, i, 1)
If CurrentChar <> ":" And CurrentChar <> vbNullChar Then
CurrentString = CurrentString & CurrentChar
End If
If CurrentChar = ":" Or CurrentChar = vbNullChar Or i = Len(TimeString) Then
If IncludeHours And Hours = -1 Then
Hours = CLng(Val(CurrentString))
CurrentString = vbNullString
ElseIf Mins = -1 Then
Mins = CLng(Val(CurrentString))
CurrentString = vbNullString
ElseIf Secs = -1 Then
Secs = CLng(Val(CurrentString))
CurrentString = vbNullString
ElseIf HSecs = -1 Then
HSecs = CLng(Val(CurrentString))
Exit For
End If
End If
Next i
If Hours = -1 Then Hours = 0
ConvertTimeToMilliseconds = (HSecs * 10) + (Secs * 1000) + (Mins * 60000) + (Hours
* 3600000)
End Function
MfG
J�rg
-----Urspr�ngliche Nachricht-----
Von: Philipp Bauknecht [mailto:[EMAIL PROTECTED]]
Gesendet: Dienstag, 18. Juni 2002 15:52
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] zeitausgabe
wie kann ich mir die zeit in millisekunden ausgeben lassen?
vielen dank,
philipp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
