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 FunctionViewing ProfileFunction 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



Mammu
Find all topics by this member · Add to contact list

Active Stats
Total Cumulative Posts 313 ( 15.03% of total forum posts )
Posts per day 0.1
Joined 8-December 03
Last Activity: Apr 16 2005, 04:40 PM
User's local time Dec 6 2009, 08:15 PM
Communicate
Email Click Here
AIM Name omg what is that lol
ICQ Number No Information
Yahoo Identity nup dunt have one
MSN Identity zooomey@hotmail.com
Personal Message Click Here
Information
Home Page No Information
Birthday 27 October 1989
Location in a big forest lol :)
Interests Are my dog,friends and family,computer,anime,INUYASHA,computer,my life lol,my computer,the computer ect hehe
Posting Details
Member Group Admin
Member Title Animetor
Avatar
Signature user posted image
user posted image
Thank u Saki

MY Family
B/F:
Sister(s):Saki,Kage,Priestess Kikyo
Brother(s):Dark,Langely
Pet(s):koga~wolf
<( back )
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.0308 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