第四十一章 SQL函数 DATE
接受时间戳并返回日期的函数。
大纲
DATE(timestamp)
参数
timestamp- 指定时间戳或其他日期或日期和时间表示形式的表达式。
描述
Date接受时间戳表达式并返回日期。返回值的数据类型为Date。这在功能上与CAST相同(时间戳与日期相同)。它接受具有以下任何数据类型类(或其子类)的时间戳值：%Library.TimeStamp、%Library.PosiTime、%Library.Date和%Library.Integer或%Library.Numerical(用于隐式逻辑日期，如+$HOROLOG)。它还可以接受格式与%Library.TimeStamp(有效的ODBC日期)兼容的%Library.String值。
无效的ODBC日期字符串的计算结果为零，与日期1840年12月31日相对应。时间戳可以只包含ODBC格式的日期或ODBC格式的日期和时间。虽然只转换ODBC时间戳的日期部分，但会验证整个字符串。如果日期部分不完整、日期或时间部分包含超出范围的值(包括闰年计算)，或者时间戳包含任何无效的格式字符或尾随字符，则ODBC时间戳验证失败。
空字符串(‘’)参数返回0(1840年12月31日)。NULL参数返回NULL。
这个函数也可以从ObjectScript中使用DATE()方法调用来调用:
DHC-APP> WRITE $SYSTEM.SQL.DATE("2018-02-23 12:37:45")
64702
$HOROLOG 与 $ZTIMESTAMP
$HOROLOG和$ZTIMESTAMP返回字符串值。
当字符串被转换为数字类型时，它总是返回一个数字值0(0)。0的 IRIS DATE数据类型值是1840年12月31日。
因此，为了将$HOROLOG或$ZTIMESTAMP解释为当前日期，必须在它前面加上一个加号(+)，这将强制进行数字解释。
如下示例所示:
SELECT DATE($HOROLOG),DATE($ZTIMESTAMP)
SELECT DATE(+$HOROLOG),DATE(+$ZTIMESTAMP)
ODBC日期字符串
DATE函数和$SYSTEM.SQL.DATE()方法都可以接受ODBC日期格式字符串。
它们验证输入字符串。
如果通过验证，则返回相应的日期。
如果验证失败，则返回0。
验证过程如下:
- 必须对应于ODBC格式:
yyyy-mm-dd hh:mm:ss.xx。 整个字符串将被解析以获得正确的格式，而不仅仅是字符串的日期部分。 - 字符串必须包含(至少)完整的日期:
yyyy-mm-dd。 前导零可以省略或包括。 时间部分为可选，可以包括yyyy-mm-dd hh:。 - 字符串的每个数字元素(包括日期部分和时间部分)都必须包含一个有效值。
例如，月的取值范围为
1 ~ 12(包括1 ~ 12)。 日值不能超过指定月份的天数。 闰年的天数是计算出来的。 - 日期必须在
%Library.TimeStamp日期范围内。最小日期为0001-01-01，最大日期为9999-12-31。
示例
以下示例采用数据类型%Library.TimeStamp的值：
/// d ##class(PHA.TEST.SQLCommand).Date()
ClassMethod Date()
{
s myquery = "SELECT {fn NOW} AS NowCol,DATE({fn NOW}) AS DateCol"
s tStatement = ##class(%SQL.Statement).%New()
s qStatus = tStatement.%Prepare(myquery)
if qStatus'=1 {WRITE "%Prepare failed:" DO $System.Status.DisplayError(qStatus) QUIT}
s rset = tStatement.%Execute()
d rset.%Display()
}
DHC-APP>d ##class(PHA.TEST.SQLCommand).Date()
NowCol DateCol
2022-02-02 10:29:48 66142
1 Rows(s) Affected
ClassMethod Date1()
{
s myquery = "SELECT CURRENT_TIMESTAMP AS TSCol,DATE(CURRENT_TIMESTAMP) AS DateCol"
s tStatement = ##class(%SQL.Statement).%New()
s qStatus = tStatement.%Prepare(myquery)
s rset = tStatement.%Execute()
d rset.%Display()
}
DHC-APP> d ##class(PHA.TEST.SQLCommand).Date1()
TSCol DateCol
2022-02-02 10:30:40 66142
1 Rows(s) Affected
/// d ##class(PHA.TEST.SQLCommand).Date2()
ClassMethod Date2()
{
s myquery = "SELECT GETDATE() AS GetDateCol,DATE(GETDATE()) AS DateCol"
s tStatement = ##class(%SQL.Statement).%New()
s qStatus = tStatement.%Prepare(myquery)
s rset = tStatement.%Execute()
d rset.%Display()
}
DHC-APP>d ##class(PHA.TEST.SQLCommand).Date2()
GetDateCol DateCol
2022-02-02 10:31:31 66142
1 Rows(s) Affected
下面的示例采用%Library.TimeStamp格式的字符串值：
ClassMethod Date3()
{
s myquery = "SELECT '2018-02-22 13:14:23' AS DateStrCol,DATE('2018-02-22 13:14:23') AS DateCol"
s tStatement = ##class(%SQL.Statement).%New()
s qStatus = tStatement.%Prepare(myquery)
s rset = tStatement.%Execute()
d rset.%Display()
}
DHC-APP>d ##class(PHA.TEST.SQLCommand).Date3()
DateStrCol DateCol
2018-02-22 13:14:23 64701
1 Rows(s) Affected
以下示例采用以 IRIS逻辑格式表示日期的字符串值。为了将这些值正确转换为%Library.Date数据类型，该值必须以加号(+)为前缀，以强制进行数值计算：
ClassMethod Date4()
{
s myquery = "SELECT $H AS HoroCol,DATE(+$H) AS DateCol"
s tStatement = ##class(%SQL.Statement).%New()
s qStatus = tStatement.%Prepare(myquery)
s rset = tStatement.%Execute()
d rset.%Display()
}
DHC-APP> d ##class(PHA.TEST.SQLCommand).Date4()
HoroCol DateCol
66142,38015 66142
1 Rows(s) Affected
/// d ##class(PHA.TEST.SQLCommand).Date5()
ClassMethod Date5()
{
s myquery = "SELECT $ZTIMESTAMP AS TSCol,DATE(+$ZTIMESTAMP) AS DateCol"
s tStatement = ##class(%SQL.Statement).%New()
s qStatus = tStatement.%Prepare(myquery)
s rset = tStatement.%Execute()
d rset.%Display()
}
DHC-APP>d ##class(PHA.TEST.SQLCommand).Date5()
TSCol DateCol
66142,9262.279 66142
1 Rows(s) Affected