Feedback

VB - Aktuellen Prozentwert berechnen

Veröffentlicht von am 03.07.2006
(2 Bewertungen)
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
Abgelegt unter Prozent.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!