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 FunctionMember ListFunction 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



Pages: (2) [1] 2 

Member List
Name Level Group Joined Posts Email AOL ICQ Photo
angelwolf Members 15-December 03 0    
atsu Admin 8-December 03 212    
ayameluvsinuyasha Members 21-December 03 0  
BabyInuyasha Members 26-January 04 4    
beautiful*blonde Members 28-December 03 2    
Bidder1972 Members 12-July 06 1    
candy Members 14-December 03 0    
D inuyasha Gurl Members 28-December 03 30    
Dark Members 9-December 03 193  
Dark_Angel_Kagura Members 9-December 03 1    
Dranzer Members 19-December 03 16    
Dronogon Members 27-August 07 0    
Duke Devlin's Girl Members 30-December 03 20    
hen-anime-freak Moderator 20-December 03 30    
hen-anime_freak Members 19-December 03 1    
I LOVE INUYASHA!!! Members 12-January 04 1    
InuYashaIsTheBest Members 26-January 04 1    
josedavid Members 7-August 07 0    
JourneyMojo Members 14-November 05 1    
KaeKane Members 13-December 03 1    
Kage Members 28-December 03 20    
Kagome Members 10-December 03 10    
Kairi Members 6-February 04 0    
koga~wolf Admin 9-December 03 544    
Kotaro Members 23-February 04 0    
KPbIC Members 6-January 04 17    
Kyattoyasha Members 8-January 04 10    
Lady Oria Moderator 20-December 03 162  
Lady Sesshoumaru Moderator 3-January 04 59    
Langely Members 28-December 03 48    
LiteSexErotica Members 7-September 07 0    
LiteSexSex Members 27-December 07 0    
LiteViagra Members 15-December 07 0    
lonely princess Members 7-February 04 0    
Lost Demon Members 28-December 03 5    
Lucy Members 16-January 04 22    
Mammu Admin 8-December 03 313  
MenSuperLive Members 30-August 07 0    
MenSuperLiveSex Members 30-August 07 0    
Miroku's_Reincarnation Members 14-December 03 74    
Nason Members 3-January 04 36  
ninekittylives Members 7-January 04 0    
Pamela Members 21-August 07 0    
Pervert Members 6-March 04 1    
Pixie Members 15-December 03 0    
Priestess Kikyo Members 22-December 03 2    
SailorKairi Members 6-February 04 1    
Saki Admin 9-December 03 313    
Sango Members 29-December 03 1    
suitechic1979 Members 26-January 07 0    
Show matches with photo only? 
  
Showing by in with results per page 

Pages: (2) [1] 2 
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.0126 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