Calendar 2021

[Adrian]

all i can see in this thread is that Steve's done a great job with his program.

[SMcNeill]

Feel free to download my calendar (calculator), which I have been working on for 15 years and is constantly being expanded. I can say with full responsibility that there is no other such calendar with such computing capabilities anywhere in the world (who would like to write). The program includes several dozen calculation subroutines (58). The calculation range is 1 - 9999...

What is it calculating?  Days?  Math formulas?  It's a calendar (calculator)?   Such as calculating 30 * SIN(30) ^ 2)  Exactly what the heck are you calculating?

[STxAxTIC]

I tried a few links in Google after searching "ryster qbasic calendar" and .... didn't find it...

 

[Pete]

Thanks to Bill's link, I'm a working "porstar" again.

[SMcNeill]

Several people have been nice and donated code which illustrates how to find the date for Easter, and I want to thank them all.  Here's the quick little version which I'm going to end up popping into my Calendar for the next version:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2.  
3. FOR y = 2000 TO 2099
4.     FindEaster y, m, d
5.     PRINT m; "-"; d; "-"; y,
6. NEXT
7.  
8. SUB FindEaster (y, m, d) 'for the 21st century
9.     m = 3
10.     temp = (204.5 - 11 * (y MOD 19)) MOD 30 + 21
11.     IF (temp = 49 AND y MOD 19 > 10) OR (temp = 50) THEN temp = temp - 1
12.     d = temp + ((20 - (temp - 19) MOD 7 - INT((y MOD 100) * 1.25) MOD 7) MOD 7) + 1
13.     IF d > 31 THEN d = d - 31: m = m + 1
14. END SUB

Note that this only assumes to calculate the date for the 21st century (2000 to 2099), but I really don't think anyone is going to be using my little Calendar program 80+ years from now.  I know I certainly won't be!  If someone is, then they can have the fun challenge of correcting it, much like others had to fix the Y2K bug before the world ended back on Dec 31st, 1999.  :D

Honestly, it's not complicated to go beyond the 21st century, but I figured since my seasons are calculated via a chart with only those years, I really don't need to calculate for more than that, so I can simplify the math somewhat and take out several steps in the work flow.  If anyone wants, they can call it "planned obsolescence", so that I can sell the updated version when this one doesn't work anymore for folks...  ;D

[SMcNeill]

Calendar has been updated and expanded once again.

We now find ALL of the following holidays, from the following lists:

41 Simple Calculations from Holiday.txt

Code: QB64: [Select]

1. 01, ON, 01, New Years Day
2. 01, ON, 06, Epiphany
3. 01, ON, 07, Orthodox Christmas Day
4. 01, ON, 13, Stephen Foster Memorial Day
5. 01, ON, 14, Orthodox New Year
6. 01, THIRD, Monday, Martin Luther King Day
7. 02, ON, 01, National Freedom Day
8. 02, ON, 01, Start of Black History Month
9. 02, ON, 02, Groundhog's Day
10. 02, FIRST, Sunday, Super Bowl
11. 02, ON, 12, Lincoln's Birthday
12. 02, ON, 14, Valentine's Day
13. 02, THIRD, Monday, President's Day
14. 02, ON, 22, Washington's Birthday
15. 03, ON, 01, Start of Women's History Month
16. 03, SECOND, Sunday, Start of Daylight Saving's Time
17. 03, ON, 17, Saint Patrick's Day
18. 03, ON, 29, National Vietnam War Vetern's Day
19. 04, ON, 01, April Fool's Day
20. 05, ON, 05, Cinco de Mayo
21. 05, SECOND, Sunday, Mother's Day
22. 05, LAST, Monday, Memorial Day
23. 06, ON, 14, Flag Day
24. 06, THIRD, Sunday, Father's Day
25. 07, ON, 04, Independence Day
26. 07, ON, 15, Tax Day
27. 09, FIRST, Monday, Labor Day
28. 09, ON, 25, Steve McNeill's Birthday
29. 10, SECOND, 02, Columbus Day
30. 10, SECOND, 02, Thanksgiving Day (Canada)
31. 10, ON, 31, Halloween
32. 11, ON, 01, All Saint's Day
33. 11, FIRST, Sunday, End of Daylight Saving's Time
34. 11, ON, 02, All Soul's Day
35. 11, ON, 11, Veteran's Day
36. 11, Fourth, Thursday, Thanksgiving
37. 12, ON, 07, Pearl Harbor Remembrance Day
38. 12, ON, 24, Christmas Eve
39. 12, ON, 25, Christmas Day
40. 12, ON, 26, Boxing Day (Canada)
41. 12, ON, 31, New Year's Eve

