How to calculate the day of the week for 40 years into the future

[rcamp48]

As many of you may know, I have written both a Lotto 649 and a Lotto Max program. One of the things I wanted to do was to automatically enter the next draw date for the next 40 years into the future. Now that poses a unique problem, not only have you got leap years , different month lengths, and 2 draws a week, in Lotto 649 its on Wednesdays and Fridays. In Lotto Max , up until the 17th of May 2019, it was one draw a week with 7 numbers and a bonus number , but after that it changed to 2 draws a week with 50 numbers instead of 49.  Quite a problem, both programs are sorta finished, the Lotto Max program needs the data for the day of the week after the last month. What I am showing you is how I got around all of that. A lot of if then statements, but does anyone know of a mathematical formula that will take into account 2 draws, one on Tuesday, and the other on Friday? Oh did I tell you that you also have to adjust for the 28-29-30-31 day months and figure out what day the draw falls on with each month?

Here is an idea of how I did it, the program sample is long, as there is 40 years of data for each month. See for yourself.

calculatedayofweek:

'Find Day of the Week

n = 0: n1 = 0: n2 = 0: n3 = 0: n4 = 0
n1 = FIX(3 * (m + 1) / 5)
n2 = FIX(y / 4)
n3 = FIX(y / 100)
n4 = FIX(y / 400)


n = dy + (2 * m) + n1 + y + n2 - n3 + n4 + 2

day1 = n MOD 7
IF dayflag = 0 THEN
END IF
RETURN
add3or4days:
dayflag = 1
GOSUB rollover
RETURN

rollover:
dayflag = 0
GOSUB calculatedayofweek
GOSUB rollover2
IF day1 = 6 AND count = 0 THEN
    IF rollover = 0 THEN
        adddays = 4
        dy = dy + adddays
    ELSEIF rollover = 1 THEN
        adddays = 4
        dy = dy + adddays + adjust
    END IF
ELSEIF day1 = 5 AND count = 0 THEN
    IF rollover = 0 THEN
        adddays = 4
        dy = dy + adddays
    ELSEIF rollover = 1 THEN
        adddays = 4
        dy = dy + adddays + adjust
    END IF
ELSEIF day1 = 4 AND count = 0 THEN
    IF rollover = 0 THEN
        adddays = 3
        dy = dy + adddays
    ELSEIF rollover = 1 THEN
        adddays = 3
        dy = dy + adddays + adjust
    END IF

ELSEIF day1 = 4 AND count = 0 THEN
    IF rollover = 0 THEN
        adddays = 3
        dy = dy + adddays
    ELSEIF rollover = 1 THEN
        adddays = 3
        dy = dy + adddays + adjust
    END IF
ELSEIF day1 = 3 AND count = 0 THEN
    IF rollover = 0 THEN
        adddays = 3
        dy = dy + adddays
    ELSEIF rollover = 1 THEN
        adddays = 3
        dy = dy + adddays + adjust
    END IF
ELSEIF day1 = 2 AND count = 0 THEN
    IF rollover = 0 THEN
        adddays = 3
        dy = dy + adddays
    ELSEIF rollover = 1 THEN
        adddays = 3
        dy = dy + adddays + adjust
    END IF
ELSEIF day1 = 1 AND count = 0 THEN
    IF rollover = 0 THEN
        adddays = 3
        dy = dy + adddays
    ELSEIF rollover = 1 THEN
        adddays = 3
        dy = dy + adddays + adjust
    END IF
ELSEIF day1 = 0 AND count = 0 THEN
    IF rollover = 0 THEN
        adddays = 3
        dy = dy + adddays
    ELSEIF rollover = 1 THEN
        adddays = 3
        dy = dy + adddays + adjust
    END IF
END IF
IF adddays = 4 THEN day8 = 3
IF adddays = 3 THEN day8 = 6
adjust = 0
dayflag = 1

GOSUB calculatedayofweek

rollover2:
IF y = 2019 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 2: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 2: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 2: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2020: m = 1: dy = 3: rollover = 1: adjust = 0
END IF
IF y = 2020 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 4: rollover = 1: adjust = 0
    IF dy > 29 AND m = 2 THEN m = 3: dy = 3: rollover = 1: adjust = 2
    IF dy > 31 AND m = 3 THEN m = 4: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 3: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 4: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2021: m = 1: dy = 1: rollover = 1: adjust = 0
END IF
IF y = 2021 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 2: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 2: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 4: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 3: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2022: m = 1: dy = 4: rollover = 1: adjust = 0
END IF
IF y = 2022 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 2: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 2: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 4: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 3: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2023: m = 1: dy = 4: rollover = 1: adjust = 0
END IF
IF y = 2023 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 1: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 1: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 2: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 4: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2024: m = 1: dy = 3: rollover = 1: adjust = 0
END IF
IF y = 2024 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 3: rollover = 1: adjust = 0
    IF dy > 29 AND m = 2 THEN m = 3: dy = 2: rollover = 1: adjust = 2
    IF dy > 31 AND m = 3 THEN m = 4: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 3: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 4: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 4: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2025: m = 1: dy = 1: rollover = 1: adjust = 0
END IF
IF y = 2025 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 1: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 1: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 4: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 2: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2026: m = 1: dy = 3: rollover = 1: adjust = 0
END IF
IF y = 2026 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 4: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 4: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 1: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 4: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2027: m = 1: dy = 3: rollover = 1: adjust = 0
END IF
IF y = 2027 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 3: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 3: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 4: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2028: m = 1: dy = 1: rollover = 1: adjust = 0
END IF
IF y = 2028 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 2: rollover = 1: adjust = 0
    IF dy > 29 AND m = 2 THEN m = 3: dy = 1: rollover = 1: adjust = 2
    IF dy > 31 AND m = 3 THEN m = 4: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 2: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 4: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2029: m = 2: dy = 3: rollover = 1: adjust = 0
END IF
IF y = 2029 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 3: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 3: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 4: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 4: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2030: m = 1: dy = 2: rollover = 1: adjust = 0
END IF
IF y = 2030 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 2: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 2: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 3: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 4: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 4: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2031: m = 1: dy = 1: rollover = 1: adjust = 0
END IF
IF y = 2031 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 1: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 1: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 4: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 2: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2032: m = 1: dy = 3: rollover = 1: adjust = 0
END IF
IF y = 2032 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 4: rollover = 1: adjust = 0
    IF dy > 29 AND m = 2 THEN m = 3: dy = 3: rollover = 1: adjust = 2
    IF dy > 31 AND m = 3 THEN m = 4: dy = 4: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 4: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2033: m = 1: dy = 1: rollover = 1: adjust = 0
END IF
IF y = 2033 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 2: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 2: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 4: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 3: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2034: m = 1: dy = 4: rollover = 1: adjust = 0
END IF
IF y = 2034 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 1: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 1: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 2: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 4: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2035: m = 1: dy = 3: rollover = 1: adjust = 0
END IF
IF y = 2035 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 3: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 3: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 4: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 4: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 1: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2036: m = 1: dy = 2: rollover = 1: adjust = 0
END IF
IF y = 2036 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 2: rollover = 1: adjust = 0
    IF dy > 29 AND m = 2 THEN m = 3: dy = 1: rollover = 1: adjust = 2
    IF dy > 31 AND m = 3 THEN m = 4: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 4: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 2: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2037: m = 1: dy = 3: rollover = 1: adjust = 0
END IF
IF y = 2037 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 4: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 4: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 4: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 1: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 4: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2038: m = 1: dy = 2: rollover = 1: adjust = 0
END IF
IF y = 2038 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 3: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 3: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 4: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2039: m = 1: dy = 1: rollover = 1: adjust = 0
END IF
IF y = 2039 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 2: rollover = 1: adjust = 0
    IF dy > 28 AND m = 2 THEN m = 3: dy = 2: rollover = 1: adjust = 3
    IF dy > 31 AND m = 3 THEN m = 4: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 4: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 3: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2040: m = 1: dy = 4: rollover = 1: adjust = 0
END IF
IF y = 2040 THEN
    IF dy > 31 AND m = 1 THEN m = 2: dy = 1: rollover = 1: adjust = 0
    IF dy > 29 AND m = 2 THEN m = 3: dy = 1: rollover = 1: adjust = 2
    IF dy > 31 AND m = 3 THEN m = 4: dy = 4: rollover = 1: adjust = 0
    IF dy > 30 AND m = 4 THEN m = 5: dy = 2: rollover = 1: adjust = 1
    IF dy > 31 AND m = 5 THEN m = 6: dy = 2: rollover = 1: adjust = 0
    IF dy > 30 AND m = 6 THEN m = 7: dy = 4: rollover = 1: adjust = 1
    IF dy > 31 AND m = 7 THEN m = 8: dy = 1: rollover = 1: adjust = 0
    IF dy > 31 AND m = 8 THEN m = 9: dy = 1: rollover = 1: adjust = 0
    IF dy > 30 AND m = 9 THEN m = 10: dy = 3: rollover = 1: adjust = 1
    IF dy > 31 AND m = 10 THEN m = 11: dy = 3: rollover = 1: adjust = 0
    IF dy > 30 AND m = 11 THEN m = 12: dy = 1: rollover = 1: adjust = 1
    IF dy > 31 AND m = 12 THEN y = 2041: m = 1: dy = 2: rollover = 1: adjust = 0
END IF

RETURN


Now that is how I did it, but I still have to plug in the right data for each month starting after 2020, will be doing that tomorrow, but thought I would give you an idea of how I handled it.

