Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on August 01, 2019, 11:55:06 pm

Title: Weekday Finder
Post by: SierraKen on August 01, 2019, 11:55:06 pm
Hi all,

This is another program that I've always wanted to make but never did. It's a weekday finder for any date for any year in the Gregorian Calendar, which is after September 14, 1752. Don't worry, it detects if you try an earlier date. But it doesn't detect if you say a date wrong, like a 31st day of a month that doesn't have 31 days. I thought about adding that, but that's a lot of code, especially for Leap Year, that the user never sees. So I mostly just stuck with the basics. I found what's called Zeller's Rule equation online tonight and used that. For like 1 or 2 hours I wondered why it wouldn't work until I added some PRINT commands for my variables to check them all and I had no idea that LEFT$(y$,3) is needed just for the 2 first numbers of the year, which is y$. I still don't know why it needs 3 and not just 2. But it does and now it works fine. :) Please tell me what you think, thanks. By the way, I know there's countless of these things on websites already, but I just wanted to make my own. Plus now that it's in QB64 code, people are free to use my code in any of their own programs. I don't know if any of you have made this before, but possibly.

(Note: I added more below, so keep scrolling, thanks.)

Code: QB64: [Select]
  1. 'This program uses Zeller's Rule equation to determine what day of the week for any given day on the Gregorian Calander, which is after Sept. 14, 1752.
  2. 'I don't know how the equation works, but I decided to try it and it works great!
  3. 'This program was made on August 1, 2019... which was a Thursday. :)
  4. 'Feel free to use this code in your own programs.
  5. 'Made by Ken G.
  6. 'Freeware only.
  7.  
  8. _TITLE "Day of the Week Finder"
  9. start:
  12. PRINT "                             Day of the Week Finder"
  14. PRINT "                                   By Ken G."
  17. PRINT "                 After September 14, 1752 because that's"
  18. PRINT "                 when the Gregorian Calendar started."
  19. again:
  21. INPUT "                 Year: ", y
  22. IF y < 1752 THEN PRINT "Year must be after 1751.": GOTO again:
  23. again2:
  25. INPUT "                 Month (1-12): ", m
  26. IF m < 1 OR m > 12 THEN PRINT "Type a month 1-12 only.": GOTO again2:
  27. again3:
  29. INPUT "                 Day: ", k
  30. IF k > 31 OR k < 1 THEN PRINT "Days must be 1-31 only.": GOTO again3:
  31. IF y = 1752 AND m <= 9 AND d < 14 THEN PRINT "Your date is too early to calculate on the Gregorian Calendar, try again.": GOTO again:
  33.  
  34. 'Months
  35. 'The months start on March 1 so Leap Year will be the last day of the year, which is why Jan. and Feb. are actually the year before.
  36. mm = m - 2
  37. IF m = 1 THEN mm = 11: y = y - 1
  38. IF m = 2 THEN mm = 12: y = y - 1
  39.  
  40. 'Full Year.
  41. y$ = STR$(y)
  42.  
  43. 'Last 2 digits of year.
  44. yy$ = RIGHT$(y$, 2)
  45. yy = VAL(yy$)
  46.  
  47. 'Century
  48. c$ = LEFT$(y$, 3)
  49. c = VAL(c$)
  50.  
  51. 'Here is Zeller's Rule equation.
  52.  
  53. weekday = (k + INT(((13 * mm) - 1) / 5) + yy + INT(yy / 4) + INT(c / 4) - (2 * c)) MOD 7
  54.  
  55. IF weekday = 0 THEN w$ = "Sunday"
  56. IF weekday = 1 THEN w$ = "Monday"
  57. IF weekday = 2 THEN w$ = "Tuesday"
  58. IF weekday = 3 THEN w$ = "Wednesday"
  59. IF weekday = 4 THEN w$ = "Thursday"
  60. IF weekday = 5 THEN w$ = "Friday"
  61. IF weekday = 6 THEN w$ = "Saturday"
  62.  
  64.  
  65. PRINT "                 Your Day Of The Week Is: "; w$
  67. INPUT "                 Again (Y/N)"; ag$
  68. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN GOTO start:
  70.  
Title: Re: Weekday Finder
Post by: bplus on August 02, 2019, 12:17:35 am
Quote
For like 1 or 2 hours I wondered why it wouldn't work until I added some PRINT commands for my variables to check them all and I had no idea that LEFT$(y$,3) is needed just for the 2 first numbers of the year, which is y$. I still don't know why it needs 3 and not just 2. But it does and now it works fine. :)

Code: QB64: [Select]
  1. REM the STR$(Positive number) leaves a space on left of number where a - neg sign would go if it were negative.
  3.     INPUT "Enter a year > "; y
  4.     y$ = STR$(y)
  5.     PRINT "You entered *"; STR$(y); "*"
  6.     PRINT "Left$(str$(y), 2) = *"; LEFT$(STR$(y), 2); "*"
  7.     PRINT
  9.  

Could of saved a step by:
Code: QB64: [Select]
  1. INPUT "Enter a year > "; y$

That is quite a calculation for week day! :)
Title: Re: Weekday Finder
Post by: SierraKen on August 02, 2019, 12:28:57 am
Thanks B+, but I actually had to split the whole year from century and last 2 digits and use it all.
Yeah, I went to a couple of math teaching websites to figure it out. :)
Title: Re: Weekday Finder
Post by: bplus on August 02, 2019, 01:01:27 am
Quote from: SierraKen on August 02, 2019, 12:28:57 am
Thanks B+, but I actually had to split the whole year from century and last 2 digits and use it all.
Yeah, I went to a couple of math teaching websites to figure it out. :)

Code: QB64: [Select]
  2.     INPUT "Enter a year > "; y$
  3.     c = VAL(LEFT$(y$, 2))
  4.     yy = VAL(RIGHT$(y$, 2))
  5.     PRINT c, yy
  7.  

If you take the year in with a string, you don't have to worry about str$(y), you save a step.
Title: Re: Weekday Finder
Post by: SierraKen on August 02, 2019, 01:09:36 am
Yes, but I also had to use the year as a variable as Y in this section:
I also have some IF/THEN statements so people can't go under or over the limits of the program.

Code: QB64: [Select]
  1. 'Months
  2. 'The months start on March 1 so Leap Year will be the last day of the year, which is why Jan. and Feb. are actually the year before.
  3. mm = m - 2
  4. IF m = 1 THEN mm = 11: y = y - 1
  5. IF m = 2 THEN mm = 12: y = y - 1
  6.  
Title: Re: Weekday Finder
Post by: SierraKen on August 02, 2019, 01:12:01 am
I just added some more text so the people know not to go over the date December 31, 9999. It can't use a year with 5 digits. LOL
So here it is:

