Index: DOM/EC/OL/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r1105 -r1107
--- DOM/EC/OL/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1105)
+++ DOM/EC/OL/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1107)
@@ -350,8 +350,7 @@
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	Set AantalMaanden = 2
-	Set Datum =  ($P($zd($h),"/",1)-AantalMaanden)_"/"_$P($zd($h),"/",2)_"/"_$P($zd($h),"/",3)
-	Set Datum = $zdh(Datum)
+	Set Datum = ##class(TECH.DateTime).TimestampToDate(##class(TECH.DateTime).TimeStampBereken(##class(TECH.DateTime).CurrentTimeStamp(),-AantalMaanden,##class(TECH.enu.DatePart).Maand()))
 	&SQL(DELETE FROM DOM_EC_OL_Winkelkar.Winkelkar 
 		where NOT (Hoofding_Besteld = 1 AND Hoofding_BetalingBevestigd = 1 )
 		AND LaatstGebruikt < :Datum)
Index: DOM/EC/OL/Verlanglijst/Verlanglijst.cls.xml
===================================================================
diff -u -r1105 -r1107
--- DOM/EC/OL/Verlanglijst/Verlanglijst.cls.xml	(.../Verlanglijst.cls.xml)	(revision 1105)
+++ DOM/EC/OL/Verlanglijst/Verlanglijst.cls.xml	(.../Verlanglijst.cls.xml)	(revision 1107)
@@ -299,8 +299,7 @@
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	Set AantalMaanden = 2
-	Set Datum =  ($P($zd($h),"/",1)-AantalMaanden)_"/"_$P($zd($h),"/",2)_"/"_$P($zd($h),"/",3)
-	Set Datum = $zdh(Datum)
+	Set Datum = ##class(TECH.DateTime).TimestampToDate(##class(TECH.DateTime).TimeStampBereken(##class(TECH.DateTime).CurrentTimeStamp(),-AantalMaanden,##class(TECH.enu.DatePart).Maand()))
 	&SQL(DELETE FROM DOM_EC_OL_Verlanglijst.Verlanglijst WHERE LaatstGebruikt < :Datum)
 ]]></Implementation>
 </Method>