EDI中常用的把金额中的小数点去掉,然后补足位数.

//其实就是EDI中的一种文件加密,美国老经常用的,这东西其实特烦人.,呵呵~~
//这是其中的一个函数,去点.....

//StrPut为要去点的字串
//M为要保留的字串位数
Public Function FPoint(StrPut As String, M As Integer) As String
    Dim I As Integer
    Dim J As Integer
    Dim K As Integer
       
    I = InStr(1, StrPut, ".", vbTextCompare)
    If I <> 0 Then

        If Len(StrPut) - I = 2 Then
            StrPut = Left(StrPut, I - 1) & Right(StrPut, 2)
        ElseIf Len(StrPut) - I = 1 Then
            StrPut = Left(StrPut, I - 1) & Right(StrPut, 1) & "0"
        End If
    Else
        StrPut = StrPut + "00"
    End If
    J = Len(StrPut)
    If J < M Then
        I = M - J
        For K = 1 To I
            StrPut = "0" & StrPut
        Next
    End If
    FPoint = StrPut
End Function