Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB5,VB6
Expertise: beginner
Aug 18, 2001

SecondsToString - Convert a number of seconds into a formatted time string

' Converts a numeric value in seconds to a string
' Example:
'    MsgBox SecondsToString(3920) --> 1h.5m.20s
Function SecondsToString(ByVal Seconds As Long) As String
    
    SecondsToString = (Seconds \ 3600) & "h." & ((Seconds \ 60) Mod 60) & "m." _
        & (Seconds Mod 60) & "s."
    
End Function
Alberto Falossi
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date