Update M_omDateFunctions.def

add CalculatePayDate Function
tailormade-eu · Mar 27, 2023 · e60edc0 · e60edc0
1 parent 0e21d19
commit e60edc0
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/M_omDateFunctions.def b/M_omDateFunctions.def
@@ -430,4 +430,16 @@ End Function
 
 Public Function EOMonth(dt As Date) As Date
     EOMonth = DateSerial(year(dt), Month(dt) + 1, 0)
-End Function
+End Function
+
+Public Function CalculatePayDate(dt As Date, Days As Integer, EndOfMonth As Boolean, ExtraDays As Integer) As Date
+
+    dt = DateAdd("d", Days, dt)
+    If EndOfMonth Then
+        dt = DateSerial(year(dt), Month(dt), 1)
+        dt = DateAdd("m", 1, dt)
+        dt = DateAdd("d", -1, dt)
+    End If
+    dt = DateAdd("d", ExtraDays, dt)
+    CalculatePayDate = dt
+End Function