This code is what i use to get the 6 months of the month. Including the parameter of February where we sometimes have a 28th or 29th day.<\/p>\n\n\n\n
Just in case this code helps you, please drop us a line<\/p>\n\n\n\n
Coffee Cup<\/p>\n\n\n\n
<\/p>\n\n\n\n
\r\n\r\n\r\n\r\n \/* 2-16-2023 - CREATE SUMMARY *\/\r\n\r\n VYEAR = EXTRACT(YEAR FROM VDATEFROM);\r\n VMONTH = EXTRACT(MONTH FROM VDATEFROM);\r\n\r\n SAFROM1 = VYEAR || '-' || VMONTH || '-1';\r\n IF (VMONTH = 12) THEN\r\n BEGIN\r\n VMONTH = 1;\r\n VYEAR = VYEAR + 1;\r\n SATO1 = VYEAR || '-' || VMONTH || '-1';\r\n END\r\n ELSE \r\n BEGIN \r\n VMONTH = VMONTH + 1;\r\n SATO1 = VYEAR || '-' || VMONTH || '-1';\r\n END\r\n SATO1 = SATO1 - 1;\r\n SAMONTH1 = 0;\r\n\r\n\r\n VDATE = SATO1 + 1;\r\n VYEAR = EXTRACT(YEAR FROM VDATE);\r\n VMONTH = EXTRACT(MONTH FROM VDATE);\r\n\r\n SAFROM2 = VYEAR || '-' || VMONTH || '-1';\r\n IF (VMONTH = 12) THEN\r\n BEGIN\r\n VMONTH = 1;\r\n VYEAR = VYEAR + 1;\r\n SATO2 = VYEAR || '-' || VMONTH || '-1';\r\n END\r\n ELSE \r\n BEGIN \r\n VMONTH = VMONTH + 1;\r\n SATO2 = VYEAR || '-' || VMONTH || '-1';\r\n END\r\n SATO2 = SATO2 - 1;\r\n SAMONTH2 = 0;\r\n\r\n\r\n\r\n VDATE = SATO2 + 1;\r\n VYEAR = EXTRACT(YEAR FROM VDATE);\r\n VMONTH = EXTRACT(MONTH FROM VDATE);\r\n\r\n SAFROM3 = VYEAR || '-' || VMONTH || '-1';\r\n IF (VMONTH = 12) THEN\r\n BEGIN\r\n VMONTH = 1;\r\n VYEAR = VYEAR + 1;\r\n SATO3 = VYEAR || '-' || VMONTH || '-1';\r\n END\r\n ELSE \r\n BEGIN \r\n VMONTH = VMONTH + 1;\r\n SATO3 = VYEAR || '-' || VMONTH || '-1';\r\n END\r\n SATO3 = SATO3 - 1;\r\n SAMONTH3 = 0;\r\n\r\n\r\n\r\n VDATE = SATO3 + 1;\r\n VYEAR = EXTRACT(YEAR FROM VDATE);\r\n VMONTH = EXTRACT(MONTH FROM VDATE);\r\n\r\n SAFROM4 = VYEAR || '-' || VMONTH || '-1';\r\n IF (VMONTH = 12) THEN\r\n BEGIN\r\n VMONTH = 1;\r\n VYEAR = VYEAR + 1;\r\n SATO4 = VYEAR || '-' || VMONTH || '-1';\r\n END\r\n ELSE \r\n BEGIN \r\n VMONTH = VMONTH + 1;\r\n SATO4 = VYEAR || '-' || VMONTH || '-1';\r\n END\r\n SATO4 = SATO4 - 1;\r\n SAMONTH4 = 0;\r\n\r\n\r\n\r\n\r\n VDATE = SATO4 + 1;\r\n VYEAR = EXTRACT(YEAR FROM VDATE);\r\n VMONTH = EXTRACT(MONTH FROM VDATE);\r\n\r\n SAFROM5 = VYEAR || '-' || VMONTH || '-1';\r\n IF (VMONTH = 12) THEN\r\n BEGIN\r\n VMONTH = 1;\r\n VYEAR = VYEAR + 1;\r\n SATO5 = VYEAR || '-' || VMONTH || '-1';\r\n END\r\n ELSE \r\n BEGIN \r\n VMONTH = VMONTH + 1;\r\n SATO5 = VYEAR || '-' || VMONTH || '-1';\r\n END\r\n SATO5 = SATO5 - 1;\r\n SAMONTH5 = 0;\r\n\r\n\r\n\r\n VDATE = SATO5 + 1;\r\n VYEAR = EXTRACT(YEAR FROM VDATE);\r\n VMONTH = EXTRACT(MONTH FROM VDATE);\r\n\r\n SAFROM6 = VYEAR || '-' || VMONTH || '-1';\r\n IF (VMONTH = 12) THEN\r\n BEGIN\r\n VMONTH = 1;\r\n VYEAR = VYEAR + 1;\r\n SATO6 = VYEAR || '-' || VMONTH || '-1';\r\n END\r\n ELSE \r\n BEGIN \r\n VMONTH = VMONTH + 1;\r\n SATO6 = VYEAR || '-' || VMONTH || '-1';\r\n END\r\n SATO6 = SATO6 - 1;\r\n SAMONTH6 = 0;\r\n\r\n SAOTHERS = 0;\r\n SAUNPAID = 0;\r\n\r\n SUSPEND;\r\n\r\n \/* 2-16-2023 - CREATE SUMMARY *\/\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n \/* 2-16-2023 - CREATE SUMMARY *\/\r\n VDATE = NULL;\r\n IF (OCCHECK_DATE IS NOT NULL) THEN\r\n BEGIN\r\n VDATE = OCCHECK_DATE;\r\n END\r\n IF (OMDATE IS NOT NULL) THEN\r\n BEGIN\r\n VDATE = OMDATE;\r\n END\r\n\r\n IF (VDATE IS NOT NULL) THEN\r\n BEGIN\r\n IF ((VDATE >= SAFROM1) AND (VDATE <= SATO1)) THEN\r\n SAMONTH1 = SAMONTH1 + CP_INVAMT;\r\n ELSE\r\n IF ((VDATE >= SAFROM2) AND (VDATE <= SATO2)) THEN\r\n SAMONTH2 = SAMONTH2 + CP_INVAMT;\r\n ELSE\r\n IF ((VDATE >= SAFROM3) AND (VDATE <= SATO3)) THEN\r\n SAMONTH3 = SAMONTH3 + CP_INVAMT;\r\n ELSE\r\n IF ((VDATE >= SAFROM4) AND (VDATE <= SATO4)) THEN\r\n SAMONTH4 = SAMONTH4 + CP_INVAMT;\r\n ELSE\r\n IF ((VDATE >= SAFROM5) AND (VDATE <= SATO5)) THEN\r\n SAMONTH5 = SAMONTH5 + CP_INVAMT;\r\n ELSE\r\n IF ((VDATE >= SAFROM6) AND (VDATE <= SATO6)) THEN\r\n SAMONTH6 = SAMONTH6 + CP_INVAMT;\r\n ELSE\r\n SAOTHERS = SAOTHERS + CP_INVAMT;\r\n END\r\n\r\n<\/pre>\n\n\n\n<\/p>\n","protected":false},"excerpt":{"rendered":"
Delphi Code to get the Next 6 months<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,1,2],"tags":[242,36,243],"class_list":["post-434","post","type-post","status-publish","format-standard","hentry","category-delphi-and-interbase","category-life-as-a-programmer","category-windows-and-beyond","tag-6-months","tag-delphi","tag-syntax"],"_links":{"self":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/434","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/comments?post=434"}],"version-history":[{"count":1,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/434\/revisions"}],"predecessor-version":[{"id":435,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/posts\/434\/revisions\/435"}],"wp:attachment":[{"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/media?parent=434"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/categories?post=434"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/basicwebsitesolutions.com\/blog\/wp-json\/wp\/v2\/tags?post=434"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}