fix: Implement WEEK()

fixes #438
inseven · Oct 13, 2024 · d477f34 · d477f34
1 parent 1733021
commit d477f34
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 1 deletion.
diff --git a/examples/Tests/datetest.opo b/examples/Tests/datetest.opo
diff --git a/examples/Tests/datetest.txt b/examples/Tests/datetest.txt
@@ -3,6 +3,7 @@ INCLUDE "DATE.OXH"
 PROC main:
 	LOCAL d&, dh&, epoch&, s&
 	LOCAL year%, month%, day%, hour%, min%, sec%, yday%
+	LOCAL week%
 
 	d& = DATETOSECS(1970, 1, 1, 0, 0, 0)
 	PRINT "DATETOSECS(1970, 1, 1, 0, 0, 0) = "; d&
@@ -39,5 +40,11 @@ PROC main:
 		RAISE -1
 	ENDIF
 
+	week% = WEEK(30, 9, 2024)
+	PRINT "WEEK(30, 9, 2024) = "; week%
+	IF week% <> 40
+		RAISE -1
+	ENDIF
+
 	GET
 ENDP
diff --git a/src/fns.lua b/src/fns.lua
@@ -506,7 +506,11 @@ function SAddr(stack, runtime) -- 0x1F
 end
 
 function Week(stack, runtime) -- 0x20
-    unimplemented("fns.Week")
+    local dd, mm, yy = stack:pop(3)
+    local t = os.time({ day = dd, month = mm, year = yy })
+    -- %V matches LCSTARTOFWEEK which always returns Monday
+    local week = assert(tonumber(os.date("%V", t)))
+    stack:push(week)
 end
 
 function IoSeek(stack, runtime) -- 0x21