時間を数字の羅列に変換する

＜分類：値変換＞
＜使用例：時間をT＋数字羅列の時間に変換する 00:01:02 → T000102＞
＜なぜTをつけるか？先頭0の時が数字として変換されてしまうのであえてTをつけて完全文字列となるようにする＞
＜プログラム例＞

Sub 使用例()
    Dim t As String
    Dim s As String
    
    t = "00:01:02"
    s = 共通_cov_time_t9(t)

    If s <> "" Then
       MsgBox (t & "を " & s & " に変換しました")
    End If
End Sub

Function 共通_cov_time_t9(p1 As String) As String
    共通_cov_time_t9 = "T" & CStr((Format(p1, "hhnnss")))
End Function