[s0Creator]

а может попробуешь это:
Delphi7 help:
Delphi syntax:

PHP код:

type TRoundToRange = -37..37;
function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;

RoundTo(1234567, 3)    = 1234000
RoundTo(1.234, -2)    = 1.23
RoundTo(1.235, -2)    = 1.24
RoundTo(1.245, -2)    = 1.24 


или

PHP код:

typedef Word TSimpleRoundToRange;
extern PACKAGE double __fastcall SimpleRoundTo(const double AValue, const TSimpleRoundToRange ADigit = -2);

SimpleRoundTo(1234567, 3)    = 1234000
SimpleRoundTo(1.234, -2)    = 1.23
SimpleRoundTo(1.235, -2)    = 1.24
SimpleRoundTo(-1.235, -2)    = -1.23