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);

    Public Function GetSizeName(ByVal lValue As Long) As String
        If (lValue = 0) Or (lValue = 1) Then
            Return lValue.ToString & " octet"
        ElseIf lValue < 0 Then
            Return String.Empty
        End If
        Dim asLibs() As String = {"octets", "Ko", "Mo", "Go", "To"}
        Dim r As Double = Convert.ToDouble(lValue)
        Dim d As Integer = asLibs.GetLowerBound(0)
        Dim s As Boolean
        Do While r > 1024
            s = Not ((Convert.ToInt64(r) And 1023) = 0)
            r = r / 1024
            d += 1
        Loop
        Dim sRet As String = String.Format("{0} {1}", Math.Round(r, 3), asLibs(d))
        asLibs = Nothing
        Return sRet
    End Function

    ''' <summary>
    ''' Converti une taille exprimée en octet en une chaine formattée
    ''' </summary>
    ''' <param name="Entier">Taille en octet</param>
    ''' <returns>Chaine formattée avec l'unité</returns>    
    Public Function ConvertSizeFile(ByVal Entier As Long) As String

        If (Entier >= &H10000000000) Then
            Return String.Format("{0:N2} To", Entier / &H10000000000)
        ElseIf (Entier >= &H40000000) Then
            Return String.Format("{0:N2} Go", Entier / &H40000000)
        ElseIf (Entier >= &H100000) Then
            Return String.Format("{0:N2} Mo", Entier / &H100000)
        ElseIf (Entier >= &H400) Then
            Return String.Format("{0:N2} Ko", Entier / &H400)
        Else
            Return String.Format("{0} oc", Entier)
        End If

    End Function

Private Declare Function StrFormatByteSize Lib "shlwapi.dll" Alias "StrFormatByteSizeA" (ByVal dw As Long, ByVal szBuf As String, ByVal uiBufSize As Long) As Long
Public Function FormatSize(ByVal vnSize As Long) As String
Dim sBuffer As String * 128
Dim nPos As Long
   If StrFormatByteSize(vnSize, sBuffer, 128) Then
       nPos = InStr(sBuffer, vbNullChar)
       If nPos Then
           FormatSize = Strings.Left$(sBuffer, nPos - 1)
       End If
   End If
End Function