Public Function GetElapsedTime(tStart, tStop) As String Dim dtr, dtl, jml As Long dtl = (Hour(tStart) * 3600) + _ (Minute(tStart) * 60) + (Second(tStart)) dtr = (Hour(tStop) * 3600) + _ (Minute(tStop) * 60) + (Second(tStop)) If tStop < tStart Then jml = 86400 Else jml = 0 End If jml = jml + (dtr - dtl) GetElapsedTime= Format(Str(Int((Int((jml / 3600)) Mod 24))), "00") _ + ":" + Format(Str(Int((Int((jml / 60)) Mod 60))) _ , "00") + ":" +Format(Str(Int((jml Mod 60))), "00") End Function
GetElapsedTime
Label:
Belajar VB
,
Programming
,
Visual Basic
Subscribe to:
Post Comments (
Atom)
INDEX
Labels
- Article ( 3)
- Assembler ( 1)
- Belajar VB ( 36)
- General Ledger ( 1)
- Jaringan ( 3)
- Microcontroller ( 3)
- Produk ( 5)
- Programming ( 48)
- Visual Basic ( 39)
- Website ( 7)
Search By Google
About this blog
Assist each company to improve efficiency and effectiveness to achieve the objectives to serve clients in a professional, objective and sustainable and provide the best solutions for businesses in solving problems in the procurement of informatics and technology.
Excellence
With support from experts and experienced professionals and geared towards fulfilling the needs of clients who put quality in a cost competitif. We also work as partners culter tailored to your company's corporate and can also provide an applicable and practical advice for clients.
No comments:
Post a Comment
Post Comments
Do you have any suggestions ? Add comment. Do not spam!