Сообщение от Devilox
6 знаков после запятой - слишком много, а возможно округлять до определённого знака?(floor,cell,int не подходит)
|
Накатал на скорую руку:
Function NumberFormat$(val#, precision = 0)
If precision < 0 Then precision = 0
Local strv$ = val
Local dotpos = Instr(strv,".")
If dotpos < 1 Or precision < 1 Then Return Int(val)
Return Mid(strv,1,dotpos - 1) + Mid(strv, dotpos, precision + 1)
End Function
Демка:
SeedRnd(MilliSecs())
Local i
For i = 0 To 15
Print "Precision " + i + " : " + NumberFormat(Rnd(0.0, 5.0), i)
Next
WaitKey()