Problème d'arrondi de chiffreRésolu

Question

Bonsoir &#224; tous....

En vbs, j'ai un petit probl&#232;me pour arrondir un chiffre.
J'ai beau essay&#233; avec Round, CInt, Fix...je n'y arrive pas..pourtant &#231;a parait simple.
J'ai un chiffre "23 456 789" (Koctets) et ma question comment l'arrondir pour avoir 
"23 457" (Mo), tout en conservant les espaces (FormatNumber)
Avec ma synthaxe erron&#233;e, j'obtiens "23457".

Ci-dessous, mon code complet et en rouge, o&#249; je coince.
Ce script analyse la volum&#233;trie des disks fixes.
Merci d'avance,
jean-marc

Call   ShowFreePourcent()
MsgBox ShowFreePourcent
Function ShowFreePourcent()
   Dim fso, d, s
   Set fso =  CreateObject("Scripting.FileSystemObject")
   Set dc = fso.Drives   'permet de parcourir tous les disks
   For Each d in dc
      Select Case d.DriveType  'selection en fonction du type de lecteur
'        Case 0: s = "Inconnu"
'        Case 1: s = " Disk Amovible"'        Case 2: s " Disk Fixe" & "> Espace disponible: " & d.AvailableSpace/1024 & " Koctets" 
'        Case 3: s = " Lecteur R&#233;seau"
'        Case 4: s = " Lecteur CD-ROM"
'        Case 5: s = " Disk virtuel"  
    
         Case 2: 
         s = "Lecteur " & d.DriveLetter & ":"
         s = s & vbCrLf
         s = s & "Taille totale        :  " & FormatNumber(d.TotalSize/1024, 0) & " KOctets" & vbCrLf


         s = s & "Taille occup&#233;e    :   "   & FormatNumber(FormatNumber(d.TotalSize/1024, 0) - _
               FormatNumber(d.AvailableSpace/1024, 0), 0) & " KOctets" & vbCrLf
         s = s & "Taille disponible  :    " & FormatNumber(d.AvailableSpace/1024, 0) & " KOctets" & vbCrLf                
         s = s & "Pourcentage occup&#233; :  " & FormatPercent((FormatNumber(d.TotalSize/1024, 0) -_
               FormatNumber(d.AvailableSpace/1024, 0)) /  FormatNumber(d.TotalSize/1024, 0)) & vbCrLf   
         s = s & "Pourcentage libre      :  " & FormatPercent(FormatNumber(d.AvailableSpace/1024, 0) /_
               FormatNumber(d.TotalSize/1024, 0)) & vbCrLf&vbCrLf&_
                "taille totale en Mo: " &  CInt(FormatNumber(FormatNumber(d.TotalSize/1024, 0) / 1000))  & " Mo"
         result  = result &vbCrLf& s &vbCrLf
         Case Else
      End Select
   Next      
   ShowFreePourcent = result
End Function

Gobillot · Accepted Answer

Bonsoir,

FormatNumber est une cha&#238;ne et ne doit pas &#234;tre utilis&#233; dans les calculs

on calcule en num&#233;rique et on formate ensuite
et aussi  1 Mo = 1024 Ko 



MsgBox "taille totale en Mo: " & FormatNumber(d.ToTalSize / 1024 / 1024, 0)



'la division par 1024 est inutile pour le calcul du pourcentage

s = s & "Pourcentage occup&#233; :  " & FormatPercent((d.ToTalSize - d.AvailableSpace) / d.ToTalSize, 0) & vbCrLf




Daniel

cs_JMO · Answer

Bonsoir,

Merci, Daniel, 
J'ai test&#233; les l'arrondi du % et de Mo en Go.

jean-marc

Problème d'arrondi de chiffre

2 réponses

Discussions similaires