6.7.2. Fixed & Money Types - JulTob/Ada GitHub Wiki

  Money_Delta : constant := 0.01;

  Money_First : constant := Integer'Pos (Integer'First) * Money_Delta;

  Money_Last : constant := Integer'Pos (Integer'Last) * Money_Delta;

  type Money is delta Money_Delta range Money_First .. Money_Last;

  for Money'Small use Money_Delta;

  type aFixedNumber is delta 0.1 range 0.0 .. 1.0;
  -- represented as multiples of 0.0625 ([1.0-0.0]/128)
  type aFixedNumber2 is delta 0.1 range 0.0 .. 1.0;
  for aFixedNumber2'Small use 0.1;
  -- represented as multiples of 0.1