Can anyone thing of a better way?


Russ Campbell

[Petr]

Hi. Try some mine functions. First TEST it, if it works as is expected.

Code: QB64: [Select]

1. 'function GETDAYNAME parameters: YEAR, MONTH, DAY
2. 'listing of Tuesdays and Thursdays for 40 years
3.  
4. d = __GETDAY - 1
5. DIM SHARED VirtualYear
6. VirtualYear = 2020
7.  
8. FOR l = 1 TO 366 * 40
9.     d = d + 1
10.     IF ISLEAPYEAR(VirtualYear) AND d > 366 THEN VirtualYear = VirtualYear + 1: d = d - 366
11.     IF ISLEAPYEAR(VirtualYear) = 0 AND d > 365 THEN VirtualYear = VirtualYear + 1: d = d - 365
12.     today$ = ""
13.     DO UNTIL today$ = "Thursday" OR today$ = "Tuesday"
14.         today$ = GETDAYNAME(VirtualYear, 1, d)
15.         d = d + 1
16.     LOOP
17.     d = d - 1
18.     day = GETDAYNR(VirtualYear, 1, d)
19.     realdate$ = GETDATE$(day, VirtualYear)
20.  
21.     PRINT "Next date is "; realdate$; " "; GETDAYNAME(VirtualYear, 1, d)
22.     SLEEP
23. NEXT
24.  
25.  
26.  
27.  
28.  
29.  
30. FUNCTION GETDAYNR (y, m, d) 'insert year, month and day and function calculate which day in year it is
31.     FOR month = 1 TO m
32.         IF ISLEAPYEAR(y) = 0 THEN
33.             SELECT CASE month
34.                 CASE 1: m = 31
35.                 CASE 2: m = 28
36.                 CASE 3: m = 31
37.                 CASE 4: m = 30
38.                 CASE 5: m = 31
39.                 CASE 6: m = 30
40.                 CASE 7: m = 31
41.                 CASE 8: m = 31
42.                 CASE 9: m = 30
43.                 CASE 10: m = 31
44.                 CASE 11: m = 30
45.                 CASE 12: m = 31
46.             END SELECT
47.         ELSE
48.             SELECT CASE month
49.                 CASE 1: m = 31
50.                 CASE 2: m = 29
51.                 CASE 3: m = 31
52.                 CASE 4: m = 30
53.                 CASE 5: m = 31
54.                 CASE 6: m = 30
55.                 CASE 7: m = 31
56.                 CASE 8: m = 31
57.                 CASE 9: m = 30
58.                 CASE 10: m = 31
59.                 CASE 11: m = 30
60.                 CASE 12: m = 31
61.             END SELECT
62.         END IF
63.         GETDAYNR = GETDAYNR + m
64.     NEXT
65.     GETDAYNR = GETDAYNR - (m - d)
66. END FUNCTION
67.  
68. FUNCTION __GETDAY
69.     __GETDAY = VAL(MID$(DATE$, 4, 2))
70. END FUNCTION
71.  
72.  
73. FUNCTION GETDATE$ (NrOfTheDayInYear, y) 'return date 'YYYYMMDD in year y
74.  
75.     'spocitat mesic
76.     FOR month = 1 TO 12
77.         IF ISLEAPYEAR(y) = 0 THEN
78.             SELECT CASE month
79.                 CASE 1: m = 31
80.                 CASE 2: m = 28
81.                 CASE 3: m = 31
82.                 CASE 4: m = 30
83.                 CASE 5: m = 31
84.                 CASE 6: m = 30
85.                 CASE 7: m = 31
86.                 CASE 8: m = 31
87.                 CASE 9: m = 30
88.                 CASE 10: m = 31
89.                 CASE 11: m = 30
90.                 CASE 12: m = 31
91.             END SELECT
92.         ELSE
93.             SELECT CASE month
94.                 CASE 1: m = 31
95.                 CASE 2: m = 29
96.                 CASE 3: m = 31
97.                 CASE 4: m = 30
98.                 CASE 5: m = 31
99.                 CASE 6: m = 30
100.                 CASE 7: m = 31
101.                 CASE 8: m = 31
102.                 CASE 9: m = 30
103.                 CASE 10: m = 31
104.                 CASE 11: m = 30
105.                 CASE 12: m = 31
106.             END SELECT
107.         END IF
108.         oldm = om
109.         om = om + m
110.         IF om >= NrOfTheDayInYear AND oldm < NrOfTheDayInYear THEN EXIT FOR
111.     NEXT
112.     day = NrOfTheDayInYear - om + m
113.     day$ = STR$(day): IF LEN(day$) < 3 THEN day$ = "0" + LTRIM$(day$)
114.     month$ = STR$(month): IF LEN(month$) < 3 THEN month$ = "0" + LTRIM$(month$)
115.  
116.     GETDATE$ = LTRIM$(STR$(y)) + "-" + LTRIM$(month$) + "-" + LTRIM$(day$)
117. END FUNCTION
118.  
119.  
120.  
121.  
122. FUNCTION ISLEAPYEAR (year)
123.     IF year MOD 4 = 0 AND year MOD 100 THEN ISLEAPYEAR = 1
124.     IF year MOD 100 = 0 AND year MOD 400 = 0 THEN ISLEAPYEAR = 1
125. END FUNCTION
126.  
127. FUNCTION GETDAYNAME$ (year, month, day) 'otestovano brutalne, fuguje skutecne spravne!
128.     '  IF year < 1900 THEN GETDAYNAME$ = "Invalid Year ( <1900 ).": EXIT FUNCTION
129.     'spocitat pocet mesicu od ledna 1900:
130.     DIM om AS LONG, m AS LONG, days AS LONG
131.     days = day
132.     FOR yyr = 1 TO year
133.         IF yyr = year THEN monthend = month ELSE monthend = 12
134.         FOR mont = 1 TO monthend
135.             IF ISLEAPYEAR(yyr) = 0 THEN
136.                 SELECT CASE mont
137.                     CASE 1: m = 31
138.                     CASE 2: m = 28
139.                     CASE 3: m = 31
140.                     CASE 4: m = 30
141.                     CASE 5: m = 31
142.                     CASE 6: m = 30
143.                     CASE 7: m = 31
144.                     CASE 8: m = 31
145.                     CASE 9: m = 30
146.                     CASE 10: m = 31
147.                     CASE 11: m = 30
148.                     CASE 12: m = 31
149.                 END SELECT
150.             ELSE
151.                 SELECT CASE mont
152.                     CASE 1: m = 31
153.                     CASE 2: m = 29
154.                     CASE 3: m = 31
155.                     CASE 4: m = 30
156.                     CASE 5: m = 31
157.                     CASE 6: m = 30
158.                     CASE 7: m = 31
159.                     CASE 8: m = 31
160.                     CASE 9: m = 30
161.                     CASE 10: m = 31
162.                     CASE 11: m = 30
163.                     CASE 12: m = 31
164.                 END SELECT
165.             END IF
166.             om = m
167.             days = days + m
168.         NEXT
169.     NEXT
170.     days = days - m - 1
171.     '  PRINT "Dnu:"; Days
172.     a = (days MOD 7) '0 = pondeli
173.     RESTORE nms
174.     FOR r = 0 TO a
175.         READ GETDAYNAME$
176.     NEXT
177.     nms:
178.     DATA Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
179. END FUNCTION
180.  
181.  
182. FUNCTION GetDay$ (mm, dd, yyyy) 'use 4 digit year
183.     'From Zeller's congruence: https://en.wikipedia.org/wiki/Zeller%27s_congruence
184.     IF mm < 3 THEN mm = mm + 12: yyyy = yyyy - 1
185.     century = yyyy MOD 100
186.     zerocentury = yyyy \ 100
187.     result = (dd + INT(13 * (mm + 1) / 5) + century + INT(century / 4) + INT(zerocentury / 4) + 5 * zerocentury) MOD 7
188.     SELECT CASE result
189.         CASE 0: GetDay$ = "Saturday"
190.         CASE 1: GetDay$ = "Sunday"
191.         CASE 2: GetDay$ = "Monday"
192.         CASE 3: GetDay$ = "Tuesday"
193.         CASE 4: GetDay$ = "Wednesday"
194.         CASE 5: GetDay$ = "Thursday"
195.         CASE 6: GetDay$ = "Friday"
196.     END SELECT
197. END FUNCTION
198.  
199.  
200.  

This is fast writed code without warranty!

[rcamp48]

Nice code, I will give it a try later on, should save me a lot of lines of code...... Thanks...

Russ

[rcamp48]

 OK I have tried your code but its not quite what I want, I want to start from the previous draw date, not the current date, but I have incorporated your code into both of my programs....

The problem with it the way it is , is that if the draw database is not up to date, it ignores everything before the current date and asks for the next Tuesday or Wednesday after the current date.

Russ

 

lotto_max.bas

 

lotto2020.bas

PS: You need the rest of the data files in my original program to run this program.

[SierraKen]

Rcamp, feel free to use some of my code I made for my Calendar Maker. People in this forum helped me make this a few months ago. It uses equations to know what day of the week it is from 100's of years ago to 9999 A.D.

Code: QB64: [Select]

