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 Anime -> The End???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
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


 

 The End???
 
Do you post here?Do you want this forum?
YES [ 11 ]  [100.00%]
NO [ 0 ]  [0.00%]
Total Votes: 11
Guests cannot vote 
Track this topic | Email this topic | Print this topic
atsu
Posted on Feb 2 2004, 06:01 PM


God of all Anime
Group Icon

Group: Admin
Posts: 212
Member No.: 2
Joined: 8-December 03
Okay we need 5 votes if we want to keep this place open if you think that we should close this forum vote NO and than we need 6 for yes

if you read this please vote!
koga~wolf
Posted on Feb 5 2004, 10:54 PM


Red Wolf Pup
Group Icon

Group: Admin
Posts: 544
Member No.: 5
Joined: 9-December 03
ok. it's your decision to close the board or not, but i voted yes all the same. (yes does mean keep it...right?)


--------------------
Oak Wolf Pack: Alpha female
Members: 1st Commander Omikron-Lady Oria
Dragon Guardian-Saki
(if you would like to join, you can post in my thread in the family forum, or PM me.)

Family!!:
(Twin Wolf Sis:) Lady Oria
(Master:) Mammu
(Cuzins:) Saki
(Brother:) Dark, (Older Bro) Nason
(Twin sis:) hen-anime_freak
(Wolf Slippers for:) Priestess Kikyo
(Aunt:) Kage
user posted image
user posted image
all siggy pics thx to Saki!!!
Lady Sesshoumaru
Posted on Mar 20 2004, 10:15 PM


Anime lord
Group Icon

Group: Moderator
Posts: 59
Member No.: 27
Joined: 3-January 04
I gotta agree with Koga Wolf. It's your forum so you can do whatever you want to do with it.


--------------------
user posted image
user posted image
1 User(s) are reading this topic (1 Guests and 0 Anonymous Users)
0 Members:
« Next Oldest | News and announcements | Next Newest »





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