<٪
'*********************************
"الوظيفة: FormatFilesize (L1)
الحجج: L1 ، عدد البايتات
المؤلف: Alixi
"التاريخ: 2007/7/12
'الوصف: نمط حجم الملف
"مثال: <٪ = FormatFilesize (L1) ٪>
'*********************************
FunctionFormatfilesize (L1)
DIML2 ، L3
L3 = Formatnumber (L1،0 ، صحيح)
IFL1> 1048576then
L2 = "(" & formatnumber (L1/1048576،0 ، True) و "MB)" & L3
آخر
IFL1> 1024then
l2 = "(" & formatnumber (L1/1024،0 ، true) و "kb)" & l3
آخر
L2 = Formatnumber (L1،0 ، صحيح)
Endif
Endif
lli = l2
الوظيفية
٪>