(Note: There's a better one below this one, which has detection of any bad dates, even Leap Year, so keep scrolling, thanks.)

Code: QB64: [Select]
  1. 'This program uses Zeller's Rule equation to determine what day of the week for any given day on the Gregorian Calander, which is after Sept. 14, 1752.
  2. 'I don't know how the equation works, but I decided to try it and it works great!
  3. 'This program was made on August 1, 2019... which was a Thursday. :)
  4. 'Feel free to use this code in your own programs.
  5. 'Made by Ken G.
  6. 'Freeware only.
  7.  
  8. _TITLE "Day of the Week Finder"
  9. start:
  12. PRINT "                             Day of the Week Finder"
  14. PRINT "                                   By Ken G."
  16. PRINT "                 After September 14, 1752 because that's"
  17. PRINT "                 when the Gregorian Calendar started."
  18. PRINT "                 The highest date for this program"
  19. PRINT "                 is December 31, 9999."
  20. again:
  22. INPUT "                 Year: ", y
  23. IF y < 1752 THEN PRINT "Year must be after 1751.": GOTO again:
  24. IF y > 9999 THEN PRINT "The year cannot be over 9999, try again.": GOTO again:
  25. again2:
  27. INPUT "                 Month (1-12): ", m
  28. IF m < 1 OR m > 12 THEN PRINT "Type a month 1-12 only.": GOTO again2:
  29. again3:
  31. INPUT "                 Day: ", k
  32. IF k > 31 OR k < 1 THEN PRINT "Days must be 1-31 only.": GOTO again3:
  33. IF y = 1752 AND m <= 9 AND d < 14 THEN PRINT "Your date is too early to calculate on the Gregorian Calendar, try again.": GOTO again:
  35.  
  36. 'Months
  37. 'The months start on March 1 so Leap Year will be the last day of the year, which is why Jan. and Feb. are actually the year before.
  38. mm = m - 2
  39. IF m = 1 THEN mm = 11: y = y - 1
  40. IF m = 2 THEN mm = 12: y = y - 1
  41.  
  42. 'Full Year.
  43. y$ = STR$(y)
  44.  
  45. 'Last 2 digits of year.
  46. yy$ = RIGHT$(y$, 2)
  47. yy = VAL(yy$)
  48.  
  49. 'Century
  50. c$ = LEFT$(y$, 3)
  51. c = VAL(c$)
  52.  
  53. 'Here is Zeller's Rule equation.
  54.  
  55. weekday = (k + INT(((13 * mm) - 1) / 5) + yy + INT(yy / 4) + INT(c / 4) - (2 * c)) MOD 7
  56.  
  57. IF weekday = 0 THEN w$ = "Sunday"
  58. IF weekday = 1 THEN w$ = "Monday"
  59. IF weekday = 2 THEN w$ = "Tuesday"
  60. IF weekday = 3 THEN w$ = "Wednesday"
  61. IF weekday = 4 THEN w$ = "Thursday"
  62. IF weekday = 5 THEN w$ = "Friday"
  63. IF weekday = 6 THEN w$ = "Saturday"
  64.  
  66.  
  67. PRINT "                 Your Day Of The Week Is: "; w$
  69. INPUT "                 Again (Y/N)"; ag$
  70. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN GOTO start:
  72.  
Title: Re: Weekday Finder
Post by: SierraKen on August 02, 2019, 02:03:31 am
Well, I changed my mind and added a way for the program to detect bad dates for every month and also Leap Years. :) Wasn't too hard. :)
So here is a much better version. :)

I want to say thank you to everyone who is always patient with me on my programs. I will try to be more patient with myself when I program and give myself more time to think over things and program more with newer ideas, before I post as much as I've done. I know it's a bit much, etc.

(Don't use this code, use one of the others that people have posted instead, there's a problem with this.)

Code: QB64: [Select]
  1. 'This program uses Zeller's Rule equation to determine what day of the week for any given day on the Gregorian Calander, which is after Sept. 14, 1752.
  2. 'I don't know how the equation works, but I decided to try it and it works great!
  3. 'This program was made on August 1, 2019... which was a Thursday. :)
  4. 'Feel free to use this code in your own programs.
  5. 'Made by Ken G.
  6. 'Freeware only.
  7.  
  8. _TITLE "Day of the Week Finder"
  9. start:
  12. PRINT "                             Day of the Week Finder"
  14. PRINT "                                   By Ken G."
  16. PRINT "                 After September 14, 1752 because that's"
  17. PRINT "                 when the Gregorian Calendar started."
  18. PRINT "                 The highest date for this program"
  19. PRINT "                 is December 31, 9999."
  20. again:
  22. INPUT "                 Year: ", y
  23. IF y < 1752 THEN PRINT "Year must be after 1751.": GOTO again:
  24. IF y > 9999 THEN PRINT "The year cannot be over 9999, try again.": GOTO again:
  25. IF y <> INT(y) THEN PRINT "Cannot use decimals, try again.": GOTO again:
  26. again2:
  28. INPUT "                 Month (1-12): ", m
  29. IF m < 1 OR m > 12 THEN PRINT "Type a month 1-12 only.": GOTO again2:
  30. IF m <> INT(m) THEN PRINT "Cannot use decimals, try again.": GOTO again2:
  31. again3:
  33. INPUT "                 Day: ", k
  34. IF k > 31 OR k < 1 THEN PRINT "Days must be 1-31 only.": GOTO again3:
  35. IF k <> INT(k) THEN PRINT "Cannot use decimals, try again.": GOTO again3:
  36. IF y = 1752 AND m <= 9 AND d < 14 THEN PRINT "Your date is too early to calculate on the Gregorian Calendar, try again.": GOTO again:
  37.  
  38. IF m = 1 AND k > 31 THEN PRINT "January has 31 days, try again.": GOTO again3:
  39. IF m = 2 THEN
  40.     IF y / 400 = INT(y / 400) THEN leap = 1: GOTO nexone:
  41.     IF y / 4 = INT(y / 4) THEN leap = 1
  42.     IF y / 100 = INT(y / 100) THEN leap = 0
  43.     nexone:
  44.     IF leap = 1 AND k > 29 THEN PRINT "This is a Leap Year, so the last day of Feb. is the 29th, try again.": GOTO again3:
  45.     IF leap = 0 AND k > 28 THEN PRINT "This is not a Leap Year, so the last day of Feb. is the 28th, try again.": GOTO again3:
  47. IF m = 3 AND k > 31 THEN PRINT "March has 31 days, try again.": GOTO again3:
  48. IF m = 4 AND k > 30 THEN PRINT "April only has 30 days, try again.": GOTO again3:
  49. IF m = 5 AND k > 31 THEN PRINT "May has 31 days, try again.": GOTO again3:
  50. IF m = 6 AND k > 30 THEN PRINT "June only has 30 days, try again.": GOTO again3:
  51. IF m = 7 AND k > 31 THEN PRINT "July has 31 days, try again.": GOTO again3:
  52. IF m = 8 AND k > 31 THEN PRINT "August has 31 days, try again.": GOTO again3:
  53. IF m = 9 AND k > 30 THEN PRINT "September only has 30 days, try again.": GOTO again3:
  54. IF m = 10 AND k > 31 THEN PRINT "October has 31 days, try again.": GOTO again3:
  55. IF m = 11 AND k > 30 THEN PRINT "November only has 30 days, try again.": GOTO again3:
  56. IF m = 12 AND k > 31 THEN PRINT "December has 31 days, try again.": GOTO again3:
  57.  
  59.  
  60. 'Months
  61. 'The months start on March 1 so Leap Year will be the last day of the year, which is why Jan. and Feb. are actually the year before.
  62. mm = m - 2
  63. IF m = 1 THEN mm = 11: y = y - 1
  64. IF m = 2 THEN mm = 12: y = y - 1
  65.  
  66. 'Full Year.
  67. y$ = STR$(y)
  68.  
  69. 'Last 2 digits of year.
  70. yy$ = RIGHT$(y$, 2)
  71. yy = VAL(yy$)
  72.  
  73. 'Century
  74. c$ = LEFT$(y$, 3)
  75. c = VAL(c$)
  76.  
  77. 'Here is Zeller's Rule equation.
  78.  
  79. weekday = (k + INT(((13 * mm) - 1) / 5) + yy + INT(yy / 4) + INT(c / 4) - (2 * c)) MOD 7
  80.  
  81. IF weekday = 0 THEN w$ = "Sunday"
  82. IF weekday = 1 THEN w$ = "Monday"
  83. IF weekday = 2 THEN w$ = "Tuesday"
  84. IF weekday = 3 THEN w$ = "Wednesday"
  85. IF weekday = 4 THEN w$ = "Thursday"
  86. IF weekday = 5 THEN w$ = "Friday"
  87. IF weekday = 6 THEN w$ = "Saturday"
  88.  
  90.  
  91. PRINT "                 Your Day Of The Week Is: "; w$
  93. INPUT "                 Again (Y/N)"; ag$
  94. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN GOTO start:
  96.  
  97.  

