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 to Beloved Anime. We hope you enjoy your visit.


You're currently viewing our forum as a guest. This means you are limited to certain areas of the board and there are some features you can't use. If you join our community, you'll be able to access member-only sections, and use many member-only features such as customizing your profile, sending personal messages, and voting in polls. Registration is simple, fast, and completely free.


Join our community!


If you're already a member please log in to your account to access all of our features:

Name:   Password:


Welcome back; your last visit was on Nov 19 2018, 11:02 PM
 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 50 Mar 20 2004, 10:15 PM
In: The End???
By: Lady Sesshoumaru
Welcome
Introductions
Forum Led by: Lady Sesshoumaru
16 128 Apr 9 2004, 12:25 AM
In: Howdy
By: koga~wolf
 

 Anime
Forum Topics Replies Last Post Info
InuYasha

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

Forum Led by: hen-anime-freak
2 24 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 58 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 22 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
29 342 Aug 28 2004, 10:01 PM
In: Board style
By: atsu
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 346 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
8 53 Mar 12 2004, 08:52 PM
In: wall
By: Yukikaze
Family forum
come and get adopted!
Forum Led by: Mammu
11 116 Jan 21 2004, 10:05 PM
In: Family needed!
By: Duke Devlin's Girl
 

 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
1 25 Jan 18 2004, 09:19 AM
In: fanart
By: Miroku's_Reincarnation
 

 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,047 posts
We have 55 registered members
The newest member is LiteSexSex
Most users ever online was 301 on Feb 24 2018, 07:45 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 zIFBoards* (Terms of Use: Updated 2/10/2010) | Powered by Invision Power Board v1.3 Final © 2003 IPS, Inc.
Page creation time: 0.0165 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