עזרה בכתיבת קוד – בקשר לתאריכים

תשובה
זה די פשוט.
תריץ לולאת FOR למשל שתתקדם כל פעם ב-3 עד 12 חודשים (For m=0 To 12 Step 3).
כל פעם בלולאה תריץ שאילתה על טווח התאריכים שלה (3 חודשים) בטבלה שלך, היכן שתאריך הרשמה נמצא בין החודשים בלולאה ושישלוף הכל, ידפיס נתונים או למערך כלשהו (לא הכי יעיל).

בנוגע לכפילויות נתונים, יש לך את DISTINCT:
https://webmaster.org.il/article.asp?id=21

בהצלחה.

תשובה
אין כאן לתת דוגמא כי מדובר בקוד לא קצר, ואני לא יודע עם איזה מסד נתונים אתה עובד.

אתה צריך לעשות בעצם 4 שאילתות, כל שאילתה שולפת נתונים של 3 חודשים מהשנה, כך:
שאילתה 1: ינואר-מרץ
שאילתה 2: אפריל-יוני
שאילתה 3: יולי-ספטמבר
שאילתה 4: אוקטובר-דצמבר

כבר אולי עדיף ליצור פונקציה שתשלוף את הנתונים לפי תאריכים שתגדיר לה (מאיזה חודש ועד איזה חודש לשלוף), תציג את הנתונים כמו שצריך וכו' כדי לחסוך לך כפילויות של קוד.

הנה דוגמא
sql = "select * from users order by writing_date desc"
set users = con.execute(sql)

dim rivon1, rivon2, rivon3, rivon4, rivon5, rivon1_counter, rivon2_counter,rivon3_counter, rivon4_counter

rivon1 = "01/01/2008"
rivon2 = "01/04/2008"
rivon3 = "01/07/2008"
rivon4 = "01/010/2008"
rivon5 = "01/01/2009"

do while not users.eof

if users.fields("writing_date") > rivon1 and users.fields("writing_date") < rivon2 then
rrivon1_counter = ivon1_counter + 1
end if

if users.fields("writing_date") > rivon2 and users.fields("writing_date") < rivon3 then
rrivon2_counter = ivon1_counter + 1
end if

if users.fields("writing_date") > rivon3 and users.fields("writing_date") < rivon4 then
rrivon3_counter = ivon1_counter + 1
end if

if users.fields("writing_date") > rivon4 and users.fields("writing_date") < rivon5 then
rrivon4_counter = ivon1_counter + 1
end if

loop

אפשר גם בעוד דרך יעילה
אפשר לעשות שאילתה אחת בלבד שתשלוף נתונים בסידור לפי תאריך רק לפי השנה הנוכחית למשל , לפי מה שצריך.
בלולאה (DO WHILE / GETROWS – תלוי בכמות נתונים), לבדוק את תאריך ההרשמה ולהתאים אותו למשתנה "שיחזיק" את מחרוזת הנתונים לרבעון מסוים (4 משתנים) ופשוט להדפיס כל משתנה במקום הנכון בעמוד.

תשובה לשאלונת והצעה נוספת…
יש להציב את השאילתה הבאה:

SELECT DatePart("q",[date]) AS rivon, Count(kod) AS CountMen
FROM tbl
GROUP BY DatePart("q",[date]);
(הפונקציה DatePart מחזירה חלק משנה, המפרמטר q מחזיר רבעון).

כמו"כ, ניתן להחזיר רק את החודש ע"י הפונקציה month(<date>)