9(x)V9(y)形式固定長作成関数

Private Function ktFormat(strKazu As String, lngSeisuu As Long, lngSyousuu As Long) As String
    If IsNumeric(strKazu) = False Then
        ktFormat = "Err01"
        Exit Function
    End If
    
    Dim dblMoto As Double
    Dim lngMoto As Long
    Dim strMoto As String
    Dim intWk1 As Integer
    
    dblMoto = CDbl(strKazu)
    dblMoto = Abs(dblMoto)
    
    lngMoto = Int(dblMoto * 10 ^ lngSyousuu)
    
    If lngMoto > 10 ^ (lngSeisuu + lngSyousuu) Then
        ktFormat = "Err02"
        Exit Function
    End If
    
    strMoto = CStr(lngMoto)
    For intWk1 = 1 To (lngSeisuu + lngSyousuu - Len(strMoto))
        strMoto = "0" & strMoto
    Next

    ktFormat = strMoto
End Function