تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل التنسيق بايت الي Kb- Mb- Gb بالكود
#1
كاتب الموضوع : AhmedEssawy

مثال
  • SetBytes(74) 'returns "74 Bytes"
  • SetBytes(5037) 'returns "4.92 KB"
  • SetBytes(6383838) 'returns "6.09 MB"
  • SetBytes(3368383278) 'returns "3.14 GB"



كود :
Function SetBytes(Bytes) As String

On Error GoTo hell

If Bytes >= 1073741824 Then
SetBytes = Format(Bytes / 1024 / 1024 / 1024, "#0.00") _
& " GB"
ElseIf Bytes >= 1048576 Then
SetBytes = Format(Bytes / 1024 / 1024, "#0.00") & " MB"
ElseIf Bytes >= 1024 Then
SetBytes = Format(Bytes / 1024, "#0.00") & " KB"
ElseIf Bytes < 1024 Then
SetBytes = Fix(Bytes) & " Bytes"
End If

Exit Function
hell:
SetBytes = "0 Bytes"
End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تحويل المشروع إلى exe من خلال الكود RaggiTech 0 663 17-10-12, 12:52 AM
آخر رد: RaggiTech
  تفقيط الارقام ( تحويل الأرقام 123 إلى مائة وثلاث وعشرون ) RaggiTech 0 1,437 17-10-12, 12:41 AM
آخر رد: RaggiTech
  تحويل من الصيغه رقم الي وقت RaggiTech 0 327 17-10-12, 12:34 AM
آخر رد: RaggiTech
  تحويل الرقم العشري الي Bin- Oct- Hex RaggiTech 0 423 17-10-12, 12:33 AM
آخر رد: RaggiTech
  تحويل الحرف الأول من كل كلمة إلى Capital RaggiTech 0 415 17-10-12, 12:33 AM
آخر رد: RaggiTech
  تفعيل أو تعطيل زر الإغلاق (x) في النوافذ بالكود المبرمج الطموح vb6 0 562 05-10-12, 06:41 PM
آخر رد: المبرمج الطموح vb6

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


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