1. 'This is my very first calendar making program!
2. 'Thanks to the guys from the QB64.org forum for the help: bplus, SMcNeill, euklides, and TempodiBasic!
3. 'This is a freeware program like all my other programs and games, only free.
4. 'Feel free to use this code in your own programs.
5. 'This version has the ability to add info or holidays to dates.
6. 'Made on Thursday, September 19, 2019 by Ken G.
7.  
8. start:
9. _TITLE "Calendar Maker"
10. _LIMIT 1000
11. DIM newinfo$(50)
12. DIM dayinfo(50)
13. dd = 0
14. leap = 0
15. m = 0
16. mm = 0
17. y = 0
18. yy = 0
19. w = 0
20. weekday = 0
21. days = 0
22. holidays = 0
23. SCREEN _NEWIMAGE(800, 600, 32)
24. CLS
25. PRINT "                                  Monthly Calendar Maker"
26. PRINT: PRINT: PRINT
27. PRINT "                                        By Ken G."
28. PRINT
29. PRINT "                         With some help from the QB64.org Forum guys!"
30. PRINT: PRINT: PRINT
31. PRINT "          This program will make a calendar for the year and month you want."
32. PRINT "          It will also name some U.S. holidays on their dates if you choose that."
33. PRINT "          You also can add holidays or info to any day you wish with up to 12"
34. PRINT "          letters, numbers, symbols, or spaces."
35. PRINT "          This uses the Gregorian Calendar which became common practice in"
36. PRINT "          England in 1753 and we still use it today."
37. PRINT
38. PRINT "          First make a calendar, then if you want to save it as a .bmp file,"
39. PRINT "          press the 'S' key and it will save it as the month and year for its name."
40. PRINT "          For example, if you made a calendar for January 2020 and wish to save it,"
41. PRINT "          press the 'S' key and it will save it as 1-2020.bmp"
42. PRINT "          If you wish to print your calendar on your printer, press 'P' once."
43. PRINT "          Feel free to print as many times as you wish. They take up 1 page each."
44. PRINT "          If you save the .bmp calendar, it will be put in the same directory as this program."
45. PRINT "          To switch to the last month use the left arrow key, to the next month the right arrow key."
46. PRINT "          Switching months with the arrow keys will not save your new date info if you come back."
47. PRINT "          To make a different calendar without saving, press the Space Bar."
48. PRINT "          Keyboard commands will be listed on the title bar of the window."
49. again1:
50. PRINT
51. INPUT "          Type the year here (1753-9999): ", y
52. IF y <> INT(y) THEN PRINT "Cannot use decimals, try again.": GOTO again1:
53. IF y < 1753 OR y > 9999 THEN PRINT "The year can only be between 1753 and 9999, try again.": GOTO again1:
54. again2:
55. PRINT
56. INPUT "          Type the month here (1-12): ", m
57. PRINT
58. IF m <> INT(m) THEN PRINT "Cannot use decimals, try again.": GOTO again2:
59. IF m < 1 OR m > 12 THEN PRINT "1-12 only, try again.": GOTO again2:
60. INPUT "          Do you want U.S. holidays added (Y/N)?", hol$
61. IF LEFT$(hol$, 1) = "y" OR LEFT$(hol$, 1) = "Y" THEN holidays = 1
62. PRINT
63. INPUT "          Do you want to add your own holidays or info (Y/N)?", adding$
64. calculate:
65. info = 0
66. infos = 0
67. 'Get the month name.
68. IF m = 1 THEN month$ = " January"
69. IF m = 2 THEN month$ = "February"
70. IF m = 3 THEN month$ = "  March"
71. IF m = 4 THEN month$ = "  April"
72. IF m = 5 THEN month$ = "  May"
73. IF m = 6 THEN month$ = "  June"
74. IF m = 7 THEN month$ = "  July"
75. IF m = 8 THEN month$ = " August"
76. IF m = 9 THEN month$ = "September"
77. IF m = 10 THEN month$ = " October"
78. IF m = 11 THEN month$ = "November"
79. IF m = 12 THEN month$ = "December"
80.  
81. 'Calculate to see if it's a Leap Year.
82. IF m <> 2 THEN GOTO nex:
83. IF y / 400 = INT(y / 400) THEN leap = 1: GOTO more:
84. IF y / 4 = INT(y / 4) THEN leap = 1
85. IF y / 100 = INT(y / 100) THEN leap = 0
86.  
87. 'Get the number of days for each month.
88. more:
89. IF leap = 1 THEN days = 29
90. IF leap = 0 THEN days = 28
91. GOTO weekday:
92. nex:
93. IF m = 1 THEN days = 31
94. IF m = 3 THEN days = 31
95. IF m = 4 THEN days = 30
96. IF m = 5 THEN days = 31
97. IF m = 6 THEN days = 30
98. IF m = 7 THEN days = 31
99. IF m = 8 THEN days = 31
100. IF m = 9 THEN days = 30
101. IF m = 10 THEN days = 31
102. IF m = 11 THEN days = 30
103. IF m = 12 THEN days = 31
104. weekday:
105.  
106. 'Set the month, year, and weekday variables to start with.
107. mm = m
108. yy = y
109. GetDay mm, dd, y, weekday
110.  
111.  
112. IF LEFT$(adding$, 1) = "y" OR LEFT$(adding$, 1) = "Y" THEN GOSUB adding:
113. adding$ = ""
114.  
115. 'This section makes the calendar graph.
116. make:
117. SCREEN _NEWIMAGE(800, 600, 32)
118. CLS
119. LINE (0, 0)-(800, 600), _RGB32(255, 255, 255), BF
120. _TITLE "Press 'S' to Save, 'P' to Print, Left and Right Arrow Keys To Switch Months, Space Bar For Different One, or 'Esc' to Quit."
121. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 255)
122. LOCATE 3, 42: PRINT month$; "  "; yy
123.  
124. FOR x = 20 TO 780 STEP 108
125.     LINE (x, 100)-(x, 580), _RGB32(0, 0, 0)
126. NEXT x
127. FOR z = 100 TO 580 STEP 80
128.     LINE (16, z)-(780, z), _RGB32(0, 0, 0)
129. NEXT z
130.  
131. LOCATE 5, 8: PRINT "SUNDAY"
132. LOCATE 5, 21: PRINT "MONDAY"
133. LOCATE 5, 34: PRINT "TUESDAY"
134. LOCATE 5, 47: PRINT "WEDNESDAY"
135. LOCATE 5, 60: PRINT "THURSDAY"
136. LOCATE 5, 75: PRINT "FRIDAY"
137. LOCATE 5, 87: PRINT "SATURDAY"
138.  
139. 'Finding Date of Easter
140. PQA = yy
141. GOSUB PAQUES
142. 'month = PQM, day = PQJ, year = PQA
143.  
144. 'This section puts the right dates and holidays in the right squares for the calendar.
145. _FONT 16
146. w = (weekday * 108) + 25
147. FOR weeky = 110 TO 570 STEP 80
148.     FOR dayx = w TO 692 STEP 108
149.         _LIMIT 1000
150.         dd = dd + 1
151.         GetDay mm, dd, y, weekday
152.         IF weekday = 1 THEN GOSUB coloring:
153.         IF weekday <> 1 THEN COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 255)
154.         dd$ = STR$(dd)
155.         _FONT 8
156.         IF dd = dayinfo(infos) THEN
157.             GOSUB coloring:
158.             i = LEN(newinfo$(infos))
159.             IF i < 8 THEN ii = 25
160.             IF i > 7 AND i < 12 THEN ii = 11
161.             IF i > 11 AND i < 14 THEN ii = 5
162.             IF i > 13 THEN ii = 2
163.             _PRINTSTRING (dayx + ii, weeky + 20), newinfo$(infos)
164.             infos = infos + 1
165.             ye = 1
166.         END IF
167.         IF holidays = 0 THEN GOTO skip:
168.         IF m = 1 AND dd = 1 THEN
169.             GOSUB coloring:
170.             _PRINTSTRING (dayx + 15, weeky + 60), "New Years"
171.         END IF
172.         IF m = 1 AND weekday = 2 AND dd > 14 AND dd < 22 THEN
173.             GOSUB coloring:
174.             _PRINTSTRING (dayx + 25, weeky + 60), "MLK Jr."
175.         END IF
176.         IF m = 2 AND dd = 2 THEN
177.             GOSUB coloring:
178.             _PRINTSTRING (dayx + 13, weeky + 60), "Groundhog"
179.         END IF
180.         IF m = 2 AND weekday = 2 AND dd > 14 AND dd < 22 THEN
181.             GOSUB coloring:
182.             _PRINTSTRING (dayx + 10, weeky + 60), "Presidents"
183.         END IF
184.         IF m = 2 AND dd = 14 THEN
185.             GOSUB coloring:
186.             _PRINTSTRING (dayx + 10, weeky + 60), "Valentines"
187.         END IF
188.         IF m = 3 AND dd = 17 THEN
189.             GOSUB coloring:
190.             _PRINTSTRING (dayx + 5, weeky + 60), "St. Patrick"
191.         END IF
192.         IF m = PQM AND dd = PQJ THEN
193.             GOSUB coloring:
194.             _PRINTSTRING (dayx + 25, weeky + 60), "Easter"
195.         END IF
196.         IF m = 4 AND dd > 23 AND weekday = 7 THEN
197.             GOSUB coloring:
198.             _PRINTSTRING (dayx + 25, weeky + 60), "Arbor"
199.         END IF
200.         IF m = 5 AND weekday = 0 AND dd > 14 AND dd < 22 THEN
201.             GOSUB coloring:
202.             _PRINTSTRING (dayx + 2, weeky + 60), "Armed Forces"
203.         END IF
204.         IF m = 5 AND weekday = 2 AND dd > 24 THEN
205.             GOSUB coloring:
206.             _PRINTSTRING (dayx + 15, weeky + 60), "Memorial"
207.         END IF
208.         IF m = 5 AND weekday = 1 AND dd > 7 AND dd < 15 THEN
209.             GOSUB coloring:
210.             _PRINTSTRING (dayx + 2, weeky + 60), "Mother's Day"
211.         END IF
212.         IF m = 6 AND weekday = 1 AND dd > 14 AND dd < 22 THEN
213.             GOSUB coloring:
214.             _PRINTSTRING (dayx + 2, weeky + 60), "Father's Day"
215.         END IF
216.         IF m = 6 AND dd = 14 THEN
217.             GOSUB coloring:
218.             _PRINTSTRING (dayx + 35, weeky + 60), "Flag"
219.         END IF
220.         IF m = 7 AND dd = 4 THEN
221.             GOSUB coloring:
222.             _PRINTSTRING (dayx + 2, weeky + 60), "Independence"
223.         END IF
224.         IF m = 9 AND weekday = 2 AND dd < 8 THEN
225.             GOSUB coloring:
226.             _PRINTSTRING (dayx + 27, weeky + 60), "Labor"
227.         END IF
228.         IF m = 10 AND dd > 9 AND dd < 16 AND weekday = 2 THEN
229.             GOSUB coloring:
230.             _PRINTSTRING (dayx + 17, weeky + 60), "Columbus"
231.         END IF
232.         IF m = 10 AND dd = 31 THEN
233.             GOSUB coloring:
234.             _PRINTSTRING (dayx + 15, weeky + 60), "Halloween"
235.         END IF
236.         IF m = 11 AND dd = 11 THEN
237.             GOSUB coloring:
238.             _PRINTSTRING (dayx + 19, weeky + 60), "Veterans"
239.         END IF
240.         IF m = 11 AND dd > 21 AND dd < 29 AND weekday = 5 THEN
241.             GOSUB coloring:
242.             _PRINTSTRING (dayx + 2, weeky + 60), "Thanksgiving"
243.         END IF
244.         IF m = 12 AND dd = 25 THEN
245.             GOSUB coloring:
246.             _PRINTSTRING (dayx + 15, weeky + 60), "Christmas"
247.         END IF
248.         skip:
249.         ye = 0
250.         _FONT 16
251.         _PRINTSTRING (dayx, weeky), dd$
252.         _FONT 8
253.         IF dd = days THEN _FONT 16: GOTO more2:
254.     NEXT dayx
255.     w = 25
256. NEXT weeky
257.  
258. more2:
259. _LIMIT 1000
260. a$ = INKEY$
261. IF a$ = CHR$(27) THEN CLS: PRINT: PRINT: PRINT "Goodbye.": END
262. IF a$ = "s" OR a$ = "S" THEN GOTO saving:
263. IF a$ = " " THEN GOTO start:
264. IF a$ = "p" OR a$ = "P" THEN
265.     'printer prep (code copied and pasted from bplus Free Calendar Program)
266.     YMAX = _HEIGHT: XMAX = _WIDTH
267.     landscape& = _NEWIMAGE(YMAX, XMAX, 32)
268.     _MAPTRIANGLE (XMAX, 0)-(0, 0)-(0, YMAX), 0 TO(0, 0)-(0, XMAX)-(YMAX, XMAX), landscape&
269.     _MAPTRIANGLE (XMAX, 0)-(XMAX, YMAX)-(0, YMAX), 0 TO(0, 0)-(YMAX, 0)-(YMAX, XMAX), landscape&
270.     _PRINTIMAGE landscape&
271. END IF
272.  
273. IF a$ = CHR$(0) + CHR$(77) THEN
274.     m = m + 1
275.     IF m > 12 THEN
276.         m = 1
277.         yy = yy + 1
278.     END IF
279.     y = yy
280.     IF y > 9999 THEN y = 1753
281.     dd = 0
282.     leap = 0
283.     _DELAY .1
284.     CLS
285.     GOTO calculate:
286. END IF
287. IF a$ = CHR$(0) + CHR$(75) THEN
288.     m = m - 1
289.     IF m < 1 THEN
290.         m = 12
291.         yy = yy - 1
292.     END IF
293.     y = yy
294.     IF y < 1753 THEN y = 9999
295.     dd = 0
296.     leap = 0
297.     _DELAY .1
298.     CLS
299.     GOTO calculate:
300. END IF
301.  
302. GOTO more2:
303.  
304. adding:
305. CLS
306. PRINT: PRINT
307. add:
308. PRINT
309. olddayinfo = dayinfo(info)
310. info = info + 1
311. infos = 1
312. adding2:
313. IF info > days THEN PRINT "You have reached the maximum amount of holidays or info for this month.": INPUT "Press enter to create calendar.", pe$: RETURN
314. PRINT
315. PRINT "Your dates must go in order here."
316. PRINT "for example, you cannot put info for day 15 and then put info for day 1."
317. PRINT "They must all follow from smallest number to highest number or it will tell you to start over again."
318. PRINT "Also, you cannot change a day by doing it over again, so if you mess up, create a new month."
319. PRINT
320. PRINT info; ". ";
321. INPUT "Which day of the month for new holiday or information: ", dayinfo(info)
322. IF dayinfo(info) > days THEN PRINT "That day is not on this calendar, try again.": GOTO adding2:
323. IF dayinfo(info) < 1 THEN PRINT "You cannot type a date less than 1, try again.": GOTO adding2:
324. IF dayinfo(info) <> INT(dayinfo(info)) THEN PRINT "You cannot type a decimal for a date, try again.": GOTO adding2:
325. IF dayinfo(info) < olddayinfo THEN
326.     PRINT
327.     PRINT "You have put a date before your previous one which cannot work, start over from your first date."
328.     FOR dl = 1 TO info
329.         newinfo$(dl) = ""
330.         dayinfo(dl) = 0
331.     NEXT dl
332.     olddayinfo = 0
333.     info = 0
334.     GOTO add:
335. END IF
336. adding3:
337. PRINT
338. PRINT "Type up to 12 letters, numbers, or spaces that will be put for that day."
339. PRINT
340. INPUT "->", newinfo$(info)
341. infoamount = LEN(newinfo$(info))
342. IF infoamount > 12 THEN PRINT "Too long, try again.": GOTO adding3:
343. IF infoamount < 1 THEN PRINT "Nothing typed, try again.": GOTO adding3:
344. PRINT
345. INPUT "Do you want to add more (Y/N):", yn$
346. IF LEFT$(yn$, 1) = "y" OR LEFT$(yn$, 1) = "Y" THEN GOTO adding:
347. RETURN
348.  
349. 'Color all Sundays and holidays
350. coloring:
351. IF ye = 1 THEN RETURN
352. LINE (dayx - 4, weeky - 9)-(dayx + 102, weeky + 68), _RGB32(255, 255, 127), BF: COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 127)
353. RETURN
354.  
355.  
356. 'Find the right date for Easter.
357. PAQUES:
358. PQM = INT(PQA / 100): PQ1 = PQA - PQM * 100: PQJ = INT(((PQA / 19 - INT(PQA / 19)) + .001) * 19)
359. PQ2 = INT(PQM / 4): PQ3 = INT(((PQM / 4) - PQ2 + .001) * 4): PQ4 = INT((8 + PQM) / 25)
360. PQ5 = INT((1 + PQM - PQ4 + .001) / 3): PQ4 = (15 + 19 * PQJ + PQM - PQ2 - PQ5 + .001) / 30: PQ4 = PQ4 - INT(PQ4)
361. PQ4 = INT(PQ4 * 30): PQ5 = INT(PQ1 / 4): PQ6 = ((PQ1 / 4) - PQ5) * 4
362. PQ7 = (32 + 2 * PQ3 + 2 * PQ5 - PQ4 - PQ6 + .001) / 7: PQ7 = (PQ7 - INT(PQ7)) * 7: PQ6 = (PQJ + 11 * PQ4 + 22 * PQ7) / 451
363. PQ6 = INT(PQ6): PQ2 = (114 + PQ4 + PQ7 - 7 * PQ6) / 31: PQM = INT(PQ2): PQJ = INT((PQ2 - PQM + .001) * 31 + 1)
364. RETURN
365.  
366.  
367. 'This section saves the calendar to a BMP file along with the SUB at the end of this program.
368. saving:
369. mo$ = STR$(m)
370. mo$ = LTRIM$(RTRIM$(mo$))
371. year$ = STR$(yy)
372. year$ = LTRIM$(RTRIM$(year$))
373. nm$ = mo$ + "-"
374. nm$ = LTRIM$(RTRIM$(nm$))
375. nm$ = nm$ + year$
376. nm$ = LTRIM$(RTRIM$(nm$))
377. SaveImage 0, nm$ 'saves entire program screen,"
378. CLS
379. nm2$ = nm$ + ".bmp"
380. nm2$ = LTRIM$(RTRIM$(nm2$))
381. PRINT: PRINT: PRINT
382. PRINT "                                           Saving"
383. PRINT
384. PRINT "                          "; nm2$; " has been saved to your computer."
385. PRINT
386. PRINT
387. INPUT "                         Do you wish to make another calendar (Y/N)"; ag$
388. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN GOTO start:
389. PRINT
390. PRINT
391. PRINT "                         Goodbye."
392. END
393.  
394. weekdays:
395.  
396. 'This section gets the right weekday.
397. SUB GetDay (mm, dd, y, weekday) 'use 4 digit year
398.     'From Zeller's congruence: https://en.wikipedia.org/wiki/Zeller%27s_congruence
399.     IF mm < 3 THEN mm = mm + 12: y = y - 1
400.     century = y MOD 100
401.     zerocentury = y \ 100
402.     weekday = (dd + INT(13 * (mm + 1) / 5) + century + INT(century / 4) + INT(zerocentury / 4) + 5 * zerocentury) MOD 7
403. END SUB
404.  
405. 'This section saves the .bmp picture file.
406. SUB SaveImage (image AS LONG, filename AS STRING)
407.     bytesperpixel& = _PIXELSIZE(image&)
408.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
409.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
410.     x& = _WIDTH(image&)
411.     y& = _HEIGHT(image&)
412.     b$ = "BM????QB64????" + MKL$(40) + MKL$(x&) + MKL$(y&) + MKI$(1) + MKI$(bpp&) + MKL$(0) + "????" + STRING$(16, 0) 'partial BMP header info(???? to be filled later)
413.     IF bytesperpixel& = 1 THEN
414.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
415.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
416.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
417.         NEXT
418.     END IF
419.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
420.     lastsource& = _SOURCE
421.     _SOURCE image&
422.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
423.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
424.         r$ = ""
425.         FOR px& = 0 TO x& - 1
426.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
427.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
428.         NEXT px&
429.         d$ = d$ + r$ + padder$
430.     NEXT py&
431.     _SOURCE lastsource&
432.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
433.     b$ = b$ + d$ ' total file data bytes to create file
434.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
435.     IF LCASE$(RIGHT$(filename$, 4)) <> ".bmp" THEN ext$ = ".bmp"
436.     f& = FREEFILE
437.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
438.     OPEN filename$ + ext$ FOR BINARY AS #f&
439.     PUT #f&, , b$
440.     CLOSE #f&
441. END SUB
442.  

