• Home
 · 
• Miscellaneous
 · 
• Use Function Round in VB6

Use Function Round in VB6

Use Function Round in VB6

Rate Use Function Round in VB6

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub cmdRound_Click()
    '
    Dim dblTest As Double
    '
    '
    If IsNumeric(txtTest.Text) = False Then Exit Sub
    '
    dblTest = Val(txtTest.Text)
    '
    dblTest = Round(dblTest, 3)
    '
    txtTest.Text = Str(dblTest)
    '
End Sub