Сообщение от Randomize
Накатал на скорую руку:
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()
|
А
умножить на 10 в степени N,
floor/cell/round по вкусу
поделить на 10 в степени N
нэ? Лучше со строками возиться?