Sub InspectionCompletion ()
Schemerige OpenDisc zoals Dubbel
Schemerige PagesBOW zoals Dubbel
Schemerige InspCom zoals Dubbel
Schemerige TotalDisc zoals Dubbel
OpenDisc = CDbl (InputBox („ga hoeveel open punten in op de BOOG zijn: “))
PagesBOW = CDbl (InputBox („ga aantal pagina's van de BOOG in: “))
TotalDisc = (PagesBOW) * 8
InspCom = (TotalDisc - OpenDisc)/TotalDisc
Percentage van MsgBox het „van de Voltooiing van de Inspectie is: “ & Formaat (InspCom, „percenten“)
Sub van het eind
|