paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 19:41:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by Rika: Implement TCurrencyHelper.Ceil/Floor, resolves #40134

Browse Source
This commit is contained in:
florian 2023-01-31 22:58:51 +01:00 committed by Pierre Muller
parent 0e449a5f06
commit 08b612f218
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/sysutils/syshelp.inc
View File

@ -1591,12 +1591,16 @@ end;
function TCurrencyHelper.Ceil: Int64;
begin
{$warning TCurrencyHelper.Ceil unimplemented!}
Result:=System.Trunc(Self);
if Currency(Result)<Self then
Result:=Result+1;
end;
function TCurrencyHelper.Floor: Int64;
begin
{$warning TCurrencyHelper.Floor unimplemented!}
Result:=System.Trunc(Self);
if Currency(Result)>Self then
Result:=Result-1;
end;
function TCurrencyHelper.Frac: Currency;