الوظيفة VBA: Round

وصف

تقرِّب الدالة VBA Round رقمًا إلى العدد المحدد من المنازل العشرية.

بناء الجملة Round

Round (الرقم ، عدد_العلامات_العشرية)

مثال VBA Round

باستخدام الدالة Round لتقريب رقم إلى منزلتين عشريتين:

Sub RoundExample1()

    number = 12.3456
    
    round = Round(number, 2)
    
    MsgBox round 'يعود عند 12.35
    
End Sub

استخدام الدالة Round لتقريب القيم الرقمية المختلفة:

Sub RoundExample2()

    MsgBox Round(14.2)         'العوائد: 14
    MsgBox Round(-14.2)        'العوائد: -14
    MsgBox Round("14.2")       'العوائد: 14
    MsgBox Round("-14.2")      'العوائد: -14
    
    MsgBox Round(9.5)          'العوائد: 10
    MsgBox Round(-9.5)         'العوائد: -10
    
    MsgBox Round(1.25, 1)      'العوائد: 1.2
    MsgBox Round(50, 1)        'العوائد: 50
    
    MsgBox Round(4532.6351, 2) 'العوائد: 4532.64
    
End Sub