[Petr]

Hi Rcamp,

Sorry for waiting, i have not enought time for all my activities. Here is small upgrade my previous source code, now you can set own start day, month and year and set how much next Tuesdays and Thursdays you need to search. Please replace function GETDAYNR in your source code with upgraded version from this source code.

Code: QB64: [Select]

1. 'function GETDAYNAME parameters: YEAR, MONTH, DAY
2. 'listing of Tuesdays and Thursdays for 40 years
3. 'FUNCTION GETDAYNR is upgraded and must be copyed to your program for correct work!
4.  
5.  
6. DIM SHARED VirtualYear
7.  
8. 'DIM D AS INTEGER, Mnth AS INTEGER, VirtualYear AS INTEGER
9.  
10.  
11. INPUT "Insert DAY, MONTH, YEAR: "; D, Mnth, VirtualYear
12. INPUT "How much days find"; total
13. IF Mnth < 0 OR Mnth > 12 THEN PRINT "Invalid value for month": SLEEP 2: END
14. IF D < 0 OR D > 31 THEN PRINT "Invalid value for day": SLEEP 2: END
15.  
16.  
17.  
18. FOR l = 1 TO total
19.     D = D + 1
20.     IF ISLEAPYEAR(VirtualYear) AND D > 366 THEN VirtualYear = VirtualYear + 1: D = D - 366
21.     IF ISLEAPYEAR(VirtualYear) = 0 AND D > 365 THEN VirtualYear = VirtualYear + 1: D = D - 365
22.     today$ = ""
23.     DO UNTIL today$ = "Thursday" OR today$ = "Tuesday"
24.         today$ = GETDAYNAME(VirtualYear, Mnth, D)
25.         D = D + 1
26.     LOOP
27.     D = D - 1
28.  
29.     DAY = GETDAYNR(VirtualYear, Mnth, D)
30.     realdate$ = GETDATE$(DAY, VirtualYear)
31.  
32.     PRINT "Next date is "; realdate$; " "; GETDAYNAME(VirtualYear, Mnth, D)
33.     SLEEP
34. NEXT
35.  
36.  
37. FUNCTION GETDAYNR (y, mn, d) 'insert year, month and day and function calculate which day in year it is
38.     FOR month = 1 TO mn
39.         IF ISLEAPYEAR(y) = 0 THEN
40.             SELECT CASE month
41.                 CASE 1: m = 31
42.                 CASE 2: m = 28
43.                 CASE 3: m = 31
44.                 CASE 4: m = 30
45.                 CASE 5: m = 31
46.                 CASE 6: m = 30
47.                 CASE 7: m = 31
48.                 CASE 8: m = 31
49.                 CASE 9: m = 30
50.                 CASE 10: m = 31
51.                 CASE 11: m = 30
52.                 CASE 12: m = 31
53.             END SELECT
54.         ELSE
55.             SELECT CASE month
56.                 CASE 1: m = 31
57.                 CASE 2: m = 29
58.                 CASE 3: m = 31
59.                 CASE 4: m = 30
60.                 CASE 5: m = 31
61.                 CASE 6: m = 30
62.                 CASE 7: m = 31
63.                 CASE 8: m = 31
64.                 CASE 9: m = 30
65.                 CASE 10: m = 31
66.                 CASE 11: m = 30
67.                 CASE 12: m = 31
68.             END SELECT
69.         END IF
70.         GETDAYNR = GETDAYNR + m
71.     NEXT
72.     GETDAYNR = GETDAYNR - (m - d)
73. END FUNCTION
74.  
75. FUNCTION __GETDAY
76.     __GETDAY = VAL(MID$(DATE$, 4, 2))
77. END FUNCTION
78.  
79.  
80. FUNCTION GETDATE$ (NrOfTheDayInYear, y) 'return date 'YYYYMMDD in year y
81.     FOR month = 1 TO 12
82.         IF ISLEAPYEAR(y) = 0 THEN
83.             SELECT CASE month
84.                 CASE 1: m = 31
85.                 CASE 2: m = 28
86.                 CASE 3: m = 31
87.                 CASE 4: m = 30
88.                 CASE 5: m = 31
89.                 CASE 6: m = 30
90.                 CASE 7: m = 31
91.                 CASE 8: m = 31
92.                 CASE 9: m = 30
93.                 CASE 10: m = 31
94.                 CASE 11: m = 30
95.                 CASE 12: m = 31
96.             END SELECT
97.         ELSE
98.             SELECT CASE month
99.                 CASE 1: m = 31
100.                 CASE 2: m = 29
101.                 CASE 3: m = 31
102.                 CASE 4: m = 30
103.                 CASE 5: m = 31
104.                 CASE 6: m = 30
105.                 CASE 7: m = 31
106.                 CASE 8: m = 31
107.                 CASE 9: m = 30
108.                 CASE 10: m = 31
109.                 CASE 11: m = 30
110.                 CASE 12: m = 31
111.             END SELECT
112.         END IF
113.         oldm = om
114.         om = om + m
115.         IF om >= NrOfTheDayInYear AND oldm < NrOfTheDayInYear THEN EXIT FOR
116.     NEXT
117.     day = NrOfTheDayInYear - om + m
118.     day$ = STR$(day): IF LEN(day$) < 3 THEN day$ = "0" + LTRIM$(day$)
119.     month$ = STR$(month): IF LEN(month$) < 3 THEN month$ = "0" + LTRIM$(month$)
120.  
121.     GETDATE$ = LTRIM$(STR$(y)) + "-" + LTRIM$(month$) + "-" + LTRIM$(day$)
122. END FUNCTION
123.  
124.  
125.  
126.  
127. FUNCTION ISLEAPYEAR (year)
128.     IF year MOD 4 = 0 AND year MOD 100 THEN ISLEAPYEAR = 1
129.     IF year MOD 100 = 0 AND year MOD 400 = 0 THEN ISLEAPYEAR = 1
130. END FUNCTION
131.  
132. FUNCTION GETDAYNAME$ (year, mmonth, day) 'otestovano brutalne, fuguje skutecne spravne!
133.     DIM om AS LONG, m AS LONG, days AS LONG
134.     days = day
135.     FOR yyr = 1 TO year
136.         IF yyr = year THEN monthend = mmonth ELSE monthend = 12
137.         FOR mont = 1 TO monthend
138.             IF ISLEAPYEAR(yyr) = 0 THEN
139.                 SELECT CASE mont
140.                     CASE 1: m = 31
141.                     CASE 2: m = 28
142.                     CASE 3: m = 31
143.                     CASE 4: m = 30
144.                     CASE 5: m = 31
145.                     CASE 6: m = 30
146.                     CASE 7: m = 31
147.                     CASE 8: m = 31
148.                     CASE 9: m = 30
149.                     CASE 10: m = 31
150.                     CASE 11: m = 30
151.                     CASE 12: m = 31
152.                 END SELECT
153.             ELSE
154.                 SELECT CASE mont
155.                     CASE 1: m = 31
156.                     CASE 2: m = 29
157.                     CASE 3: m = 31
158.                     CASE 4: m = 30
159.                     CASE 5: m = 31
160.                     CASE 6: m = 30
161.                     CASE 7: m = 31
162.                     CASE 8: m = 31
163.                     CASE 9: m = 30
164.                     CASE 10: m = 31
165.                     CASE 11: m = 30
166.                     CASE 12: m = 31
167.                 END SELECT
168.             END IF
169.             om = m
170.             days = days + m
171.         NEXT
172.     NEXT
173.     days = days - m - 1
174.     a = (days MOD 7)
175.     RESTORE nms
176.     FOR r = 0 TO a
177.         READ GETDAYNAME$
178.     NEXT
179.     nms:
180.     DATA Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
181. END FUNCTION
182.  
183.  
184. FUNCTION GetDay$ (mm, dd, yyyy) 'use 4 digit year
185.     'From Zeller's congruence: https://en.wikipedia.org/wiki/Zeller%27s_congruence
186.     IF mm < 3 THEN mm = mm + 12: yyyy = yyyy - 1
187.     century = yyyy MOD 100
188.     zerocentury = yyyy \ 100
189.     result = (dd + INT(13 * (mm + 1) / 5) + century + INT(century / 4) + INT(zerocentury / 4) + 5 * zerocentury) MOD 7
190.     SELECT CASE result
191.         CASE 0: GetDay$ = "Saturday"
192.         CASE 1: GetDay$ = "Sunday"
193.         CASE 2: GetDay$ = "Monday"
194.         CASE 3: GetDay$ = "Tuesday"
195.         CASE 4: GetDay$ = "Wednesday"
196.         CASE 5: GetDay$ = "Thursday"
197.         CASE 6: GetDay$ = "Friday"
198.     END SELECT
199. END FUNCTION
200.  

