Re: Modify value - type duration

["Jeffrey R. Carter" <spam.jrcarter.not@spam.acm.org>]

Andreas.Schmidl@googlemail.com wrote:
> function cutIt(var : duration) return duration is
> 
> tempvar : integer;
> 
> begin
> 	tempvar := integer(var);
> 	return (var - duration(tempvar));
> 
> end cutIt;
> 
> But this isn't a solution. Converting to integer with integer(...)
> round the value.
> Example:
> 12.345 ---> 12
> 12.854 ---> 13
> 
> Is there any other more elegant and functional solution in Ada?

Back in the good old days of Ada 83, we'd subtract 0.5 from the value before 
converting to an integer type.

Note that a Duration may contain a value that cannot be converted to Integer.

These days, you can use an appropriate floating-point type and the 'Truncation 
attribute function to get the integer part:

function Cut_It (Value : in Duration) return Duration is
    type Big is digits System.Max_Digits;
begin -- Cut_It
    return Value - Duration (Big'Truncation (Big (Value) ) );
end Cut_It;

-- 
Jeff Carter
"You a big nose have it."
Never Give a Sucker an Even Break
107