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, 06:29 PM
 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
 

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