module1.bas

很多的vb经典源代码

Attribute VB_Name = "Module1"
Option Explicit
Public hh, mm, ss As Integer

Public Function hmsValueToString(ByVal h As Integer, ByVal m As Integer, ByVal s As Integer) As String
    Dim hstring, mstring, sstring As String
    If h < 10 Then
       hstring = "0" + Trim(Str(h))
    Else
       hstring = Trim(Str(h))
    End If
    If m < 10 Then
       mstring = "0" + Trim(Str(m))
    Else
       mstring = Trim(Str(m))
    End If
    If s < 10 Then
       sstring = "0" + Trim(Str(s))
    Else
       sstring = Trim(Str(s))
    End If
    hmsValueToString = hstring + ":" + mstring + ":" + sstring
    
End Function