module1.bas

来自「VB程序设计示例及源代码」· BAS 代码 · 共 25 行

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