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 AnimeFunction 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



Welcome back; your last visit was on Dec 6 2009, 05:13 PM
 Anime
Forum Topics Replies Last Post Info
InuYasha

Forum Led by: koga~wolf		 15 116 Feb 29 2004, 11:04 PM
In: OH My God
By: Lady Sesshoumaru
YuGiOh

Forum Led by: hen-anime-freak		 2 26 Feb 6 2004, 03:03 AM
In: Time 2 Duel
By: SailorKairi
YuYu Hakusho
for YYH fans to chat
Forum Led by: hen-anime-freak		 4 28 Jan 21 2004, 10:02 PM
In: Best Charachter
By: Duke Devlin's Girl
DBZ
Talk about Dragon Ball Z here
Forum Led by: Dark		 4 27 Feb 7 2004, 08:36 AM
In: Coolest episode!
By: Saki
Sailor Moon

Forum Led by: koga~wolf		 2 15 Jan 18 2004, 04:52 AM
In: MY FORUMS!!!
By: Lady Sesshoumaru
One Piece

Forum Led by: koga~wolf		 1 1 Dec 10 2003, 10:38 AM
In: I'm impressed
By: Mammu
Ranma ½

Forum Led by: koga~wolf		 1 6 Dec 17 2003, 11:28 PM
In: erm...why?
By: koga~wolf
Trigun
BANG BANG
Forum Led by: koga~wolf		 0 0 --
In: ----
By:
Manga
Everything about manga...here
Forum Led by: Lady Oria		 0 0 --
In: ----
By:
Other Anime

Forum Led by: koga~wolf		 17 62 Nov 14 2005, 03:32 PM
In: Street Fighters
By: JourneyMojo
 

Quick Log In

The moderating team | Today's active topics | Overall top 10 posters

Board Statistics
2 user(s) active in the past 15 minutes
2 guests, 0 members, 0 anonymous members
Show detailed list by: Last Click, Member Name
Today's Birthdays
No members are celebrating a birthday today
Board Statistics
Our members have made a total of 2,083 posts
We have 57 registered members
The newest member is LiteSexSex
Most users ever online was 25 on Nov 13 2009, 11:02 AM

Delete cookies set by this board · Mark all posts as read
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.1521 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