Hej! Du skulle kunna använda dig av Modulus för att kolla vad decimalen visar... Hej AVRUNDATTAL = Int((TAL * 100 + 50) \ 100) Hej Hej. Hej HOWTO: Implement Custom Rounding Procedures Jag förstår nog inte riktigt hur detta: Int(12.1 * -1) * -1 ska funka. HejSyntax för att avrunda decimaltal
Nån som vet vad det är för syntax om man vill avrunda ett decimaltal uppåt oavsett vad det blir?
Ex 12,1 = 13
12,9 = 13
AggeSv: Syntax för att avrunda decimaltal
och vill du avrunda uppåt är det väl bara att addera ett till heltalsvärdet...
/HempaSv: Syntax för att avrunda decimaltal
Om du gillar den här lösningen så funkar det.
Label1.Caption = Int(12.1 * -1) * -1
mvh
SvenSv: Syntax för att avrunda decimaltal
Denna funktion avrundar ett tal med en decimal till ett tal utan decimal
OBS!
Om ditt tal(TAL) skrivs in med en punkt som delimiter så måste du använda replace
TAL = Replace(TAL, ".", ",")Sv: Syntax för att avrunda decimaltal
Sorry Nettan men din lösning fungerar inte mot vad
frågan gällde. Tex 12.1 skall bli 13.
mvh
SvenSv: Syntax för att avrunda decimaltal
Det finns, i många språk, en matematisk funktion som heter CEIL.
/UffeSv: Syntax för att avrunda decimaltal
Och om man kollar functionen så ser den ut så här
Retur = Int(12.1 * -1) * -1
mvh
SvenSv: Syntax för att avrunda decimaltal
http://support.microsoft.com/default.aspx?scid=kb;;Q196652
MSSv: Syntax för att avrunda decimaltal
Int() returnerar heltalsdelen av ett tal. Alltså Int (12.1)=12
Int (12.1 * -1) = -12 och slutligen
-12 * -1 = 12 och jag ska få 13. Eller har jag fått allt om bakfoten?
Jag tänkte innan att jag kunde ha Int(tal)+1. Alltså, eftersom Int() alltid kapar decimalerna så kunde jag bara plussa med ett och få avrundningen uppåt men om jag t ex får ett tal som går jämt upp och tar Int() på det och sen plus ett så blir det ju fel. I så fall måste jag testa om det är ett heltal eller decimaltal men jag vet nog inte riktigt hur jag ska göra. Är väldigt seg nu så jag kan knappt tänka. Det kanske inte är så svårt.
/AggeSv: Syntax för att avrunda decimaltal
Men snälla, du får väl testa innan du skrynklar hjärnan.
Du frågade hur skall jag få detta exempel
Ex 12,1 = 13
12,9 = 13
Svar så här:
Ex Label1.Caption = Int(12.1 * -1) * -1
Ex2 Label1.Caption = Int(12.9 * -1) * -1
båda kommer att ge svar 13
mvh
Sven