VB/T-SQL
Jeg har en funktion i VB, som jeg skal lave om til en T-SQL funktion og har gjort følgende, som desværre ikke virker. Nogen der kan se hvad jeg gør forkert?VB:
Function Uge(Dato)
Uge = DatePart("ww", Dato, vbMonday, vbFirstFourDays)
If (Uge > 52) Then
If (DatePart("ww", DateAdd("d", 7, Dato), vbMonday, vbFirstFourDays) = 2) Then
Uge = 1
End If
End If
T-SQL:
ALTER FUNCTION [dbo].[ISOweek] (@DATO datetime)
RETURNS int
AS
BEGIN
DECLARE @ISOweek int
DECLARE @WEEK int
DECLARE @WeekHlp int
SET @ISOWeek = dbo.IsoWeek(@DATO)
SET @WEEK = DATEPART (wk,@ DATO)
SET @WeekHlp = DATEPART (wk,DATEADD(d,7,@ DATO))
IF @ISOweek > 52
IF @WeekHlp = 2
SET @ISOweek = 1
RETURN(@ISOweek)
END
End Function