VorInspectionCompletion ()
Schwaches OpenDisc als Doppeltes
Schwaches PagesBOW als Doppeltes
Schwaches InspCom als Doppeltes
Schwaches TotalDisc als Doppeltes
OpenDisc = CDbl (InputBox („eintragen, wieviele geöffneten Einzelteile auf dem BOGEN sind: "))
PagesBOW = CDbl (InputBox („Zahl der BOGEN-Seiten eingeben: "))
TotalDisc = (PagesBOW) * 8
InspCom = (TotalDisc - OpenDisc)/TotalDisc
MsgBox „Prozentsatz der Kontrollen-Beendigung ist: “ U. Format (InspCom, „Prozent“)
Enden-Unterseeboot
|