将PL-SQL转换为SQL Server

时间:2012-03-12 10:42:50

标签: sql sql-server plsql

我需要一个sql函数,它接受一个有效的SQL Server日期并返回该日期的月相。我发现了一个函数,但不幸的是它在pl-sql我不明白,我可以按原样转换代码,但我不知道如何在SQL Server中获取julian日期。

这是我想要使用的骨架功能

IF OBJECT_ID (N'dbo.fn_phaseOfMoon', N'FN') IS NOT NULL
    DROP FUNCTION dbo.fn_phaseOfMoon;
GO
CREATE FUNCTION dbo.fn_phaseOfMoon (@DATE datetime)
RETURNS VARCHAR(30) AS
BEGIN
    RETURN 'NA';
END
GO

pl-sql代码位于here,有人可以指出我正确的方向,还是帮助转换代码?

1 个答案:

答案 0 :(得分:1)

这是我改为MSSQL的Java代码。看看你是否有诀窍。

CREATE FUNCTION dbo.fn_phaseOfMoon (@Date datetime)
RETURNS INT
BEGIN

Declare @y int,
        @m int,
        @d int,
        @c int,
        @e int,
        @b int,
        @jd float

Select @y = DatePart(yy, @Date), @m = DatePart(mm, @Date), @d = DatePart(dd, @Date)
    /*
      calculates the moon phase (0-7), accurate to 1 segment.
      0 = > new moon.
      4 => full moon.
      */

    if (@m < 3) 
        Select @y = @y - 1, @m = @m + 12
    Select @m = @m + 1;

    Select @c = 365.25 * @y, @e = 30.6 * @m
    Select @jd = @c+@e+@d-694039.09  /* jd is total days elapsed */
    Select @jd = @jd / 29.53          /* divide by the moon cycle (29.53 days) */
    Select @b = convert(int, @jd)          /* int(jd) -> b, take integer part of jd */
    Select @jd = @jd - @b          /* subtract integer part to leave fractional part of original jd */
    Select @b = (@jd * 8) + 0.5    /* scale fraction from 0-8 and round by adding 0.5 */
    if @b = 8
        Select @b = 0          /* 0 and 8 are the same so turn 8 into 0 */
    return @b
END

我对这些东西知之甚少,所以你必须检查答案是否正确

Java代码源:http://www.voidware.com/moon_phase.htm