VB 数字精确到十位数

作者: aotian16   发布时间: 2011-10-30

作者: worldy   发布时间: 2011-10-30

Option Explicit

Private Sub Command1_Click()
    Dim dblP As Double
    Dim intP As Integer
    dblP = 183.39
    intP = (CInt(dblP) \ 10) * 10
    Debug.Print intP
End Sub

作者: Veron_04   发布时间: 2011-10-30