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