According to my tests, everything should work properly.

 

SierraKen, nice work!

[Petr]

rcamp48,

please use this repaired source (is repaired program loop, functions are the same as in previous case), beacuse previous source work bad if is date calculated over new year. 

In this source is this bug repaired.

Code: QB64: [Select]

1.  
2. 'function GETDAYNAME parameters: YEAR, MONTH, DAY
3. 'listing of Tuesdays and Thursdays for 40 years
4. 'FUNCTION GETDAYNR is upgraded and must be copyed to your program for correct work!
5.  
6.  
7. DIM SHARED VirtualYear
8.  
9. DIM D AS INTEGER, Mnth AS INTEGER, VirtualYear AS INTEGER
10.  
11.  
12. INPUT "Insert DAY, MONTH, YEAR: "; D, Mnth, VirtualYear
13. INPUT "How much days find"; total
14. IF Mnth < 0 OR Mnth > 12 THEN PRINT "Invalid value for month": SLEEP 2: END
15. IF D < 0 OR D > 31 THEN PRINT "Invalid value for day": SLEEP 2: END
16.  
17.  
18.  
19. 'this is repaired     ------------------------------------------------------------------------------------------
20. FOR l = 1 TO total
21.     D = D + 1
22.  
23.     today$ = ""
24.     DO UNTIL today$ = "Thursday" OR today$ = "Tuesday"
25.         today$ = GETDAYNAME(VirtualYear, Mnth, D)
26.         D = D + 1
27.  
28.     LOOP
29.     D = D - 1
30.  
31.     DAY = GETDAYNR(VirtualYear, Mnth, D)
32.  
33.     IF ISLEAPYEAR(VirtualYear) AND DAY > 366 THEN VirtualYear = VirtualYear + 1: DAY = DAY - 366: D = D - 366
34.     IF ISLEAPYEAR(VirtualYear) = 0 AND DAY > 365 THEN VirtualYear = VirtualYear + 1: DAY = DAY - 365: D = D - 365
35.  
36.     realdate$ = GETDATE$(DAY, VirtualYear)
37.  
38.     PRINT "Next date is "; realdate$; " "; GETDAYNAME(VirtualYear, Mnth, D); ", Week:"; 1 + DAY \ 7
39.     SLEEP
40. NEXT
41. 'this is repaired     ------------------------------------------------------------------------------------------
42.  
43.  
44.  
45. FUNCTION GETDAYNR (y, mn, d) 'insert year, month and day and function calculate which day in year it is
46.     FOR month = 1 TO mn
47.         IF ISLEAPYEAR(y) = 0 THEN
48.             SELECT CASE month
49.                 CASE 1: m = 31
50.                 CASE 2: m = 28
51.                 CASE 3: m = 31
52.                 CASE 4: m = 30
53.                 CASE 5: m = 31
54.                 CASE 6: m = 30
55.                 CASE 7: m = 31
56.                 CASE 8: m = 31
57.                 CASE 9: m = 30
58.                 CASE 10: m = 31
59.                 CASE 11: m = 30
60.                 CASE 12: m = 31
61.             END SELECT
62.         ELSE
63.             SELECT CASE month
64.                 CASE 1: m = 31
65.                 CASE 2: m = 29
66.                 CASE 3: m = 31
67.                 CASE 4: m = 30
68.                 CASE 5: m = 31
69.                 CASE 6: m = 30
70.                 CASE 7: m = 31
71.                 CASE 8: m = 31
72.                 CASE 9: m = 30
73.                 CASE 10: m = 31
74.                 CASE 11: m = 30
75.                 CASE 12: m = 31
76.             END SELECT
77.         END IF
78.         GETDAYNR = GETDAYNR + m
79.     NEXT
80.     GETDAYNR = GETDAYNR - (m - d)
81. END FUNCTION
82.  
83. FUNCTION __GETDAY
84.     __GETDAY = VAL(MID$(DATE$, 4, 2))
85. END FUNCTION
86.  
87.  
88. FUNCTION GETDATE$ (NrOfTheDayInYear, y) 'return date 'YYYYMMDD in year y
89.     FOR month = 1 TO 12
90.         IF ISLEAPYEAR(y) = 0 THEN
91.             SELECT CASE month
92.                 CASE 1: m = 31
93.                 CASE 2: m = 28
94.                 CASE 3: m = 31
95.                 CASE 4: m = 30
96.                 CASE 5: m = 31
97.                 CASE 6: m = 30
98.                 CASE 7: m = 31
99.                 CASE 8: m = 31
100.                 CASE 9: m = 30
101.                 CASE 10: m = 31
102.                 CASE 11: m = 30
103.                 CASE 12: m = 31
104.             END SELECT
105.         ELSE
106.             SELECT CASE month
107.                 CASE 1: m = 31
108.                 CASE 2: m = 29
109.                 CASE 3: m = 31
110.                 CASE 4: m = 30
111.                 CASE 5: m = 31
112.                 CASE 6: m = 30
113.                 CASE 7: m = 31
114.                 CASE 8: m = 31
115.                 CASE 9: m = 30
116.                 CASE 10: m = 31
117.                 CASE 11: m = 30
118.                 CASE 12: m = 31
119.             END SELECT
120.         END IF
121.         oldm = om
122.         om = om + m
123.         IF om >= NrOfTheDayInYear AND oldm < NrOfTheDayInYear THEN EXIT FOR
124.     NEXT
125.     day = NrOfTheDayInYear - om + m
126.     day$ = STR$(day): IF LEN(day$) < 3 THEN day$ = "0" + LTRIM$(day$)
127.     month$ = STR$(month): IF LEN(month$) < 3 THEN month$ = "0" + LTRIM$(month$)
128.  
129.     GETDATE$ = LTRIM$(STR$(y)) + "-" + LTRIM$(month$) + "-" + LTRIM$(day$)
130. END FUNCTION
131.  
132.  
133.  
134.  
135. FUNCTION ISLEAPYEAR (year)
136.     IF year MOD 4 = 0 AND year MOD 100 THEN ISLEAPYEAR = 1
137.     IF year MOD 100 = 0 AND year MOD 400 = 0 THEN ISLEAPYEAR = 1
138. END FUNCTION
139.  
140. FUNCTION GETDAYNAME$ (year, mmonth, day) 'otestovano brutalne, fuguje skutecne spravne!
141.     DIM om AS LONG, m AS LONG, days AS LONG
142.     days = day
143.     FOR yyr = 1 TO year
144.         IF yyr = year THEN monthend = mmonth ELSE monthend = 12
145.         FOR mont = 1 TO monthend
146.             IF ISLEAPYEAR(yyr) = 0 THEN
147.                 SELECT CASE mont
148.                     CASE 1: m = 31
149.                     CASE 2: m = 28
150.                     CASE 3: m = 31
151.                     CASE 4: m = 30
152.                     CASE 5: m = 31
153.                     CASE 6: m = 30
154.                     CASE 7: m = 31
155.                     CASE 8: m = 31
156.                     CASE 9: m = 30
157.                     CASE 10: m = 31
158.                     CASE 11: m = 30
159.                     CASE 12: m = 31
160.                 END SELECT
161.             ELSE
162.                 SELECT CASE mont
163.                     CASE 1: m = 31
164.                     CASE 2: m = 29
165.                     CASE 3: m = 31
166.                     CASE 4: m = 30
167.                     CASE 5: m = 31
168.                     CASE 6: m = 30
169.                     CASE 7: m = 31
170.                     CASE 8: m = 31
171.                     CASE 9: m = 30
172.                     CASE 10: m = 31
173.                     CASE 11: m = 30
174.                     CASE 12: m = 31
175.                 END SELECT
176.             END IF
177.             om = m
178.             days = days + m
179.         NEXT
180.     NEXT
181.     days = days - m - 1
182.     a = (days MOD 7)
183.     RESTORE nms
184.     FOR r = 0 TO a
185.         READ GETDAYNAME$
186.     NEXT
187.     nms:
188.     DATA Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
189. END FUNCTION
190.  
191.  
192. FUNCTION GetDay$ (mm, dd, yyyy) 'use 4 digit year
193.     'From Zeller's congruence: https://en.wikipedia.org/wiki/Zeller%27s_congruence
194.     IF mm < 3 THEN mm = mm + 12: yyyy = yyyy - 1
195.     century = yyyy MOD 100
196.     zerocentury = yyyy \ 100
197.     result = (dd + INT(13 * (mm + 1) / 5) + century + INT(century / 4) + INT(zerocentury / 4) + 5 * zerocentury) MOD 7
198.     SELECT CASE result
199.         CASE 0: GetDay$ = "Saturday"
200.         CASE 1: GetDay$ = "Sunday"
201.         CASE 2: GetDay$ = "Monday"
202.         CASE 3: GetDay$ = "Tuesday"
203.         CASE 4: GetDay$ = "Wednesday"
204.         CASE 5: GetDay$ = "Thursday"
205.         CASE 6: GetDay$ = "Friday"
206.     END SELECT
207. END FUNCTION
208.  

