تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تقريب الأرقام الكسرية للأكبر وللأصغر
#1
كاتب الموضوع : AhmedEssawy


كود :
Public Function roundDown(dblValue As Double) As Double
On Error GoTo PROC_ERR
Dim myDec As Long

myDec = InStr(1, CStr(dblValue), ".", vbTextCompare)
If myDec > 0 Then
roundDown = CDbl(Left(CStr(dblValue), myDec))
Else
roundDown = dblValue
End If

PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox Err.Description, vbInformation, "Round Down"
End Function

Public Function roundUp(dblValue As Double) As Double
On Error GoTo PROC_ERR
Dim myDec As Long

myDec = InStr(1, CStr(dblValue), ".", vbTextCompare)
If myDec > 0 Then
roundUp = CDbl(Left(CStr(dblValue), myDec)) + 1
Else
roundUp = dblValue
End If

PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox Err.Description, vbInformation, "Round Up"
End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تفقيط الارقام ( تحويل الأرقام 123 إلى مائة وثلاث وعشرون ) RaggiTech 0 1,437 17-10-12, 12:41 AM
آخر رد: RaggiTech
  تفقيط الأرقام باللغة الإنجليزية RaggiTech 0 1,355 17-10-12, 12:41 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم