ceil и floor не проще заюзать для етой задачи?
x#=0.93
y#=0.33
z#=-2.33
zero#=0
Print CeloeChislo(x)
Print CeloeChislo(y)
Print CeloeChislo(z)
Print CeloeChislo(zero)
WaitKey
Function CeloeChislo%(z#)
If z<0 Then Return Ceil(z) Else Return Floor(z)
End Function
можно обойтись без проверок если число всегда неотрицательно или всегда отрицательно.
а за mod 1 спасибо, ето много где может пригодиться.