agpl_1.0.0_b5da3320/src/agpl-calendar-format.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 

with Ada.Calendar;

package Agpl.Calendar.Format is

   pragma Elaborate_Body;

   --  Returns a beautified duration in hours, minutes, seconds, ms
   function Image (D : in Duration) return String;

   --  Returns as a string hh:mm:ss
   function Hour (T : in Ada.Calendar.Time) return String;

   --  Returns the date as yyyy/mm/dd
   function Datestamp (H         : in Ada.Calendar.Time := Ada.Calendar.Clock;
                       Separator : in Character := '/')
      return String;

   --  Returns the time as hh:mm:ss:dd
   function Timestamp (h : Ada.Calendar.Time := Ada.Calendar.Clock)
      return String;

end Agpl.Calendar.Format;