Soyez le premier à donner votre avis sur cette source.
Snippet vu 35 071 fois - Téléchargée 47 fois
Public Function ConvertOctets(Prm_L_Num As Long) As String On Error GoTo ConvertOctets_Err Dim L_Size As Long L_Size = Prm_L_Num ' Mise en cache If (L_Size / 1024 > 1) Then L_Size = L_Size / 1024 If (L_Size / 1024 > 1) Then L_Size = L_Size / 1024 If (L_Size / 1024 > 1) Then L_Size = L_Size / 1024 If (L_Size / 1024 > 1) Then L_Size = L_Size / 1024 Else ConvertOctets = CStr(L_Size) & " Go" End If Else ConvertOctets = CStr(L_Size) & " Mo" End If Else ConvertOctets = CStr(L_Size) & " Ko" End If Else ConvertOctets = CStr(L_Size) & " Oct" End If Exit Function ConvertOctets_Err: Call MsgBox("Erreur n° : " & Err.Number & vbCrLf & "Description : " & Err.Description, vbOkOnly + VbExclamation, App.Title) End Function
Imports System.Math
Public Function func_RoundTaille(ByVal LaTaille As Long) as String
Select Case LaTaille
Case Is < 1024
Return Round(LaTaille) & " Octets"
Case Is < 1048576
Return Round(LaTaille / 2^10, 3) & " Ko"
Case Is < 1073741824
Return Round(LaTaille / 2^20, 3) & " Mo"
Case else
Return Round(LaTaille / 2^30, 3) & " Go"
End Select
End Function
Il vaut mieux utiliser "Prm_L_Num As Currency" cela évite les dépacement de capcité.
Cette fonction est bien pratique, Bravo.
ca c'est du bon code !!!!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.