موقع المطورين
  العودة  موقع المطورين \ أقسام الأكواد والدروس \ ركن أكواد فيجويل بيسك visual Basic المجانيه \ تقريب الأرقام الكسرية للأكبر وللأصغر

http://mtweren.com/bb.pngحـساباتنا البنــكيةhttp://mtweren.com/bb.png

 
 
أدوات الموضوع العرض العاديالعرض المتطورالعرض الشجري
  #1  
قديم 10-07-2017, 01:05 PM
W!ndows W!ndows غير متواجد حالياً
Administrator
 
تاريخ التسجيل: Sep 2017
المشاركات: 350
افتراضي تقريب الأرقام الكسرية للأكبر وللأصغر

كود:
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
رد مع اقتباس


أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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