[rcamp48]

Thank you very much Peter, I will try that code in my program, it is 99.99 percent done.... Russ

[rcamp48]

rcamp48,

please use this repaired source (is repaired program loop, functions are the same as in previous case), beacuse previous source work bad if is date calculated over new year. 

In this source is this bug repaired.

Code: QB64: [Select]

1.  
2. 'function GETDAYNAME parameters: YEAR, MONTH, DAY
3. 'listing of Tuesdays and Thursdays for 40 years
4. 'FUNCTION GETDAYNR is upgraded and must be copyed to your program for correct work!
5.  
6.  
7. DIM SHARED VirtualYear
8.  
9. DIM D AS INTEGER, Mnth AS INTEGER, VirtualYear AS INTEGER
10.  
11.  
12. INPUT "Insert DAY, MONTH, YEAR: "; D, Mnth, VirtualYear
13. INPUT "How much days find"; total
14. IF Mnth < 0 OR Mnth > 12 THEN PRINT "Invalid value for month": SLEEP 2: END
15. IF D < 0 OR D > 31 THEN PRINT "Invalid value for day": SLEEP 2: END
16.  
17.  
18.  
19. 'this is repaired     ------------------------------------------------------------------------------------------
20. FOR l = 1 TO total
21.     D = D + 1
22.  
23.     today$ = ""
24.     DO UNTIL today$ = "Thursday" OR today$ = "Tuesday"
25.         today$ = GETDAYNAME(VirtualYear, Mnth, D)
26.         D = D + 1
27.  
28.     LOOP
29.     D = D - 1
30.  
31.     DAY = GETDAYNR(VirtualYear, Mnth, D)
32.  
33.     IF ISLEAPYEAR(VirtualYear) AND DAY > 366 THEN VirtualYear = VirtualYear + 1: DAY = DAY - 366: D = D - 366
34.     IF ISLEAPYEAR(VirtualYear) = 0 AND DAY > 365 THEN VirtualYear = VirtualYear + 1: DAY = DAY - 365: D = D - 365
35.  
36.     realdate$ = GETDATE$(DAY, VirtualYear)
37.  
38.     PRINT "Next date is "; realdate$; " "; GETDAYNAME(VirtualYear, Mnth, D); ", Week:"; 1 + DAY \ 7
39.     SLEEP
40. NEXT
41. 'this is repaired     ------------------------------------------------------------------------------------------
42.  
43.  
44.  
45. FUNCTION GETDAYNR (y, mn, d) 'insert year, month and day and function calculate which day in year it is
46.     FOR month = 1 TO mn
47.         IF ISLEAPYEAR(y) = 0 THEN
48.             SELECT CASE month
49.                 CASE 1: m = 31
50.                 CASE 2: m = 28
51.                 CASE 3: m = 31
52.                 CASE 4: m = 30
53.                 CASE 5: m = 31
54.                 CASE 6: m = 30
55.                 CASE 7: m = 31
56.                 CASE 8: m = 31
57.                 CASE 9: m = 30
58.                 CASE 10: m = 31
59.                 CASE 11: m = 30
60.                 CASE 12: m = 31
61.             END SELECT
62.         ELSE
63.             SELECT CASE month
64.                 CASE 1: m = 31
65.                 CASE 2: m = 29
66.                 CASE 3: m = 31
67.                 CASE 4: m = 30
68.                 CASE 5: m = 31
69.                 CASE 6: m = 30
70.                 CASE 7: m = 31
71.                 CASE 8: m = 31
72.                 CASE 9: m = 30
73.                 CASE 10: m = 31
74.                 CASE 11: m = 30
75.                 CASE 12: m = 31
76.             END SELECT
77.         END IF
78.         GETDAYNR = GETDAYNR + m
79.     NEXT
80.     GETDAYNR = GETDAYNR - (m - d)
81. END FUNCTION
82.  
83. FUNCTION __GETDAY
84.     __GETDAY = VAL(MID$(DATE$, 4, 2))
85. END FUNCTION
86.  
87.  
88. FUNCTION GETDATE$ (NrOfTheDayInYear, y) 'return date 'YYYYMMDD in year y
89.     FOR month = 1 TO 12
90.         IF ISLEAPYEAR(y) = 0 THEN
91.             SELECT CASE month
92.                 CASE 1: m = 31
93.                 CASE 2: m = 28
94.                 CASE 3: m = 31
95.                 CASE 4: m = 30
96.                 CASE 5: m = 31
97.                 CASE 6: m = 30
98.                 CASE 7: m = 31
99.                 CASE 8: m = 31
100.                 CASE 9: m = 30
101.                 CASE 10: m = 31
102.                 CASE 11: m = 30
103.                 CASE 12: m = 31
104.             END SELECT
105.         ELSE
106.             SELECT CASE month
107.                 CASE 1: m = 31
108.                 CASE 2: m = 29
109.                 CASE 3: m = 31
110.                 CASE 4: m = 30
111.                 CASE 5: m = 31
112.                 CASE 6: m = 30
113.                 CASE 7: m = 31
114.                 CASE 8: m = 31
115.                 CASE 9: m = 30
116.                 CASE 10: m = 31
117.                 CASE 11: m = 30
118.                 CASE 12: m = 31
119.             END SELECT
120.         END IF
121.         oldm = om
122.         om = om + m
123.         IF om >= NrOfTheDayInYear AND oldm < NrOfTheDayInYear THEN EXIT FOR
124.     NEXT
125.     day = NrOfTheDayInYear - om + m
126.     day$ = STR$(day): IF LEN(day$) < 3 THEN day$ = "0" + LTRIM$(day$)
127.     month$ = STR$(month): IF LEN(month$) < 3 THEN month$ = "0" + LTRIM$(month$)
128.  
129.     GETDATE$ = LTRIM$(STR$(y)) + "-" + LTRIM$(month$) + "-" + LTRIM$(day$)
130. END FUNCTION
131.  
132.  
133.  
134.  
135. FUNCTION ISLEAPYEAR (year)
136.     IF year MOD 4 = 0 AND year MOD 100 THEN ISLEAPYEAR = 1
137.     IF year MOD 100 = 0 AND year MOD 400 = 0 THEN ISLEAPYEAR = 1
138. END FUNCTION
139.  
140. FUNCTION GETDAYNAME$ (year, mmonth, day) 'otestovano brutalne, fuguje skutecne spravne!
141.     DIM om AS LONG, m AS LONG, days AS LONG
142.     days = day
143.     FOR yyr = 1 TO year
144.         IF yyr = year THEN monthend = mmonth ELSE monthend = 12
145.         FOR mont = 1 TO monthend
146.             IF ISLEAPYEAR(yyr) = 0 THEN
147.                 SELECT CASE mont
148.                     CASE 1: m = 31
149.                     CASE 2: m = 28
150.                     CASE 3: m = 31
151.                     CASE 4: m = 30
152.                     CASE 5: m = 31
153.                     CASE 6: m = 30
154.                     CASE 7: m = 31
155.                     CASE 8: m = 31
156.                     CASE 9: m = 30
157.                     CASE 10: m = 31
158.                     CASE 11: m = 30
159.                     CASE 12: m = 31
160.                 END SELECT
161.             ELSE
162.                 SELECT CASE mont
163.                     CASE 1: m = 31
164.                     CASE 2: m = 29
165.                     CASE 3: m = 31
166.                     CASE 4: m = 30
167.                     CASE 5: m = 31
168.                     CASE 6: m = 30
169.                     CASE 7: m = 31
170.                     CASE 8: m = 31
171.                     CASE 9: m = 30
172.                     CASE 10: m = 31
173.                     CASE 11: m = 30
174.                     CASE 12: m = 31
175.                 END SELECT
176.             END IF
177.             om = m
178.             days = days + m
179.         NEXT
180.     NEXT
181.     days = days - m - 1
182.     a = (days MOD 7)
183.     RESTORE nms
184.     FOR r = 0 TO a
185.         READ GETDAYNAME$
186.     NEXT
187.     nms:
188.     DATA Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
189. END FUNCTION
190.  
191.  
192. FUNCTION GetDay$ (mm, dd, yyyy) 'use 4 digit year
193.     'From Zeller's congruence: https://en.wikipedia.org/wiki/Zeller%27s_congruence
194.     IF mm < 3 THEN mm = mm + 12: yyyy = yyyy - 1
195.     century = yyyy MOD 100
196.     zerocentury = yyyy \ 100
197.     result = (dd + INT(13 * (mm + 1) / 5) + century + INT(century / 4) + INT(zerocentury / 4) + 5 * zerocentury) MOD 7
198.     SELECT CASE result
199.         CASE 0: GetDay$ = "Saturday"
200.         CASE 1: GetDay$ = "Sunday"
201.         CASE 2: GetDay$ = "Monday"
202.         CASE 3: GetDay$ = "Tuesday"
203.         CASE 4: GetDay$ = "Wednesday"
204.         CASE 5: GetDay$ = "Thursday"
205.         CASE 6: GetDay$ = "Friday"
206.     END SELECT
207. END FUNCTION
208.  

