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 27 2009, 07:40 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 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
 

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