Title: Re: Weekday Finder
Post by: SierraKen on August 02, 2019, 02:21:55 am
I found a bad error in the last ones. I forgot to check the 1752 year before the date the Gregorian Calendar started, so I fixed it.

So here is this one:
 
(Don't use this code, there's a problem with it. Use one of the others instead that people have posted.)

Code: QB64: [Select]
  1. 'This program uses Zeller's Rule equation to determine what day of the week for any given day on the Gregorian Calander, which is after Sept. 14, 1752.
  2. 'I don't know how the equation works, but I decided to try it and it works great!
  3. 'This program was made on August 1, 2019... which was a Thursday. :)
  4. 'Feel free to use this code in your own programs.
  5. 'Made by Ken G.
  6. 'Freeware only.
  7.  
  8. _TITLE "Day of the Week Finder"
  9. start:
  12. PRINT "                             Day of the Week Finder"
  14. PRINT "                                   By Ken G."
  16. PRINT "                 After September 13, 1752 because that's"
  17. PRINT "                 when the Gregorian Calendar started."
  18. PRINT "                 The highest date for this program"
  19. PRINT "                 is December 31, 9999."
  20. again:
  22. INPUT "                 Year: ", y
  23. IF y < 1752 THEN PRINT "Year must be after 1751.": GOTO again:
  24. IF y > 9999 THEN PRINT "The year cannot be over 9999, try again.": GOTO again:
  25. IF y <> INT(y) THEN PRINT "Cannot use decimals, try again.": GOTO again:
  26. again2:
  28. INPUT "                 Month (1-12): ", m
  29. IF m < 1 OR m > 12 THEN PRINT "Type a month 1-12 only.": GOTO again2:
  30. IF m <> INT(m) THEN PRINT "Cannot use decimals, try again.": GOTO again2:
  31. again3:
  33. INPUT "                 Day: ", k
  34. IF k > 31 OR k < 1 THEN PRINT "Days must be 1-31 only.": GOTO again3:
  35. IF k <> INT(k) THEN PRINT "Cannot use decimals, try again.": GOTO again3:
  36. IF y = 1752 AND m = 9 AND k < 14 THEN PRINT "Your date is too early to calculate on the Gregorian Calendar, try again.": GOTO again:
  37. IF y = 1752 AND m < 9 THEN PRINT "Your date is too early to calculate on the Gregorian Calendar, try again.": GOTO again:
  38.  
  39. IF m = 1 AND k > 31 THEN PRINT "January has 31 days, try again.": GOTO again3:
  40. IF m = 2 THEN
  41.     IF y / 400 = INT(y / 400) THEN leap = 1: GOTO nexone:
  42.     IF y / 4 = INT(y / 4) THEN leap = 1
  43.     IF y / 100 = INT(y / 100) THEN leap = 0
  44.     nexone:
  45.     IF leap = 1 AND k > 29 THEN PRINT "This is a Leap Year, so the last day of Feb. is the 29th, try again.": GOTO again3:
  46.     IF leap = 0 AND k > 28 THEN PRINT "This is not a Leap Year, so the last day of Feb. is the 28th, try again.": GOTO again3:
  48. IF m = 3 AND k > 31 THEN PRINT "March has 31 days, try again.": GOTO again3:
  49. IF m = 4 AND k > 30 THEN PRINT "April only has 30 days, try again.": GOTO again3:
  50. IF m = 5 AND k > 31 THEN PRINT "May has 31 days, try again.": GOTO again3:
  51. IF m = 6 AND k > 30 THEN PRINT "June only has 30 days, try again.": GOTO again3:
  52. IF m = 7 AND k > 31 THEN PRINT "July has 31 days, try again.": GOTO again3:
  53. IF m = 8 AND k > 31 THEN PRINT "August has 31 days, try again.": GOTO again3:
  54. IF m = 9 AND k > 30 THEN PRINT "September only has 30 days, try again.": GOTO again3:
  55. IF m = 10 AND k > 31 THEN PRINT "October has 31 days, try again.": GOTO again3:
  56. IF m = 11 AND k > 30 THEN PRINT "November only has 30 days, try again.": GOTO again3:
  57. IF m = 12 AND k > 31 THEN PRINT "December has 31 days, try again.": GOTO again3:
  58.  
  60.  
  61. 'Months
  62. 'The months start on March 1 so Leap Year will be the last day of the year, which is why Jan. and Feb. are actually the year before.
  63. mm = m - 2
  64. IF m = 1 THEN mm = 11: y = y - 1
  65. IF m = 2 THEN mm = 12: y = y - 1
  66.  
  67. 'Full Year.
  68. y$ = STR$(y)
  69.  
  70. 'Last 2 digits of year.
  71. yy$ = RIGHT$(y$, 2)
  72. yy = VAL(yy$)
  73.  
  74. 'Century
  75. c$ = LEFT$(y$, 3)
  76. c = VAL(c$)
  77.  
  78. 'Here is Zeller's Rule equation.
  79.  
  80. weekday = (k + INT(((13 * mm) - 1) / 5) + yy + INT(yy / 4) + INT(c / 4) - (2 * c)) MOD 7
  81.  
  82. IF weekday = 0 THEN w$ = "Sunday"
  83. IF weekday = 1 THEN w$ = "Monday"
  84. IF weekday = 2 THEN w$ = "Tuesday"
  85. IF weekday = 3 THEN w$ = "Wednesday"
  86. IF weekday = 4 THEN w$ = "Thursday"
  87. IF weekday = 5 THEN w$ = "Friday"
  88. IF weekday = 6 THEN w$ = "Saturday"
  89.  
  91.  
  92. PRINT "                 Your Day Of The Week Is: "; w$
  94. INPUT "                 Again (Y/N)"; ag$
  95. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN GOTO start:
  97.  
  98.  

Title: Re: Weekday Finder
Post by: SierraKen on August 02, 2019, 02:22:53 am
Quote from: SierraKen on August 02, 2019, 02:03:31 am
Well, I changed my mind and added a way for the program to detect bad dates for every month and also Leap Years. :) Wasn't too hard. :)
So here is a much better version. :)

