diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-02-18 22:04:50 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-02-18 22:04:50 +1100 |
| commit | eea66078d37c7b0f6115b97af222e4e91d61bbf0 (patch) | |
| tree | c2ff99a34ee1c6a3969207353313f84c9cc110c1 /src/simple_time.adb | |
| parent | be9b26ad909dfe973e3ef7756afae6a2b42a41d5 (diff) | |
Slightly improved comments, code formatting
Diffstat (limited to 'src/simple_time.adb')
| -rw-r--r-- | src/simple_time.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/simple_time.adb b/src/simple_time.adb index 7b7abf9..6dab6bc 100644 --- a/src/simple_time.adb +++ b/src/simple_time.adb @@ -30,12 +30,12 @@ package body Simple_Time is Month_Str, Day_Str, Hour_Str, Minute_Str : String (1 .. 2); Second_Str : String (1 .. 12); begin - Move (Trim (Year_Number'Image (Year (Moment)), Left), Year_Str, Left, Right, '0'); - Move (Trim (Month_Number'Image (Month (Moment)), Left), Month_Str, Left, Right, '0'); - Move (Trim (Day_Number'Image (Day (Moment)), Left), Day_Str, Left, Right, '0'); - Move (Trim (Integer'Image (Hours), Left), Hour_Str, Left, Right, '0'); - Move (Trim (Integer'Image (Minutes), Left), Minute_Str, Left, Right, '0'); - Move (Trim (Duration'Image (Seconds), Left), Second_Str, Left, Right, '0'); + Move (Trim (Year_Number'Image (Year (Moment)), Left), Year_Str, Left, Right, '0'); + Move (Trim (Month_Number'Image (Month (Moment)), Left), Month_Str, Left, Right, '0'); + Move (Trim (Day_Number'Image (Day (Moment)), Left), Day_Str, Left, Right, '0'); + Move (Trim (Integer'Image (Hours), Left), Hour_Str, Left, Right, '0'); + Move (Trim (Integer'Image (Minutes), Left), Minute_Str, Left, Right, '0'); + Move (Trim (Duration'Image (Seconds), Left), Second_Str, Left, Right, '0'); return Year_Str & '-' & Month_Str & '-' & Day_Str & " " & Hour_Str & ':' & Minute_Str & ':' & Second_Str; end To_String; |