Function FormatTime(TimeElapsed As Integer) As String Dim Seconds As Integer Dim Minutes As Integer Dim Hours As Integer 'Find The Seconds Seconds = TimeElapsed Mod 60 'Find The Minutes Minutes = (TimeElapsed \ 60) Mod 60 'Find The Hours Hours = (TimeElapsed \ 3600) 'Format The Time If Hours > 0 Then FormatTime = Format(Hours,"00") & ":" End If FormatTime = Format(Hours, "00") & ":" FormatTime = FormatTime & Format(Minutes, "00") & ":" FormatTime = FormatTime & Format(Seconds, "00") End FunctionBeloved Anime -> Street FightersFunction FormatTime(TimeElapsed As Integer) As String Dim Seconds As Integer Dim Minutes As Integer Dim Hours As Integer 'Find The Seconds Seconds = TimeElapsed Mod 60 'Find The Minutes Minutes = (TimeElapsed \ 60) Mod 60 'Find The Hours Hours = (TimeElapsed \ 3600) 'Format The Time If Hours > 0 Then FormatTime = Format(Hours,"00") & ":" End If FormatTime = Format(Hours, "00") & ":" FormatTime = FormatTime & Format(Minutes, "00") & ":" FormatTime = FormatTime & Format(Seconds, "00") End Function
Logo by Saki
Function FormatTime(TimeElapsed As Integer) As String Dim Seconds As Integer Dim Minutes As Integer Dim Hours As Integer 'Find The Seconds Seconds = TimeElapsed Mod 60 'Find The Minutes Minutes = (TimeElapsed \ 60) Mod 60 'Find The Hours Hours = (TimeElapsed \ 3600) 'Format The Time If Hours > 0 Then FormatTime = Format(Hours,"00") & ":" End If FormatTime = Format(Hours, "00") & ":" FormatTime = FormatTime & Format(Minutes, "00") & ":" FormatTime = FormatTime & Format(Seconds, "00") End Function
ghfh


 

 Street Fighters
Track this topic | Email this topic | Print this topic
JourneyMojo
Posted: Nov 14 2005, 03:32 PM


Anime fan


Group: Members
Posts: 1
Member No.: 41
Joined: 14-November 05
Check out the media player for the new Street Fighter DVD titled "Street Fighter Alpha Generations"
http://www.hyfntrak.com/streetfighter/AFF20799/
1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)
0 Members:
« Next Oldest | Other Anime | Next Newest »




Function FormatTime(TimeElapsed As Integer) As String Dim Seconds As Integer Dim Minutes As Integer Dim Hours As Integer 'Find The Seconds Seconds = TimeElapsed Mod 60 'Find The Minutes Minutes = (TimeElapsed \ 60) Mod 60 'Find The Hours Hours = (TimeElapsed \ 3600) 'Format The Time If Hours > 0 Then FormatTime = Format(Hours,"00") & ":" End If FormatTime = Format(Hours, "00") & ":" FormatTime = FormatTime & Format(Minutes, "00") & ":" FormatTime = FormatTime & Format(Seconds, "00") End Function
Hosted for free by InvisionFree (Terms of Use: Updated 7/7/05) | Powered by Invision Power Board v1.3 Final © 2003 IPS, Inc.
Page creation time: 0.2687 seconds | Archive
Owner Mammu, zooomey@hotmail.com
Function FormatTime(TimeElapsed As Integer) As String Dim Seconds As Integer Dim Minutes As Integer Dim Hours As Integer 'Find The Seconds Seconds = TimeElapsed Mod 60 'Find The Minutes Minutes = (TimeElapsed \ 60) Mod 60 'Find The Hours Hours = (TimeElapsed \ 3600) 'Format The Time If Hours > 0 Then FormatTime = Format(Hours,"00") & ":" End If FormatTime = Format(Hours, "00") & ":" FormatTime = FormatTime & Format(Minutes, "00") & ":" FormatTime = FormatTime & Format(Seconds, "00") End Function