InspectionCompletion secundario ()
OpenDisc dévil como doble
PagesBOW dévil como doble
InspCom dévil como doble
TotalDisc dévil como doble
OpenDisc = CDbl (InputBox (“incorporar cuántos artículos abiertos están en el ARCO: "))
PagesBOW = CDbl (InputBox (“incorporar el número de páginas del ARCO: "))
TotalDisc = (PagesBOW) * 8
InspCom = ()/TotalDisc de TotalDisc - de OpenDisc
Porcentaje de MsgBox el “de la terminación de la inspección es: ” Y formato (InspCom, “el por ciento”)
Submarino del extremo
|