Nachkommawerte entfernen
26.10.2005 13:33:04
maik
ich habe ein ziemlich kompliziertes Problem. Und zwar definiere ich mit dem Begriff "nummer" im Makro eine bestimmte Zahl. Diese möchte ich im Makro durch den wert 10000 teilen und anschließend das Ergebnis ohne Nachkommastellen abgerundet erhalten. also zb.:
nummer = 276987
Ergebnis = 2 (276900/10000=2.769, Nachkommastellen wurden entfernt)
Bei meinem Versuch (siehe unten) wird allerdings leider nicht abgerundet. Wie kann ich das am günstigsten implementieren?
Tausend Dank
Maik
Private Function Nummernbereich(nummer As Long) As String
Dim zehntausender As Integer
zehntausender = nummer / 10000
Nummernbereich = zehntausender & "0000-" & zehntausender & "9999"
End Function
Anzeige