Ada 程式設計/庫/Ada.Calendar

計算 » 計算機科學 » 計算機程式設計 » Ada 程式設計

---

此語言特性從 Ada 95 開始可用。

Ada.Calendar 是 預定義語言環境 自 Ada 95 以來的一部分。

規範

--                     Standard Ada library specification
--   Copyright (c) 2003-2018 Maxim Reznik <reznikmm@gmail.com>
--   Copyright (c) 2004-2016 AXE Consultants
--   Copyright (c) 2004, 2005, 2006 Ada-Europe
--   Copyright (c) 2000 The MITRE Corporation, Inc.
--   Copyright (c) 1992, 1993, 1994, 1995 Intermetrics, Inc.
--   SPDX-License-Identifier: BSD-3-Clause and LicenseRef-AdaReferenceManual
-- -------------------------------------------------------------------------

package Ada.Calendar is
   type Time is private;

   subtype Year_Number  is Integer range 1901 .. 2399;
   subtype Month_Number is Integer range 1 .. 12;
   subtype Day_Number   is Integer range 1 .. 31;
   subtype Day_Duration is Duration range 0.0 .. 86_400.0;

   function Clock return Time;

   function Year   (Date : Time) return Year_Number;
   function Month  (Date : Time) return Month_Number;
   function Day    (Date : Time) return Day_Number;
   function Seconds(Date : Time) return Day_Duration;

   procedure Split (Date  : in Time;
                    Year    : out Year_Number;
                    Month   : out Month_Number;
                    Day     : out Day_Number;
                    Seconds : out Day_Duration);

   function Time_Of(Year  : Year_Number;
                    Month   : Month_Number;
                    Day     : Day_Number;
                    Seconds : Day_Duration := 0.0)
                   return Time;

   function "+" (Left : Time;   Right : Duration) return Time;
   function "+" (Left : Duration; Right : Time) return Time;
   function "-" (Left : Time;   Right : Duration) return Time;
   function "-" (Left : Time;   Right : Time) return Duration;

   function "<" (Left, Right : Time) return Boolean;
   function "<="(Left, Right : Time) return Boolean;
   function ">" (Left, Right : Time) return Boolean;
   function ">="(Left, Right : Time) return Boolean;

   Time_Error : exception;

private

   pragma Import (Ada, Time);

end Ada.Calendar;

參見

華夏公益教科書

• Ada 程式設計/庫/Ada

外部示例

• 在以下網站搜尋 Ada.Calendar 的示例： Rosetta Code、GitHub (gists)、任何 Alire 包 或 本華夏公益教科書。
• 在以下網站搜尋與 Ada.Calendar 相關的帖子： Stack Overflow、comp.lang.ada 或 任何與 Ada 相關的頁面。

Ada 參考手冊

Ada 95

• 9.6：延遲語句、持續時間和時間 ^[註釋]

Ada 2005

• 9.6：延遲語句、持續時間和時間 ^[註釋]

Ada 2012

• 9.6：延遲語句、持續時間和時間 ^[註釋]

開源實現

FSF GNAT

• 規範： a-calend.ads
• 主體： a-calend.adb

drake

• 規範： calendar/a-calend.ads
• 主體： calendar/a-calend.adb