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



Lady Oria
Find all topics by this member · Add to contact list

Active Stats
Total Cumulative Posts 162 ( 7.78% of total forum posts )
Posts per day 0.1
Joined 20-December 03
Last Activity: May 24 2004, 04:22 AM
User's local time Dec 4 2009, 11:25 AM
Communicate
Email Click Here
AIM Name squallsgaile
ICQ Number No Information
Yahoo Identity ladyoria
MSN Identity No Information
Personal Message Click Here
Information
Home Page No Information
Birthday 26 January 1985
Location in the tropical paradise of the southeastern states! FLORIDA!
Interests anime, drawing, painting, sculpture, punk rock, concerts, guys with mohawks, guys with long hair and pretty blue eyes, drawing on people, (thinkin' about bein' a tatoo artist), umm... oh! LOTR (was a fan b4 the movies were even thought of...), wicca, supernatural, nature, wolves, fire, swimming, and Final Fantasy VIII (squall is hot! MINE!) lol
Posting Details
Member Group Moderator
Member Title Grey Wolf Mod of RPGs
Avatar
Signature ~For once in my life.... I kinda sorta think that I'm happy..... notice the kinda sorta part.....

~Sunshine is one of my favorite things in the world!

user posted image
user posted image

Thank you Saki for all the beautiful siggies! *bows* *pays homage*....

Oak Wolf Pack
Alpha Female: koga_wolf
Dragon Guardian: Saki
Commander Omikron: Lady Oria

Family:
Twin Wolf Pup Sista!: koga_wolf
Dragon Sister: Saki
Master: Nason
<( 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.0557 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