広告
広告
サイン付は未対応。逆変換にも未対応。
第一引数 | 元数値 |
---|---|
第二引数 | 整数部分桁数 |
第三引数 | 小数部分桁数 |
戻り値 | 関数 |
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
広告