<%
'*********************************
'Funktion: formatFileSize (L1)
'Argumente: L1, Anzahl der Bytes
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: Formatdateigrößenstil
Beispiel: <%= formatFileSize (L1)%>
'*********************************
FunktionsformatFileSize (L1)
Diml2, L3
l3 = formatnumber (l1,0, true)
IFL1> 1048576Then
l2 = "(" & formatnumber (l1/1048576,0, true) & "mb)" & l3
anders
IFL1> 1024Then
l2 = "(" & formatnumber (l1/1024,0, true) & "kb)" & l3
anders
l2 = formatnumber (l1,0, true)
Endif
Endif
lli = l2
Endfunktion
%>