The date of the 4 seasons:
Spring
Summer
Autumn
Winter

All of the Easter-related holidays, that I knew of.  (If I missed one, simply speak up now and let me know.):
Easter
Good Friday
Holy Thursday
Palm Sunday
Lent Begins
Ash Wednesday
Shrove Tuesday

Election Day, US (First Tuesday after first Monday in November)

Friday the 13th, when it occurs.

Thanksgiving Related Days:
Black Friday
Cyber Monday

Each day we get:
Sunrise
Sunset
Noontime
Day Length
Moon Phase

And, of course, users can add and edit their own events into the calendar, to suit their own needs.


Updated version is available via my onedrive link here: https://1drv.ms/u/s!AknUrv8RXVYMkIMiwSDNKinhlbfuHg?e=ndJtkc

Looks like I have quite a ways to go yet, to catch up to Ryster's calendar which calculates 58 things and generates a 21.1 mb EXE file.  So far, I'm only calculating 61 things (not counting custom events), with an EXE which comes in at about 3 mb in size.  I really wish he'd share his code with us, so I could see what I'm missing out on.  ;)

[SMcNeill]

Added birthstones and zodiac to the calendar, as the screenshot of the corner shows below:

 

[SMcNeill]

Can you put (Effect of time of day on grazing behaviour by lactating dairy cows...)  just a bit of fun! :)

I don't think I'll be adding lactating cattle schedules into the project anytime soon, as I don't farm anymore and have absolutely no use for the information.  Feel free to go in and add it yourself, if you want to, it's why I'm including the source code so that everyone can customize things however the heck they want, for their own personal needs and use!  :D

Just for fun though, I did go in and add a clock and a news ticker into the project, which now grabs the daily news and scrolls it across the bottom of the calendar for you, so you can keep up with the very latest happenings when the app is up and going.  Screenshot is below, and you can grab the latest version from my onedrive, using any of the links I've shared numerous times previously.

 

[STxAxTIC]

Just downloaded the updated version and quickly moved it to a different drive so OneDrive wouldn't start backing the whole project up. This thing is huge.

Bro, is there a way you can release the code with limited backgrounds as a separate archive, or do you insist on shipping the calendar with your softcore porn stash?

Among the many things this calculates, is it sure that all the subjects are over 18?

[Pete]

Screw what Bill wrote. Is there a way you can release the backgrounds, without all that calendar crap?

Pete :D

[SMcNeill]

To answer both:  Nope and nope.

I tend to download collections of free images from the net, and archive them for future use.  As I said earlier, if there's something that offends you, then feel free to remove it.  Honestly, I'm surprised that Stx is such a puritan that he'd find such an image to be "softcore porn".  What he's seeing here isn't anything that he wouldn't be able to see just by looking at the magazine covers at the checkout of his local grocery store. 


It's got to be hard to live in our current world, with such a strict standard of morality -- it reminds me of the Jehovah Witnesses who kick Michael out of their church because he admitted to enjoying looking at the Sports Illustrated Swimsuit issue...  My respect goes out to those that are that strive to live up to such a standard, but I'm afraid I don't hold to that same belief system.  I support freedom of speech, freedom of expression, and certainly don't condone censorship in any form.  I won't be editing or deleting anything from the free art bundles which I download and make use of. 


And Pete, if you're seriously interested in various art packs, let me know and I'll send you a torrent link to a couple TB worth of them.  There's no reason to strip them out of the calendar, if they're all you're interested in.

[Pete]

Now that's what I'm talking about. Who needs a damn calendar with images like that. Hell, every day is hump day!

Get your every day is Wednesday non-calendar app at AmazingSteve.com(tm)

Pete

[DANILIN]

may be interested in Russian folk font

picture 45 kB