One problem Peter , I am using Tuesdays and Fridays , not Tuesdays and Thursdays.
I will change the variables in my main program so I am not using any that you are using in the program you gave me.

Russ

PS:
I can do a global replace of all variables that do not make sense to a programmer anyways to more meaningful variables

[Petr]

Hi, feel free to modify the program according to your needs, I have no problem with it :) 

The simplest modification is to throw the main program into your own SUB, as I did here:

Code: QB64: [Select]

1.  
2. DIM SHARED VirtualYear
3. DIM Day AS INTEGER, Month AS INTEGER, Year AS INTEGER, TotalDays AS INTEGER
4.  
5.  
6.  
7. INPUT "Insert DAY, MONTH, YEAR: "; Day, Month, Year
8. INPUT "How much days find"; TotalDays
9. IF Month < 0 OR Month > 12 THEN PRINT "Invalid value for month": SLEEP 2: END
10. IF Day < 0 OR Day > 31 THEN PRINT "Invalid value for day": SLEEP 2: END
11.  
12. PrintDate Day, Month, Year, TotalDays
13.  
14.  
15.  
16.  
17.  
18.  
19.  
20. SUB PrintDate (D, Mnth, VirtualYear, Total) 'this was my program loop
21.     FOR l = 1 TO Total
22.         D = D + 1
23.         today$ = ""
24.         DO UNTIL today$ = "Friday" OR today$ = "Tuesday"
25.             today$ = GETDAYNAME(VirtualYear, Mnth, D)
26.             D = D + 1
27.         LOOP
28.         D = D - 1
29.         DAY = GETDAYNR(VirtualYear, Mnth, D)
30.         IF ISLEAPYEAR(VirtualYear) AND DAY > 366 THEN VirtualYear = VirtualYear + 1: DAY = DAY - 366: D = D - 366
31.         IF ISLEAPYEAR(VirtualYear) = 0 AND DAY > 365 THEN VirtualYear = VirtualYear + 1: DAY = DAY - 365: D = D - 365
32.         realdate$ = GETDATE$(DAY, VirtualYear)
33.         PRINT "Next date is "; realdate$; " "; today$; ", Week:"; 1 + DAY \ 7
34.         SLEEP
35.     NEXT
36. END SUB
37.  
38. FUNCTION GETDAYNR (y, mn, d) 'insert year, month and day and function calculate which day in year it is
39.     FOR month = 1 TO mn
40.         IF ISLEAPYEAR(y) = 0 THEN
41.             SELECT CASE month
42.                 CASE 1: m = 31
43.                 CASE 2: m = 28
44.                 CASE 3: m = 31
45.                 CASE 4: m = 30
46.                 CASE 5: m = 31
47.                 CASE 6: m = 30
48.                 CASE 7: m = 31
49.                 CASE 8: m = 31
50.                 CASE 9: m = 30
51.                 CASE 10: m = 31
52.                 CASE 11: m = 30
53.                 CASE 12: m = 31
54.             END SELECT
55.         ELSE
56.             SELECT CASE month
57.                 CASE 1: m = 31
58.                 CASE 2: m = 29
59.                 CASE 3: m = 31
60.                 CASE 4: m = 30
61.                 CASE 5: m = 31
62.                 CASE 6: m = 30
63.                 CASE 7: m = 31
64.                 CASE 8: m = 31
65.                 CASE 9: m = 30
66.                 CASE 10: m = 31
67.                 CASE 11: m = 30
68.                 CASE 12: m = 31
69.             END SELECT
70.         END IF
71.         GETDAYNR = GETDAYNR + m
72.     NEXT
73.     GETDAYNR = GETDAYNR - (m - d)
74. END FUNCTION
75.  
76. FUNCTION __GETDAY
77.     __GETDAY = VAL(MID$(DATE$, 4, 2))
78. END FUNCTION
79.  
80.  
81. FUNCTION GETDATE$ (NrOfTheDayInYear, y) 'return date 'YYYYMMDD in year y
82.     FOR month = 1 TO 12
83.         IF ISLEAPYEAR(y) = 0 THEN
84.             SELECT CASE month
85.                 CASE 1: m = 31
86.                 CASE 2: m = 28
87.                 CASE 3: m = 31
88.                 CASE 4: m = 30
89.                 CASE 5: m = 31
90.                 CASE 6: m = 30
91.                 CASE 7: m = 31
92.                 CASE 8: m = 31
93.                 CASE 9: m = 30
94.                 CASE 10: m = 31
95.                 CASE 11: m = 30
96.                 CASE 12: m = 31
97.             END SELECT
98.         ELSE
99.             SELECT CASE month
100.                 CASE 1: m = 31
101.                 CASE 2: m = 29
102.                 CASE 3: m = 31
103.                 CASE 4: m = 30
104.                 CASE 5: m = 31
105.                 CASE 6: m = 30
106.                 CASE 7: m = 31
107.                 CASE 8: m = 31
108.                 CASE 9: m = 30
109.                 CASE 10: m = 31
110.                 CASE 11: m = 30
111.                 CASE 12: m = 31
112.             END SELECT
113.         END IF
114.         oldm = om
115.         om = om + m
116.         IF om >= NrOfTheDayInYear AND oldm < NrOfTheDayInYear THEN EXIT FOR
117.     NEXT
118.     day = NrOfTheDayInYear - om + m
119.     day$ = STR$(day): IF LEN(day$) < 3 THEN day$ = "0" + LTRIM$(day$)
120.     month$ = STR$(month): IF LEN(month$) < 3 THEN month$ = "0" + LTRIM$(month$)
121.  
122.     GETDATE$ = LTRIM$(STR$(y)) + "-" + LTRIM$(month$) + "-" + LTRIM$(day$)
123. END FUNCTION
124.  
125.  
126.  
127.  
128. FUNCTION ISLEAPYEAR (year)
129.     IF year MOD 4 = 0 AND year MOD 100 THEN ISLEAPYEAR = 1
130.     IF year MOD 100 = 0 AND year MOD 400 = 0 THEN ISLEAPYEAR = 1
131. END FUNCTION
132.  
133. FUNCTION GETDAYNAME$ (year, mmonth, day) 'otestovano brutalne, fuguje skutecne spravne!
134.     DIM om AS LONG, m AS LONG, days AS LONG
135.     days = day
136.     FOR yyr = 1 TO year
137.         IF yyr = year THEN monthend = mmonth ELSE monthend = 12
138.         FOR mont = 1 TO monthend
139.             IF ISLEAPYEAR(yyr) = 0 THEN
140.                 SELECT CASE mont
141.                     CASE 1: m = 31
142.                     CASE 2: m = 28
143.                     CASE 3: m = 31
144.                     CASE 4: m = 30
145.                     CASE 5: m = 31
146.                     CASE 6: m = 30
147.                     CASE 7: m = 31
148.                     CASE 8: m = 31
149.                     CASE 9: m = 30
150.                     CASE 10: m = 31
151.                     CASE 11: m = 30
152.                     CASE 12: m = 31
153.                 END SELECT
154.             ELSE
155.                 SELECT CASE mont
156.                     CASE 1: m = 31
157.                     CASE 2: m = 29
158.                     CASE 3: m = 31
159.                     CASE 4: m = 30
160.                     CASE 5: m = 31
161.                     CASE 6: m = 30
162.                     CASE 7: m = 31
163.                     CASE 8: m = 31
164.                     CASE 9: m = 30
165.                     CASE 10: m = 31
166.                     CASE 11: m = 30
167.                     CASE 12: m = 31
168.                 END SELECT
169.             END IF
170.             om = m
171.             days = days + m
172.         NEXT
173.     NEXT
174.     days = days - m - 1
175.     a = (days MOD 7)
176.     RESTORE nms
177.     FOR r = 0 TO a
178.         READ GETDAYNAME$
179.     NEXT
180.     nms:
181.     DATA Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday
182. END FUNCTION
183.  

