Question

以下两个函数, 我想将其从 Access 转换为 SQL 服务器, 如何修改我的代码? 非常感谢。我从来没有使用过 SQL 服务器, 并尝试用硬的学习。 LIS 是一个驱动器。

Public Function PathDate(Ndate As Date) As Long
    PathDate = (Year(Ndate) * 10000) + (Month(Ndate) * 100) + Day(Ndate)
End Function

Public Function NormalDate(LISDate As Long) As Date

    If (LISDate = -1) Then
        NormalDate = "-1"
    Else
        NormalDate = MonthName(LISDate  100 Mod 100) & " " & LISDate Mod 100 & " ," & LISDate  10000
    End If
End Function

Answer 1

在 SQL 服务器中, 您不必做全部数学来转换日期为整数或背数。

第一个:

CREATE FUNCTION dbo.PathDate
(
    @NDate DATETIME
)
RETURNS INT
AS
BEGIN
    RETURN (SELECT CONVERT(CHAR(8), @NDate, 112));
END
GO

第二个:

CREATE FUNCTION dbo.NormalDate
(
    @LISDate INT
)
RETURNS VARCHAR(32)
AS
BEGIN
    RETURN (SELECT DATENAME(MONTH, d) 
      +     + RTRIM(DAY(d)) 
      +  ,   + RTRIM(YEAR(d)) 
    FROM 
    (
      SELECT d = CONVERT(DATETIME, CONVERT(CHAR(8), @LISDate))
    ) AS d);
END
GO

实例使用:

DECLARE @NDate DATETIME, @LISDate INT;

SELECT @NDate = GETDATE(), @LISDate = 20120523;

SELECT dbo.PathDate(@NDate), dbo.NormalDate(@LISDate);

结果:

20120523        May 23, 2012

友情链接