万能函数，配置小数点保留几位的问题

最新推荐文章于 2023-04-26 09:29:46 发布

zzz22333

最新推荐文章于 2023-04-26 09:29:46 发布

阅读量735

点赞数

分类专栏： VB 文章标签： integer string textbox

本文链接：https://blog.csdn.net/zzz22333/article/details/1350577

版权

VB 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

Public Sub ControlInput(txtText As TextBox, IntegerDigits As Integer, DecimalDigits As Integer)

    Dim txtCurrently As String
    Dim Str_IntegerDigits
    Dim Digits As String
    Dim Bln_Negative As Boolean
    Dim userKeyAsc As Integer

txtCurrently = txtText.SelStart
Bln_Negative = False

Digits = InStr(1, txtText, "-")
If Digits > 0 Then txtText = Mid(txtText, Digits)

    If Left(txtText, 1) = "-" Then
        Bln_Negative = True
        IntegerDigits = IntegerDigits - 1
        Str_IntegerDigits = Mid(txtText, 2)
    Else
        Str_IntegerDigits = Mid(txtText, 1)
    End If

Digits = InStr(1, Str_IntegerDigits, ".")

    If Digits > 0 Then
        If IntegerDigits > Digits - 1 Then
            Str_IntegerDigits = Mid(Str_IntegerDigits, 1, Digits - 1) + Mid(Str_IntegerDigits, Digits, DecimalDigits + 1)
        Else
            IntegerDigits = Mid(Str_IntegerDigits, 1, IntegerDigits) + Mid(Str_IntegerDigits, Digits, DecimalDigits + 1)
            Digits = InStr(1, Str_IntegerDigits, ".")
        End If
        Digits = Len(Str_IntegerDigits) - Digits
        If Left(Str_IntegerDigits, 1) = "." Then
            txtCurrently = txtCurrently + 1
            Str_IntegerDigits = "0" & Str_IntegerDigits
        End If
        If Digits < DecimalDigits Then
'            Str_IntegerDigits = Format(Str_IntegerDigits, "#0." + String(Digits, "0"))
           Str_IntegerDigits = Format(Str_IntegerDigits, "#0" + String(Digits, "0"))
        Else
'           Str_IntegerDigits = Format(Str_IntegerDigits, "#0." + String(DecimalDigits, "0"))
           Str_IntegerDigits = Format(Str_IntegerDigits, "#0" + String(DecimalDigits, "0"))
        End If
    Else
        Str_IntegerDigits = Mid(Str_IntegerDigits, 1, IntegerDigits)
        Str_IntegerDigits = Format(Str_IntegerDigits)
    End If