Diese Funktion gibt den aktuellen Prozentwert eines Vorgangs (z.B. einer Schleife) zurück. Minimal 0 und Maximal 100. Man muss nur den aktuellen Wert und den Maximalen Wert angeben
Public Function Percent(ByVal CurrVal As Long, ByVal MaxVal As Long) As Integer
Return Int(CurrVal / MaxVal * 100 + 0.5)
End Function
Kommentare zum Snippet