Convertir un nombre en taille (Ko,Mo,Go)

Public Function GetSizeName(ByVal vValue As Long) As String
    Dim Desc As Variant
    Dim s    As Boolean
    Dim d    As Integer
    Dim r    As Double
    r = vValue
    Desc = Array("octets", "Ko", "Mo", "Go", "To")
    Do While r > 1024
        s = (r And 1023) <> 0
        r = r / 1024
        d = d + 1
    Loop
    If s Then
        If r > 100 Then
            GetSizeName = Format(r, "0") & " " & Desc(d)
        ElseIf r > 10 Then
            GetSizeName = Format(r, "0.0") & " " & Desc(d)
        Else
            GetSizeName = Format(r, "0.00") & " " & Desc(d)
        End If
    Else
        GetSizeName = r & " " & Desc(d)
    End If
End Function

function SizeToStr(const Size : int64) : string;
begin
  if Size < $000000000400 then
     result := format('%d bytes',[Size]) 
  else
  if Size < $000000100000 then
     result := format('%.1f Kb',[Size/$000000000400]) 
  else
  if Size < $000040000000 then
     result := format('%.1f Mb',[Size/$000000100000]) 
  else
  if Size < $010000000000 then
     result := format('%.2f Gb',[Size/$000040000000]) 
  else
     result := format('%.2f Tb',[Size/$010000000000]) 
end;

function GetSizeName($octet)
{
    // Array contenant les differents unités 
    $unite = array('octet','ko','mo','go');
    
    if ($octet < 1000) // octet
    {
        return $octet.$unite[0];
    }
    else 
    {
        if ($octet < 1000000) // ko
        {
            $ko = round($octet/1024,2);
            return $ko.$unite[1];
        }
        else // Mo ou Go 
        {
            if ($octet < 1000000000) // Mo 
            {
                $mo = round($octet/(1024*1024),2);
                return $mo.$unite[2];
            }
            else // Go 
            {
                $go = round($octet/(1024*1024*1024),2);
                return $go.$unite[3];    
            }
        }
    }
}

function int2taille($i, $b=1024){
    $o=$i%1024;
    $k=(int)(($i/$b)%$b);
    $m=(int)(($i/$b/$b)%$b);
    $g=(int)(($i/$b/$b/$b));
    return (($g!=0)?($g.' Go '.$m.' Mo '.$k.' Ko '.$o.' o'):($m!=0)?($m.' Mo '.$k.' Ko '.$o.' o'):(($k!=0)?$k.' Ko '.$o.' o':$o.' o'));
}

sub int2taille
{
    $i=@_[0];
    $b=@_[1];
    $o=$i%1024;
    $k=int(($i/$b)%$b);
    $m=int(($i/$b/$b)%$b);
    $g=int(($i/$b/$b/$b));
    return (($g!=0)?($g.' Go '.$m.' Mo '.$k.' Ko '.$o.' o'):($m!=0)?($m.' Mo '.$k.' Ko '.$o.' o'):(($k!=0)?$k.' Ko '.$o.' o':$o.' o'));
}
print int2taille(4000, 1024);