07. maj 2004 - 22:33Der er
4 kommentarer og 1 løsning
runde op
Hejsa!
Jeg har nogle tilfældige tal, som jeg gerne skulle have rundet op f.eks. hvis jeg får 107 skal den rundes op til 125 eller hvis jeg får 174 skal det rundes op til 175 eller 176 skal rundes op til 200 osv. hvordan kan jeg gøre det?
Kan lige nævne at tallet altid er et helt tal altså ingen decimaler :)
Private Sub Form_Load() Me.Caption = Rundop(781) End Sub
Public Function Rundop(ByVal Number As Long) As Long Dim i As Long Dim newVal As Long For i = 1 To Number newVal = (i * 25) If Number <= newVal Then Rundop = newVal Exit Function End If Next End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.