Formating floating point/double for display

Function ccRound%(flot#)
	Return Floor(flot+0.5)
End Function

function fRound:float(number:float,decimals:int)
 local t:int = 10^decimals
 local result:float = int(number * t + 0.5)
 return result / t
end function

test#= 1.4
Print test
Print fround(test,1)

Function fRound:Float(number:Float,decimals:Int)
 Local t:Int = 10^decimals
 Local result:Float = Int(number * t + 0.5)
 Return result / t
End Function

	Method GetMultiplierStrings(M: Double,part1$ Var, part2$ Var)
		'Convert the multiplier number into a string.
		'First get the part before the decimal place.
		Local temp$ = String(M)		
		Part1$ = ccFirstStringToSubChop(temp,".")
		'Now make sure the number after the decimal is a single digit.
		'We need to do this because 1.4 in Double is stored as 1.399999 etc !		
		'We do this by multiplying by 10 and turning into an int.
		Local TempPart2 = Floor(0.05+(Float("0."+temp)*10)) 'round down! (add on a little bit of 0.05 to make sure that .999 numbers go over to the next whole number.)

		'Has it rounded up to the next number?
		If String(TempPart2) = "10" Then
			TempPart2 = 0
			Part1 = String(Part1.ToInt()+1)
		EndIf
		Part2 = String(TempPart2)
	End Method

Function ccFirstStringToSubChop$(s$ Var, sub$)
	'Pass in a String, this will only return the first part up to,
	'but not including, the substring (or end).
	'The source string will have the first part and the substring removed.	
	Local pos% = Instr(s$, sub$)
	'If pos = 0 then the end of the string was reached, so return the whole thing.
	If pos = 0 Then
		Local ret$ = s$
		'now clear s$
		s$ = ""
		Return ret$
	Else
		Local ret$ = Mid(s$, 1, pos-1)
		s$ = Mid$(s$, pos+1, Len(s$)) 'leave remainer in s$
		Return ret$		
	EndIf
End Function

Strict

Local test#=1.356
Print test
Print ccRoundFloatToString(test,1)
Print ccRoundFloatToString(test,2)
Print ccRoundFloatToString(test,3)

Function ccRoundFloatToString$(number:Float,decimals:Int)
	'This gets rid of any floating point inaccuracies such as 1.4 stored in a float
	'displaying as 1.39999 etc.
	Local t:Int = 10^decimals
	Local result% = Int(number * t + 0.5)
	'Convert result into a string	
	Local display$ = String(result)
	'Now put in a decimal point at the correct place.
	display = Mid(display,1,Len(display)-decimals)+"."+Mid(display,Len(display)-decimals+1,decimals)
	Return display
End Function

Function PrettyFloat:String( value:Double)
Extern "C"
	Function modf:Double( value:Double, intpart:Double Var)
	Function snprintf_i:Int( buf:Byte Ptr, szbuf:Int, fmtstr$z, val:Int) = "snprintf"
	Function snprintf_f:Int( buf:Byte Ptr, szbuf:Int, fmtstr$z, val:Double) = "snprintf"	
EndExtern
	Local i:Double
	Local buf:Byte[32]
	Local l:Int
	' check for whole number
	If modf( value, i) = 0.0 Then 
		l = snprintf_i( buf, SizeOf(buf), "%d", i)
		Return String.FromBytes( buf, l)
	Else
		' eliminate ending zeros except the one after "."
		l = snprintf_f( buf, SizeOf(buf), "%f", value)
		While (l > 0) And (buf[l-1] = Asc("0")) And (buf[l-2] <> Asc("."))
			l :- 1
		Wend
		' terminate it, just in case
		buf[l+1] = 0
		Return String.FromBytes( buf, l)
	EndIf
EndFunction

Strict

Local test#=50
Print test
Print ccRoundFloatToString(test,1)
Print ccRoundFloatToString(test,2)
Print ccRoundFloatToString(test,3)

Function ccRoundFloatToString$(number:Float,decimals:Int)
	'This gets rid of any floating point inaccuracies such as 1.4 stored in a float
	'displaying as 1.39999 etc.
	Local t:Int = 10^decimals
	Local result% = Floor(number * t + 0.5)
	'Convert result into a string	
	Local display$ = String(result)
	For Local i:Int = Len(display) To decimals
		display = "0" + display
	Next
	'Now put in a decimal point at the correct place.
	display = Mid(display,1,Len(display)-decimals)+"."+Mid(display,Len(display)-decimals+1,decimals)
	Return display
End Function

Function ccRoundFloatToString$(number:Float,decimals:Int)
	'This gets rid of any floating point inaccuracies such as 1.4 stored in a float
	'displaying as 1.39999 etc.
	Local t:Int = 10^decimals
	Local result% = Floor(number * t + 0.5)
	'Convert result into a string	
	Local display$ = String(result)
	'Do we need to append leading zeros for numbers less than 1?
	While Len(display)-decimals <= 0
		display = "0"+display
	Wend
	'Now put in a decimal point at the correct place.
	If decimals > 0 Then display = Mid(display,1,Len(display)-decimals)+"."+Mid(display,Len(display)-decimals+1,decimals)
	Return display
End Function

Local test#=50
Print test
Print ccRoundFloatToString(test,1)
Print ccRoundFloatToString(test,2)
Print ccRoundFloatToString(test,3)

Function ccRoundFloatToString$(number:Float,decimals:Int)
	'This gets rid of any floating point inaccuracies such as 1.4 stored in a float
	'displaying as 1.39999 etc.
	Local t:Int = 10^decimals
	Local result% = Floor(number * t + 0.5)
	'Convert result into a string	
	Local display$ = String(result)
	'do we need to append a leading zero for numbers less than 1?
	'Now put in a decimal point at the correct place.
	While Len(display)-decimals <= 0
		display = "0"+display
	Wend
	If decimals > 0 Then display = Mid(display,1,Len(display)-decimals)+"."+Mid(display,Len(display)-decimals+1,decimals)
	Return display
End Function

Local number:Float = 50.0
Local decimals:Int=3

Local t:Int = 10^decimals
Local result% = Floor(number * t + 0.5)
Print "t : " + t
Print "number : " + number
Print "result% : " + result

t1:Int = 10 ^ 3
Print t1
Local decimals:Int = 3
t2:Int = 10 ^ decimals
Print t2