<%
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
response.redirect("laden.asp?start="&start)
%>
hoffentlich lags nicht nur ein meiner dummheit :-)))
-----Urspr�ngliche Nachricht-----
Von: Brunke, Joerg [mailto:[EMAIL PROTECTED]]
Gesendet: Dienstag, 18. Juni 2002 16:37
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] AW: RE: AW: zeitausgabe
w�rd mich interessieren wie dein umgeformter asp code aussieht?
-----Urspr�ngliche Nachricht-----
Von: Philipp Bauknecht [mailto:[EMAIL PROTECTED]]
Gesendet: Dienstag, 18. Juni 2002 16:27
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] RE: AW: zeitausgabe
funktioniert bei mir leider nicht!
Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/performance/start.asp, line 3, column 53
Browser Type:
Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)
Page:
GET /performance/start.asp
Time:
Tuesday, 18. June 2002, 16:27:36
---- Original Message ----
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED],
Subject: RE: [aspdebeginners] AW: zeitausgabe
Date: Tue, 18 Jun 2002 15:58:10 +0200
>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
>
| 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
| 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
