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 Nov 8 2009, 09:51 AM
 Beloved Anime
Forum Topics Replies Last Post Info
Rules

Forum Led by: Mammu		 1 0 Dec 9 2003, 06:37 PM
In: Rules of the Forums
By: Mammu
News and announcements

Forum Led by: Mammu		 7 53 Mar 20 2004, 10:15 PM
In: The End???
By: Lady Sesshoumaru
Welcome
Introductions
Forum Led by: Lady Sesshoumaru		 17 128 Nov 1 2007, 05:04 AM
In: The Newest and the Best Fre...
By: ssssssss
 

 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
 

 RPG
Forum Topics Replies Last Post Info
InuYasha RPG

Forum Led by: Mammu		 7 186 Feb 7 2004, 09:24 AM
In: Rules
By: atsu
OC RPG
As the title says...
Forum Led by: Lady Oria		 7 229 Feb 7 2004, 09:25 AM
In: Rules
By: atsu
Other RPG

Forum Led by: Lady Oria		 8 30 Feb 7 2004, 09:00 AM
In: Chapter 5
By: atsu
 

 Other
Forum Topics Replies Last Post Info
Chill OUT!!!
Off Topic
Forum Led by: Lady Sesshoumaru		 30 345 Nov 1 2007, 05:06 AM
In: The Newest and the Best Fre...
By: ssssssss
Computer/Console games
Talk about stuff related to games
Forum Led by: Lady Oria		 0 0 --
In: ----
By:
Books
Something educational :)
Forum Led by: Dark		 0 0 --
In: ----
By:
Game forum
any kinds of game threads will come here
Forum Led by: Lady Oria		 8 347 Jul 12 2006, 05:26 PM
In: Great link!!!!
By: Bidder1972
Graphics
for all you graphics ppl to offer ur services, and others to ask for them
Forum Led by: Saki		 14 53 Dec 18 2006, 06:05 PM
In: Amazing product - Claus Gam...
By: chs_koeffle1947
Family forum
come and get adopted!
Forum Led by: Mammu		 14 116 Dec 11 2006, 10:03 AM
In: Amazing product - Images Go...
By: chs_koeffle1947
 

 Fan Stuff
Forum Topics Replies Last Post Info
Fan Fiction
Think you are a good writer eh?
Forum Led by: Miroku's_Reincarnation		 0 0 --
In: ----
By:
Fan Art
Come in Da Vinci is waitng for you
Forum Led by: Miroku's_Reincarnation		 4 25 Dec 18 2006, 06:03 PM
In: Read about Story Village Coca
By: chs_koeffle1947
 

 Clubs
Forum Topics Replies Last Post Info
Girls Club
Girl's only chat
Forum Led by: Kagome		 3 28 Dec 24 2003, 07:22 AM
In: Protected Forum
By: Saki
Boys Club

Forum Led by: Miroku's_Reincarnation		 3 35 Jan 28 2004, 11:36 AM
In: Protected Forum
By: Dark
 

Quick Log In

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

Board Statistics
1 user(s) active in the past 15 minutes
1 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 10 on Mar 21 2009, 08:24 PM

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.2116 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