I want to say thank you to everyone who is always patient with me on my programs. I will try to be more patient with myself when I program and give myself more time to think over things and program more with newer ideas, before I post as much as I've done. I know it's a bit much, etc.

(Note: There's a bad error on this one for the year 1752, so please scroll to the next one, thank you.)

Code: QB64: [Select]
  1. 'This program uses Zeller's Rule equation to determine what day of the week for any given day on the Gregorian Calander, which is after Sept. 14, 1752.
  2. 'I don't know how the equation works, but I decided to try it and it works great!
  3. 'This program was made on August 1, 2019... which was a Thursday. :)
  4. 'Feel free to use this code in your own programs.
  5. 'Made by Ken G.
  6. 'Freeware only.
  7.  
  8. _TITLE "Day of the Week Finder"
  9. start:
  12. PRINT "                             Day of the Week Finder"
  14. PRINT "                                   By Ken G."
  16. PRINT "                 After September 14, 1752 because that's"
  17. PRINT "                 when the Gregorian Calendar started."
  18. PRINT "                 The highest date for this program"
  19. PRINT "                 is December 31, 9999."
  20. again:
  22. INPUT "                 Year: ", y
  23. IF y < 1752 THEN PRINT "Year must be after 1751.": GOTO again:
  24. IF y > 9999 THEN PRINT "The year cannot be over 9999, try again.": GOTO again:
  25. IF y <> INT(y) THEN PRINT "Cannot use decimals, try again.": GOTO again:
  26. again2:
  28. INPUT "                 Month (1-12): ", m
  29. IF m < 1 OR m > 12 THEN PRINT "Type a month 1-12 only.": GOTO again2:
  30. IF m <> INT(m) THEN PRINT "Cannot use decimals, try again.": GOTO again2:
  31. again3:
  33. INPUT "                 Day: ", k
  34. IF k > 31 OR k < 1 THEN PRINT "Days must be 1-31 only.": GOTO again3:
  35. IF k <> INT(k) THEN PRINT "Cannot use decimals, try again.": GOTO again3:
  36. IF y = 1752 AND m <= 9 AND d < 14 THEN PRINT "Your date is too early to calculate on the Gregorian Calendar, try again.": GOTO again:
  37.  
  38. IF m = 1 AND k > 31 THEN PRINT "January has 31 days, try again.": GOTO again3:
  39. IF m = 2 THEN
  40.     IF y / 400 = INT(y / 400) THEN leap = 1: GOTO nexone:
  41.     IF y / 4 = INT(y / 4) THEN leap = 1
  42.     IF y / 100 = INT(y / 100) THEN leap = 0
  43.     nexone:
  44.     IF leap = 1 AND k > 29 THEN PRINT "This is a Leap Year, so the last day of Feb. is the 29th, try again.": GOTO again3:
  45.     IF leap = 0 AND k > 28 THEN PRINT "This is not a Leap Year, so the last day of Feb. is the 28th, try again.": GOTO again3:
  47. IF m = 3 AND k > 31 THEN PRINT "March has 31 days, try again.": GOTO again3:
  48. IF m = 4 AND k > 30 THEN PRINT "April only has 30 days, try again.": GOTO again3:
  49. IF m = 5 AND k > 31 THEN PRINT "May has 31 days, try again.": GOTO again3:
  50. IF m = 6 AND k > 30 THEN PRINT "June only has 30 days, try again.": GOTO again3:
  51. IF m = 7 AND k > 31 THEN PRINT "July has 31 days, try again.": GOTO again3:
  52. IF m = 8 AND k > 31 THEN PRINT "August has 31 days, try again.": GOTO again3:
  53. IF m = 9 AND k > 30 THEN PRINT "September only has 30 days, try again.": GOTO again3:
  54. IF m = 10 AND k > 31 THEN PRINT "October has 31 days, try again.": GOTO again3:
  55. IF m = 11 AND k > 30 THEN PRINT "November only has 30 days, try again.": GOTO again3:
  56. IF m = 12 AND k > 31 THEN PRINT "December has 31 days, try again.": GOTO again3:
  57.  
  59.  
  60. 'Months
  61. 'The months start on March 1 so Leap Year will be the last day of the year, which is why Jan. and Feb. are actually the year before.
  62. mm = m - 2
  63. IF m = 1 THEN mm = 11: y = y - 1
  64. IF m = 2 THEN mm = 12: y = y - 1
  65.  
  66. 'Full Year.
  67. y$ = STR$(y)
  68.  
  69. 'Last 2 digits of year.
  70. yy$ = RIGHT$(y$, 2)
  71. yy = VAL(yy$)
  72.  
  73. 'Century
  74. c$ = LEFT$(y$, 3)
  75. c = VAL(c$)
  76.  
  77. 'Here is Zeller's Rule equation.
  78.  
  79. weekday = (k + INT(((13 * mm) - 1) / 5) + yy + INT(yy / 4) + INT(c / 4) - (2 * c)) MOD 7
  80.  
  81. IF weekday = 0 THEN w$ = "Sunday"
  82. IF weekday = 1 THEN w$ = "Monday"
  83. IF weekday = 2 THEN w$ = "Tuesday"
  84. IF weekday = 3 THEN w$ = "Wednesday"
  85. IF weekday = 4 THEN w$ = "Thursday"
  86. IF weekday = 5 THEN w$ = "Friday"
  87. IF weekday = 6 THEN w$ = "Saturday"
  88.  
  90.  
  91. PRINT "                 Your Day Of The Week Is: "; w$
  93. INPUT "                 Again (Y/N)"; ag$
  94. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN GOTO start:
  96.  
  97.  
Title: Re: Weekday Finder
Post by: Qwerkey on August 02, 2019, 03:49:58 am
Quote from: bplus on August 02, 2019, 12:17:35 am

Could of saved a step by:


bplus!!! This is the most egregious grammatical error (usually perpetrated by youngsters).

"Could have saved a step by:"

which has short form "Could've saved a step by:"

and which therefore sounds as if there is an "of" in the sentence.  But there most definitely is not.


Title: Re: Weekday Finder
Post by: euklides on August 02, 2019, 04:49:11 am
This my version of the weekday finder (an gives julian date too, so you can also calculate number of days between two dates )...

Works for dates after october,15, 1582

I use it since... a lot of years !!!


Code: Text: [Select]
  1. ' DayAndJulian  by euklides
  2. Datum: INPUT "DATE in form MMDDYYYY or nothing to stop"; k$
  3. IF LEN(k$) <> 8 THEN END
  4. M# = VAL(LEFT$(k$, 2)): J# = VAL(MID$(k$, 3, 2)): A# = VAL(RIGHT$(k$, 4))
  5. IF J# < 1 OR J# > 31 OR M# < 1 OR M# > 12 THEN PRINT " Date not correct":goto Datum
  6. GOSUB GJ
  7. PRINT jour$; M#; "/"; J#; "/"; A#; "/ julian-->"; jj#
  8. PRINT "----------------"
  9. GOTO Datum
  10.  
  11.  
  12. GJ: XXJ# = J#: XXA# = A#: XXM# = M#: J# = J# + .5: C# = 1720994.5#: Y# = INT(A# / 100) - 6: IF M# < 3 THEN A# = A# - 1
  13. M# = M# + 1: IF M# < 4 THEN M# = M# + 12
  14. IF A# > 0 THEN IF M# < 3 THEN A# = A# - 1
  15. jj# = INT(365.25 * A#) + INT(30.6001 * M#) + J# + C# - Y#
  16. IF XXA# > 1999 THEN jj# = jj# + 1
  17. D# = jj# - 2299162#: D# = jj# / 7 - INT(jj# / 7): D# = INT((D# + .01) * 7)
  18. jour$ = "Monday   Tuesday  WednesdayThursday Friday   Saturday Sunday   "
  19. jour$ = RTRIM$(MID$(jour$, D# * 9 + 1, 9)): J# = XXJ#: M# = XXM#: A# = XXA#: RETURN
  20.  
Title: Re: Weekday Finder
Post by: Qwerkey on August 02, 2019, 05:06:39 am
Do any of our (presumably) older members remember making a rotating disc version of the Day Calculator?  I did (made out of breakfast cereal packets).  Ah!  Those Were The Days!
Title: Re: Weekday Finder
Post by: Dimster on August 02, 2019, 09:46:11 am
There is a simple formula for calculating a Leap Year.

IF FullYears MOD 4 = 0 THEN Days = 29

As a Leap Year is every 4 years, if you divide the year by 4 and it comes out as an integer then you will have one extra day in Feb. ie 2019/4 = 504.75, 2020/4= 505, 2021/4 = 505.25  so the year 2020 is a leap year.
Title: Re: Weekday Finder
Post by: SierraKen on August 02, 2019, 12:32:53 pm
That's a neat way to do it euklides!

Dimster, usually yes. But also every 100 years, like 1800 and 1900, it is NOT a Leap Year (not sure why but it's true). BUT if a year is divisible by 400 then it IS a Leap Year, which is why we had a Leap Year in 2000. My Birthday is February 29, so I think all of this is awesome. :)
Title: Re: Weekday Finder
Post by: SierraKen on August 04, 2019, 01:53:11 am
Well, lol, this program turned out to be trash most likely. I was working on a calendar maker all day on Saturday and the evening, almost got it done, when I noticed that something was wrong with May of the year 2020. It kept messing up on me a lot. So after many hours of trying to fix it, I wondered to myself if it was that old equation that this Weekday Finder uses, and yes it is. Both programs can't calculate a month that falls onto 6 weeks, for example, May 2020 starts on a Friday and ends on a Sunday, so it's 6 weeks needed and it just can't handle that. I don't know what the professionals use for their equations to find the days of the week, but I'm giving up on this for now. So, if you have this Weekly Finder, please delete it with my apologies. I guess that serves me right for using stuff I find online that I don't know 100% of.
Title: Re: Weekday Finder
Post by: SMcNeill on August 04, 2019, 02:05:26 am
Code: QB64: [Select]
  1. FUNCTION GetDay$ (mm, dd, yyyy) 'use 4 digit year
  2.     'From Zeller's congruence: https://en.wikipedia.org/wiki/Zeller%27s_congruence
  3.     IF mm < 3 THEN mm = mm + 12: yyyy = yyyy - 1
  4.     century = yyyy MOD 100
  5.     zerocentury = yyyy \ 100
  6.     result = (dd + INT(13 * (mm + 1) / 5) + century + INT(century / 4) + INT(zerocentury / 4) + 5 * zerocentury) MOD 7
  7.     SELECT CASE result
  8.         CASE 0: Day$ = "Saturday"
  9.         CASE 1: Day$ = "Sunday"
  10.         CASE 2: Day$ = "Monday"
  11.         CASE 3: Day$ = "Tuesday"
  12.         CASE 4: Day$ = "Wednesday"
  13.         CASE 5: Day$ = "Thursday"
  14.         CASE 6: Day$ = "Friday"
  15.     END SELECT
Title: Re: Weekday Finder
Post by: euklides on August 04, 2019, 04:12:10 am
My program based on the Julian calendar seems to be better, I think ?
Title: Re: Weekday Finder
Post by: bplus on August 04, 2019, 08:40:53 am

Quote from: SierraKen on August 04, 2019, 01:53:11 am
Well, lol, this program turned out to be trash most likely. I was working on a calendar maker all day on Saturday and the evening, almost got it done, when I noticed that something was wrong with May of the year 2020. It kept messing up on me a lot. So after many hours of trying to fix it, I wondered to myself if it was that old equation that this Weekday Finder uses, and yes it is. Both programs can't calculate a month that falls onto 6 weeks, for example, May 2020 starts on a Friday and ends on a Sunday, so it's 6 weeks needed and it just can't handle that. I don't know what the professionals use for their equations to find the days of the week, but I'm giving up on this for now. So, if you have this Weekly Finder, please delete it with my apologies. I guess that serves me right for using stuff I find online that I don't know 100% of.


(Dang! 2 replies I didn't see since this post above and my reply below.)

I don't think the problem you describe is the fault of the formula, it is giving you the proper weekday name isn't it? (I haven't checked.)

Months that span over 6 weeks 4 full + 2 partial are always trouble for calendar makers, who wants to waste all that paper space for 1 or 2 days on each side of the 4 full weeks, yuck.

Here is my attempt and Pete's old code:
https://www.qb64.org/forum/index.php?topic=855.msg100586#msg100586
Title: Re: Weekday Finder
Post by: bplus on August 04, 2019, 09:12:19 am
Quote from: SMcNeill on August 04, 2019, 02:05:26 am
Code: QB64: [Select]
  1. FUNCTION GetDay$ (mm, dd, yyyy) 'use 4 digit year
  2.     'From Zeller's congruence: https://en.wikipedia.org/wiki/Zeller%27s_congruence
  3.     IF mm < 3 THEN mm = mm + 12: yyyy = yyyy - 1
  4.     century = yyyy MOD 100
  5.     zerocentury = yyyy \ 100
  6.     result = (dd + INT(13 * (mm + 1) / 5) + century + INT(century / 4) + INT(zerocentury / 4) + 5 * zerocentury) MOD 7
  7.     SELECT CASE result
  8.         CASE 0: Day$ = "Saturday"
  9.         CASE 1: Day$ = "Sunday"
  10.         CASE 2: Day$ = "Monday"
  11.         CASE 3: Day$ = "Tuesday"
  12.         CASE 4: Day$ = "Wednesday"
  13.         CASE 5: Day$ = "Thursday"
  14.         CASE 6: Day$ = "Friday"
  15.     END SELECT

OK, fixed
Code: QB64: [Select]
  1. _TITLE "GetDay$ function test."
  3.     PRINT "(don't forget 0's, just enter to quit)"
  4.     INPUT "  Enter yyyy-mm-dd date format: "; yymmdd$
  5.     yyyy = VAL(MID$(yymmdd$, 1, 4))
  6.     mm = VAL(MID$(yymmdd$, 6, 2))
  7.     dd = VAL(MID$(yymmdd$, 9, 2))
  8.     PRINT GetDay$(mm, dd, yyyy)
  9.     PRINT
  10. LOOP UNTIL yymmdd$ = ""
  11.  
  12. 'Steve (SAM) function fix for Ken
  13. FUNCTION GetDay$ (mm, dd, yyyy) 'use 4 digit year
  14.     'From Zeller's congruence: https://en.wikipedia.org/wiki/Zeller%27s_congruence
  15.     IF mm < 3 THEN mm = mm + 12: yyyy = yyyy - 1
  16.     century = yyyy MOD 100
  17.     zerocentury = yyyy \ 100
  18.     result = (dd + INT(13 * (mm + 1) / 5) + century + INT(century / 4) + INT(zerocentury / 4) + 5 * zerocentury) MOD 7
  19.     SELECT CASE result
  20.         CASE 0: Day$ = "Saturday"
  21.         CASE 1: Day$ = "Sunday"
  22.         CASE 2: Day$ = "Monday"
  23.         CASE 3: Day$ = "Tuesday"
  24.         CASE 4: Day$ = "Wednesday"
  25.         CASE 5: Day$ = "Thursday"
  26.         CASE 6: Day$ = "Friday"
  27.     END SELECT
  28.     GetDay$ = Day$
  30.  
Title: Re: Weekday Finder
Post by: bplus on August 04, 2019, 10:24:03 am
Checking KenDay$ and GetDay$ for next 10 Christmas dates, yeah Ken you are a bit off:
Code: QB64: [Select]
  1. _TITLE "Ken Day test" 'B+ started 2019-08-04 Sunday
  2. SCREEN _NEWIMAGE(400, 760, 32)
  3. FOR yyyy = 2019 TO 2029
  4.     'PRINT "(don't forget 0's, just enter to quit)"
  5.     'INPUT "  Enter yyyy-mm-dd date format: "; yymmdd$
  6.     'yyyy = VAL(MID$(yymmdd$, 1, 4))
  7.     'mm = VAL(MID$(yymmdd$, 6, 2))
  8.     'dd = VAL(MID$(yymmdd$, 9, 2))
  9.     PRINT "Christmas"; yyyy
  10.     PRINT "  Ken day = "; kenDay$(12, 25, yyyy)
  11.     PRINT "Steve day = "; GetDay$(12, 25, yyyy)
  12.     PRINT
  14.  
  15. FUNCTION kenDay$ (yyyy, mm, dd)
  16.  
  17.     'Months
  18.     'The months start on March 1 so Leap Year will be the last day of the year, which is why Jan. and Feb. are actually the year before.
  19.     mm = mm - 2  ' < edit: still off
  20.     IF mm = 1 THEN mm = 11: yyyy = yyyy - 1
  21.     IF mm = 2 THEN mm = 12: yyyy = yyyy - 1
  22.  
  23.     'Full Year.
  24.     y$ = STR$(yyyy)
  25.  
  26.     'Last 2 digits of year.
  27.     yy$ = RIGHT$(y$, 2)
  28.     yy = VAL(yy$)
  29.  
  30.     'Century
  31.     c$ = LEFT$(y$, 3)
  32.     c = VAL(c$)
  33.  
  34.     'Here is Zeller's Rule equation.
  35.  
  36.     weekday = (dd + INT(((13 * mm) - 1) / 5) + yy + INT(yy / 4) + INT(c / 4) - (2 * c)) MOD 7
  37.  
  38.     IF weekday = 0 THEN w$ = "Sunday"
  39.     IF weekday = 1 THEN w$ = "Monday"
  40.     IF weekday = 2 THEN w$ = "Tuesday"
  41.     IF weekday = 3 THEN w$ = "Wednesday"
  42.     IF weekday = 4 THEN w$ = "Thursday"
  43.     IF weekday = 5 THEN w$ = "Friday"
  44.     IF weekday = 6 THEN w$ = "Saturday"
  45.     kenDay$ = w$
  47.  
  48. 'Steve (SAM) function fix for Ken
  49. FUNCTION GetDay$ (mm, dd, yyyy) 'use 4 digit year
  50.     'From Zeller's congruence: https://en.wikipedia.org/wiki/Zeller%27s_congruence
  51.     IF mm < 3 THEN mm = mm + 12: yyyy = yyyy - 1
  52.     century = yyyy MOD 100
  53.     zerocentury = yyyy \ 100
  54.     result = (dd + INT(13 * (mm + 1) / 5) + century + INT(century / 4) + INT(zerocentury / 4) + 5 * zerocentury) MOD 7
  55.     SELECT CASE result
  56.         CASE 0: Day$ = "Saturday"
  57.         CASE 1: Day$ = "Sunday"
  58.         CASE 2: Day$ = "Monday"
  59.         CASE 3: Day$ = "Tuesday"
  60.         CASE 4: Day$ = "Wednesday"
  61.         CASE 5: Day$ = "Thursday"
  62.         CASE 6: Day$ = "Friday"
  63.     END SELECT
  64.     GetDay$ = Day$
  66.  
  67.  

EDIT: fix line that should of (hee hee) read (mm = mm - 2)

Update: Big screw up with misaligned arguments when testing KenDay$, my apologies. See new test below...
Title: Re: Weekday Finder
Post by: SierraKen on August 04, 2019, 11:28:49 am
Wow so much help and so much to choose from! LOL Plus after I turned off my computer last night I remembered that I should have posted that I will try the one euklides posted. And since I have never used a Function before, I will try both Euk's and B+'s and see which one will work easiest on my program later today. Thanks everyone :))) The one euklides posted works fine for May 2020, I did a quick test on it. Will try B+'s soon..... ahh I see B+ is using the Function as well.
Title: Re: Weekday Finder
Post by: SierraKen on August 04, 2019, 11:58:00 am
Since B+ spent so much time helping me, I'll use his and SmMcNeill's, and try my hands at a Function. :)
Title: Re: Weekday Finder
Post by: bplus on August 04, 2019, 12:22:40 pm
Dang it, I see another screw up I did with testing Ken's function, misaligned arguments, blah! :(

Be right back!

Big apologies to Ken!

Ken, your days for Christmas for 10 years are matching up with Steve's, I screwed up the test by misaligning the arguments to the parameters ie I used the same order of month, day, year as I used in Steve's but I wrote the translation of your code into the Function with y, m, d order.

Here is revised test:
Code: QB64: [Select]
  1. _TITLE "Ken Day test" 'B+ started 2019-08-04 Sunday
  2. SCREEN _NEWIMAGE(400, 760, 32)
  3. FOR yyyy = 2019 TO 2029
  4.     'PRINT "(don't forget 0's, just enter to quit)"
  5.     'INPUT "  Enter yyyy-mm-dd date format: "; yymmdd$
  6.     'yyyy = VAL(MID$(yymmdd$, 1, 4))
  7.     'mm = VAL(MID$(yymmdd$, 6, 2))
  8.     'dd = VAL(MID$(yymmdd$, 9, 2))
  9.     PRINT "Christmas"; yyyy
  10.     PRINT "  Ken day = "; kenDay$(12, 25, yyyy)
  11.     PRINT "Steve day = "; GetDay$(12, 25, yyyy)
  12.     PRINT
  14.  
  15. FUNCTION kenDay$ (m AS INTEGER, d AS INTEGER, y AS INTEGER) ' now same order as GetDay$ function
  16.     mm = m 'get copies so don't change incoming when out going
  17.     dd = d
  18.     yyyy = y
  19.     'Months
  20.     'The months start on March 1 so Leap Year will be the last day of the year, which is why Jan. and Feb. are actually the year before.
  21.     mm = mm - 2 ' < edit: still off
  22.     IF mm = 1 THEN mm = 11: yyyy = yyyy - 1
  23.     IF mm = 2 THEN mm = 12: yyyy = yyyy - 1
  24.  
  25.     'Full Year.
  26.     y$ = STR$(yyyy)
  27.  
  28.     'Last 2 digits of year.
  29.     yy$ = RIGHT$(y$, 2)
  30.     yy = VAL(yy$)
  31.  
  32.     'Century
  33.     c$ = LEFT$(y$, 3)
  34.     c = VAL(c$)
  35.  
  36.     'Here is Zeller's Rule equation.
  37.  
  38.     weekday = (dd + INT(((13 * mm) - 1) / 5) + yy + INT(yy / 4) + INT(c / 4) - (2 * c)) MOD 7
  39.  
  40.     IF weekday = 0 THEN w$ = "Sunday"
  41.     IF weekday = 1 THEN w$ = "Monday"
  42.     IF weekday = 2 THEN w$ = "Tuesday"
  43.     IF weekday = 3 THEN w$ = "Wednesday"
  44.     IF weekday = 4 THEN w$ = "Thursday"
  45.     IF weekday = 5 THEN w$ = "Friday"
  46.     IF weekday = 6 THEN w$ = "Saturday"
  47.     kenDay$ = w$
  49.  
  50. 'Steve (SAM) function fix for Ken
  51. FUNCTION GetDay$ (mm, dd, yyyy) 'use 4 digit year
  52.     'From Zeller's congruence: https://en.wikipedia.org/wiki/Zeller%27s_congruence
  53.     IF mm < 3 THEN mm = mm + 12: yyyy = yyyy - 1
  54.     century = yyyy MOD 100
  55.     zerocentury = yyyy \ 100
  56.     result = (dd + INT(13 * (mm + 1) / 5) + century + INT(century / 4) + INT(zerocentury / 4) + 5 * zerocentury) MOD 7
  57.     SELECT CASE result
  58.         CASE 0: Day$ = "Saturday"
  59.         CASE 1: Day$ = "Sunday"
  60.         CASE 2: Day$ = "Monday"
  61.         CASE 3: Day$ = "Tuesday"
  62.         CASE 4: Day$ = "Wednesday"
  63.         CASE 5: Day$ = "Thursday"
  64.         CASE 6: Day$ = "Friday"
  65.     END SELECT
  66.     GetDay$ = Day$
  68.  
Title: Re: Weekday Finder
Post by: SierraKen on August 04, 2019, 12:23:36 pm
Awesome I fixed it!!! Thanks guys!!! Instead of a Function I turned it into a SUB because all I needed was variables and strings. I'm almost done now with my Calendar Maker. I just have to adjust some things first, hopefully will be done today and I'll make a new forum topic for it. It will have all U.S. Federal Holidays as well, which I already added. Plus it will give the user the ability to save it as a JPG and also print it on the printer. The funny thing is, I'm still getting used to the printer and I accidentally (again) printed a whole sheet of black. lol So thankfully QB64 has the ability to save the screen and that's what I'm going to do, and then print it after loading the JPG. Oh, and it only makes 1 month at a time.
Title: Re: Weekday Finder
Post by: SierraKen on August 04, 2019, 12:26:35 pm
Oh Wow B+... I'll have to see it later on, I have to get going for a few hours. I might have fixed it myself, I messed around with it a little bit to make the SUB and also use Y instead of YYYY and weekday instead of that other one you had for each weekday number. See you later today, thanks again for the help!
Title: Re: Weekday Finder
Post by: SierraKen on August 04, 2019, 12:28:35 pm
Oh, and since you are probably curious, this is what I have so far for the Calendar Maker... it's VERY VERY VERY rough so far, and NOT finished, but getting closer. :)

Code: QB64: [Select]
  1.  
  2. 'Something is wrong with weekday variable, it goes into the negative when 6 "weeks" are needed on the loop.
  3.  
  4.  
  5. _TITLE "Calendar Maker"
  6. start:
  7. dd = 0
  8. leap = 0
  9. SCREEN _NEWIMAGE(800, 600, 32)
  11. PRINT "                       Monthly Calendar Maker"
  13. PRINT "                           By Ken G."
  15. PRINT "This program will make a calendar for the year and month you want."
  16. PRINT "It will also name the U.S. Federal Holidays on their days."
  18. INPUT "Type the year here: ", y
  19. again2:
  21. INPUT "Type the month here: ", m
  23. IF m < 1 OR m > 12 THEN PRINT "1-12 only, try again.": GOTO again2:
  24.  
  25. IF m = 1 THEN month$ = " January"
  26. IF m = 2 THEN month$ = "February"
  27. IF m = 3 THEN month$ = "  March"
  28. IF m = 4 THEN month$ = "  April"
  29. IF m = 5 THEN month$ = "  May"
  30. IF m = 6 THEN month$ = "  June"
  31. IF m = 7 THEN month$ = "  July"
  32. IF m = 8 THEN month$ = " August"
  33. IF m = 9 THEN month$ = "September"
  34. IF m = 10 THEN month$ = " October"
  35. IF m = 11 THEN month$ = "November"
  36. IF m = 12 THEN month$ = "December"
  37.  
  38. IF m <> 2 THEN GOTO nex:
  39. 'Calculate to see if it's a Leap Year.
  40. IF y / 400 = INT(y / 400) THEN leap = 1: GOTO more:
  41. IF y / 4 = INT(y / 4) THEN leap = 1
  42. IF y / 100 = INT(y / 100) THEN leap = 0
  43. more:
  44. IF leap = 1 THEN days = 29
  45. IF leap = 0 THEN days = 28
  46. GOTO weekday:
  47. nex:
  48. IF m = 1 THEN days = 31
  49. IF m = 3 THEN days = 31
  50. IF m = 4 THEN days = 30
  51. IF m = 5 THEN days = 31
  52. IF m = 6 THEN days = 30
  53. IF m = 7 THEN days = 31
  54. IF m = 8 THEN days = 31
  55. IF m = 9 THEN days = 30
  56. IF m = 10 THEN days = 31
  57. IF m = 11 THEN days = 30
  58. IF m = 12 THEN days = 31
  59. weekday:
  60. k = 1
  61. mm = m
  62. yy = y
  63. GetDay mm, dd, y, weekday
  64.  
  65. 'This section makes the calendar.
  66. make:
  68. LINE (0, 0)-(800, 600), _RGB32(255, 255, 255), BF
  69. COLOR _RGB(0, 0, 0), _RGB(255, 255, 255)
  70. LOCATE 1, 47: PRINT month$
  71. LOCATE 2, 48: PRINT yy
  72.  
  73. FOR x = 20 TO 780 STEP 108
  74.     LINE (x, 100)-(x, 580), _RGB32(0, 0, 0)
  76. FOR z = 100 TO 580 STEP 80
  77.     LINE (16, z)-(780, z), _RGB32(0, 0, 0)
  79.  
  80. LOCATE 5, 8: PRINT "SUNDAY"
  81. LOCATE 5, 21: PRINT "MONDAY"
  82. LOCATE 5, 34: PRINT "TUESDAY"
  83. LOCATE 5, 47: PRINT "WEDNESDAY"
  84. LOCATE 5, 60: PRINT "THURSDAY"
  85. LOCATE 5, 75: PRINT "FRIDAY"
  86. LOCATE 5, 87: PRINT "SATURDAY"
  88. w = (weekday * 13) + 8
  89. FOR week = 8 TO 59 STEP 5
  90.     FOR day = w TO 91 STEP 13
  91.         dd = dd + 1
  92.         k = dd
  93.         GetDay mm, dd, y, weekday
  94.         IF weekday < 4 THEN LOCATE week, day - 1: PRINT dd
  95.         IF weekday >= 4 THEN LOCATE week, day + 1: PRINT dd
  96.         IF m = 1 AND dd = 1 THEN LOCATE week + 2, day - 1: PRINT "New Years"
  97.         IF m = 1 AND weekday = 1 AND dd > 16 AND dd < 24 THEN LOCATE week + 4, day - 1: PRINT "MLK Jr. Day"
  98.         IF m = 2 AND weekday = 1 AND dd > 16 AND dd < 24 THEN LOCATE week + 4, day - 1: PRINT "Pres. Day"
  99.         IF m = 5 AND weekday = 1 AND dd > 24 THEN LOCATE week + 4, day - 1: PRINT "Mem. Day"
  100.         IF m = 7 AND dd = 4 THEN LOCATE week + 4, day - 1: PRINT "Independence"
  101.         IF m = 9 AND weekday = 1 AND dd < 8 THEN LOCATE week + 2, day - 1: PRINT "Labor Day"
  102.         IF m = 10 AND dd > 9 AND dd < 16 AND weekday = 1 THEN LOCATE week + 4, day - 1: PRINT "Columbus"
  103.         IF m = 11 AND dd = 11 THEN LOCATE week + 4, day - 1: PRINT "Veterans Day"
  104.         IF m = 11 AND dd > 21 AND dd < 29 AND weekday = 5 THEN LOCATE week + 4, day - 1: PRINT "Thanksgving"
  105.         IF m = 12 AND dd = 25 THEN LOCATE week + 4, day - 1: PRINT "Christmas"
  106.         IF dd = days THEN GOTO more2:
  107.     NEXT day
  108.     w = 7
  109. NEXT week
  110.  
  111.  
  112. more2:
  113. LOCATE 29, 1: INPUT "Press Enter to go back to menu.", a$
  114. GOTO start:
  115.  
  116.  
  117.  
  118.  
  119.  
  120. 'This section saves the calendar to a JPG file.
  121.  
  122. SaveImage 0, "screenshot" 'saves entire program screen as "screenshot.bmp"
  124.  
  125. weekdays:
  126. 'DO
  127. '    PRINT "(don't forget 0's, just enter to quit)"
  128. 'INPUT "  Enter yyyy-mm-dd date format: "; yymmdd$
  129. 'yyyy = VAL(MID$(yymmdd$, 1, 4))
  130. 'mm = VAL(MID$(yymmdd$, 6, 2))
  131. 'dd = VAL(MID$(yymmdd$, 9, 2))
  132. 'PRINT GetDay$(mm, dd, yyyy)
  133. 'PRINT
  134. 'LOOP UNTIL yymmdd$ = ""
  135. 'RETURN
  136.  
  137. 'Steve (SAM) function fix for Ken
  138. SUB GetDay (mm, dd, y, weekday) 'use 4 digit year
  139.     'From Zeller's congruence: https://en.wikipedia.org/wiki/Zeller%27s_congruence
  140.     IF mm < 3 THEN mm = mm + 12: y = y - 1
  141.     century = y MOD 100
  142.     zerocentury = y \ 100
  143.     weekday = (dd + INT(13 * (mm + 1) / 5) + century + INT(century / 4) + INT(zerocentury / 4) + 5 * zerocentury) MOD 7
  144.     SELECT CASE weekday
  145.         CASE 0: Day$ = "Saturday"
  146.         CASE 1: Day$ = "Sunday"
  147.         CASE 2: Day$ = "Monday"
  148.         CASE 3: Day$ = "Tuesday"
  149.         CASE 4: Day$ = "Wednesday"
  150.         CASE 5: Day$ = "Thursday"
  151.         CASE 6: Day$ = "Friday"
  152.     END SELECT
  154.  
  155.  
  156.  
  157.  
  158. SUB SaveImage (image AS LONG, filename AS STRING)
  159.     bytesperpixel& = _PIXELSIZE(image&)
  160.     IF bytesperpixel& = 0 THEN PRINT "Text modes unsupported!": END
  161.     IF bytesperpixel& = 1 THEN bpp& = 8 ELSE bpp& = 24
  162.     x& = _WIDTH(image&)
  163.     y& = _HEIGHT(image&)
  164.     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)
  165.     IF bytesperpixel& = 1 THEN
  166.         FOR c& = 0 TO 255 ' read BGR color settings from JPG image + 1 byte spacer(CHR$(0))
  167.             cv& = _PALETTECOLOR(c&, image&) ' color attribute to read.
  168.             b$ = b$ + CHR$(_BLUE32(cv&)) + CHR$(_GREEN32(cv&)) + CHR$(_RED32(cv&)) + CHR$(0) 'spacer byte
  169.         NEXT
  170.     END IF
  171.     MID$(b$, 11, 4) = MKL$(LEN(b$)) ' image pixel data offset(BMP header)
  172.     lastsource& = _SOURCE
  173.     _SOURCE image&
  174.     IF ((x& * 3) MOD 4) THEN padder$ = STRING$(4 - ((x& * 3) MOD 4), 0)
  175.     FOR py& = y& - 1 TO 0 STEP -1 ' read JPG image pixel color data
  176.         r$ = ""
  177.         FOR px& = 0 TO x& - 1
  178.             c& = POINT(px&, py&) 'POINT 32 bit values are large LONG values
  179.             IF bytesperpixel& = 1 THEN r$ = r$ + CHR$(c&) ELSE r$ = r$ + LEFT$(MKL$(c&), 3)
  180.         NEXT px&
  181.         d$ = d$ + r$ + padder$
  182.     NEXT py&
  183.     _SOURCE lastsource&
  184.     MID$(b$, 35, 4) = MKL$(LEN(d$)) ' image size(BMP header)
  185.     b$ = b$ + d$ ' total file data bytes to create file
  186.     MID$(b$, 3, 4) = MKL$(LEN(b$)) ' size of data file(BMP header)
  187.     IF LCASE$(RIGHT$(filename$, 4)) <> ".jpg" THEN ext$ = ".jpg"
  188.     f& = FREEFILE
  189.     OPEN filename$ + ext$ FOR OUTPUT AS #f&: CLOSE #f& ' erases an existing file
  190.     OPEN filename$ + ext$ FOR BINARY AS #f&
  191.     PUT #f&, , b$
  192.     CLOSE #f&
  194.  
Title: Re: Weekday Finder
Post by: bplus on August 04, 2019, 08:22:28 pm
Hi Ken,

I have tested more dates with code in reply #19, though it gets Christmas correct for next 10 years, it misses with March 2019 dates.

The calendars for 2019 all do seem to start and end on correct day. You might control labels better with _PRINTSTRING which locates to the pixel instead of character cell rows and columns, start text just below and right of top left line intersects.
Title: Re: Weekday Finder
Post by: SierraKen on August 05, 2019, 01:41:25 am
Thanks B+, I'm 99.9% sure that I'm finished with the Calendar Maker. I'm starting a new forum topic now only for that program.
Text Only | Text with Attachments