Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

Code Snippets / Eternal Calendar

Author

Message

skovron

Years of Service

User Offline

Joined: 14th Sep 2003

Location:

Posted: 30th Sep 2003 13:18

Link

Here's little program that establishes the name of day of week.
Give it a date and it tells you is it monday or friday etc..

enjoy

+ Code Snippet

dim dayNames(6) as string

for i=0 to 6
   read dayNames(i)
next i
data "sunday", "monday", "tuesday", "wednesday", "thursday", "friday", "saturday"
print "Eternal Calendar"
print

input "day: ",day
input "mounth: ",mounth
input "year: ",year
if mounth < 3
   dec year
   inc mounth, 12
endif

d = year+int(year/4)-int(year/100)+int(year/400)+3*mounth-int((mounth+mounth+1)/5)+day+1
d = d-int(d/7)*7

print
print day;" . ";mounth;" . ";year;"  is  ";dayNames(d)
wait key

Profile PM

Server time is: 2024-05-26 03:49:42
Your offset time is: 2024-05-26 03:49:42