[rcamp48]

Hi Peter: If you have the time can you look at my program and let me know why it does not change days as supposed to ???

I enclose the source code itself for the latest version: 

Lotto Simulator Release Versions.zip

99 percent of the program works ok, for both Lotto Max and Lotto 649, I have the source cod for both.

Russ

[Petr]

Hi, which BAS fle in ZIP? I look in, when I'll come back.

[rcamp48]

Its the main lottery program, I am working on a universal lottery program, its code is here : the two main programs are enclosed (wip)

 

Universal Lottery Program (wip).zip

Hey Pete you need to run the Universal Lottery setup program...it will run the main program, I will be working on the convert programs this afternoon,they are for converting lottery lists from the internet into a format that my lottery programs need...

Russ

[SMcNeill]

Its the main lottery program, I am working on a universal lottery program, its code is here : the two main programs are enclosed (wip)

 

Universal Lottery Program (wip).zip

 
  [ Invalid Attachment ]  
  [ Invalid Attachment ]  
  [ Invalid Attachment ]  
  [ Invalid Attachment ]  
  [ Invalid Attachment ]  

That might get it going...going for lunch.
Russ

Might want to zip it into one archive, as I'm seeing:

kenoevening.dat
dname.dat
setup.dat
reg.dat
  [ Invalid Attachment ] 
  [ Invalid Attachment ] 

[rcamp48]

Done...
Russ