Ada 如何获取当前日期？

有没有办法在Ada中获取当前日期

我正在寻找一个与C#

DateTime.Now（）等价的返回持续时间的函数

我有一个事件
T
，我想测量
T
是否在30秒前开始。
在Ada中执行此操作的方法是使用
Ada.Calendar
，它提供了一个
时钟
函数，返回当前
时间
：

声明
使用Ada.Calendar.Time类型；
现在：常量Ada.Calendar.Time:=Ada.Calendar.Clock；
间隔：恒定持续时间：=30.0；
开始
如果现在>T+间隔的开始时间，则
Ada.Text_IO.Put_Line（“事件T花费的时间太长”）；
如果结束；
结束；

根据所需的精度，您可以查看
Ada.Real\u Time
包
相反（用法类似，但需要从
Duration
转换为
Time\u Span
）
您可能需要查看包
Ada.Real\u Time
中的
Clock
函数（另请参见）。
但是，当您想要测量两个事件之间的时间间隔时，您不需要一个单调的时钟吗？包
Ada.Calendar
中的
Clock
功能在这种情况下合适吗？@DeeDee，因此我对
Ada.Real\u Time
进行了说明。。。然而，问题是关于一个等价于
DateTime.Now（）
，所以我想说
Ada.Calendar
在这种情况下就足够了。