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 5 2009, 01:06 PM
 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
 

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