Calculating Day of the Week, Finally

As with many of the challenges we tackle, the latest project has sprawled across more articles than I ever expected when I first received the query from a reader. The question seems reasonably simple: given a month, day number and day of the week, calculate the most recent year that matches those criteria.

There are some obscure and complex formulas for doing just this, but instead, I decided it'd be interesting basically to loop backward from the current year for the month in question, parsing and analyzing the output of the handy cal program.

The real challenge has been that the cal program never really was designed to produce easily parsed output, so figuring out the day of the week (DOW, as we've been abbreviating it) involves basically counting the number of leading spaces or otherwise compensating for an average month where the first day starts mid-week, not neatly on Sunday.

An algorithmic-friendly version of cal would have output where days prior to the first day of the month would be output optionally as zeros or underscores, making this oodles easier. But it isn't, so we have to compensate.

Figuring the Day of the Week

Last time, we wrapped up with a shell function that expected the day, month and year as arguments and returned the day of the week of that particular date in that month on that year. In other words, 16 May, 2011, occurs on a Monday:


      May 2011
Su Mo Tu We Th Fr Sa
1  2  3  4  5  6  7
8  9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31

The actual return value of the function in this instance is 2, so 1 = Sunday, 2 = Monday, and so on.

Given the desired day of the week that the user specifies and a simple way to decrement the year until we hit a match coupled with the function already shown, it should be relatively easy to assemble all the pieces and create—finally—the script that details when a specific date was on a specific day of the week.

I won't republish all the code from previous posts (the completed script is 83 lines long), but here's the most salient portion at the end, the section that steps back year by year to figure out which one has a matching calendar entry:


echo Looking for $weekday, $day, $month \($monthnum\) \
    starting in $mostrecent 
# now we need to loop backwards through years until a match 
year=$mostrecent
DOW=-1                  # start with a dead value 
while [ $DOW -ne $desiredDOW ]
do
  figureDOW $day $monthnum $year
# echo "> $day $month occurred on a $DOW in $year"
  year=$(( $year - 1 ))
done 
echo "Got it! $day $month occurred on a $weekday 
 ↪most recently in ${year}:"
cal $month $year

Notice that when we find a match, we not only print out what year had that date on the specified day of the week, but we also print out the calendar for that month as a visual confirmation.

A few sample runs illustrate:


$ whatyear Friday February 9
Got it! 9 feb occurred on a fri most recently in 2006:

   February 2006
Su Mo Tu We Th Fr Sa
          1  2  3  4
5  6  7  8  9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28

$ whatyear wed aug 3
Got it! 3 aug occurred on a wed most recently in 2004:

    August 2004
Su Mo Tu We Th Fr Sa
1  2  3  4  5  6  7
8  9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31

Since we convert the day of the week name and the month name to all lowercase and then truncate anything after the first three letters, you can see that "Friday" and "wed" both work, which is a nice side benefit. Applications with more flexible input options obviously are greatly preferred and make everyone's life easier.

Something's Still Broken

One date breaks the script because it doesn't occur every year: February 29. Here's the problem in a nutshell:


$ cal feb 2010
   February 2010
Su Mo Tu We Th Fr Sa
    1  2  3  4  5  6
7  8  9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28

When we try to find a match for "29" on this calendar, there's no matching output, and the conditional tests we have in the script can't handle the empty string.

It's not pretty:


$ whatyear mon feb 29
./whatyear.sh: line 21: [: -eq: unary operator expected
./whatyear.sh: line 72: [: -ne: unary operator expected
Got it! 29 feb occurred on a mon most recently in 2010:

   February 2010
Su Mo Tu We Th Fr Sa
    1  2  3  4  5  6
7  8  9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28

You know, if we had these ugly "[" test error messages but the end result was correct, I probably could live with it, but you can see that it's matched on a February that doesn't even have a 29th day—lame.

However, fixing it might be more trouble than it's worth, and it certainly will cause us to sprawl into a subsequent article. Instead, I encourage you to grab the entire source code library, and explore how to fix it yourself. Yes, I am punting!

Next time, I'll start on a new shell scripting challenge, and as usual, I encourage you to send me a quick e-mail note with some ideas you have on what would be compelling for us to develop or any particularly interesting scripting problems you're facing.

______________________

Dave Taylor has been hacking shell scripts for over thirty years. Really. He's the author of the popular "Wicked Cool Shell Scripts" and can be found on Twitter as @DaveTaylor and more generally at www.DaveTaylorOnline.com.

Comments

Comment viewing options

Select your preferred way to display the comments and click "Save settings" to activate your changes.

auto diagnostic tool

obd2's picture

HINO Trucks diagnostics is a tool equipped with all the functions needed to diagnose the trouble, check functions, and configure the settings of the electronic system built into HINO engines.Hino-Bowie Hino Diagnostic Explorer The program runs on a personal computer equipped with a Windows95/98/200/xp operating system,auto diagnostic tool. And it connects to a communication network by means of a diagnosis connector via a communication Interface. After it has been connected to a communication network, it can carry out various operations by extracting information from the engine ECU.

year plus

porno's picture

THEN decrementing it and printing out the solution and the calendar. So Feb 9th appeared in 2007.

The particular magnitude of

Auto code scanner's picture

The particular magnitude of frequency is determined by the type in the test content. Low-frequency beams have got better sexual penetration effect because of a smaller amount attenuation. Minimal frequency ultrasound tech2 obd2 gm diagnostic ocean can be used for difficult surfaces, because they are tossed a smaller amount. Even so, the results for detection involving smaller sized flaws as well as modifications in the fabric is just not successful as the divergence will become larger together with low consistency ultrasound waves. Higher rate of recurrence cross-bow supports develop more effective ends in case of tiny imperfections http://www.kfzdiagnosegeraet.de/auto-diagnostic-tool-cid90. In the case of ultrasound surf producing tiny divergence, a new concentrated ray can be released to the test supplies. However, because of greater attenuation (attenuation means the progressive drop inside the intensity of any kind of flux by way of a moderate), large frequency waves are not able to penetrate higher absolute depths.

The particular magnitude of

Auto code scanner's picture

The particular magnitude of frequency is determined by the type in the test content. Low-frequency beams have got better sexual penetration effect because of a smaller amount attenuation. Minimal frequency ultrasound tech2 obd2 gm diagnostic ocean can be used for difficult surfaces, because they are tossed a smaller amount. Even so, the results for detection involving smaller sized flaws as well as modifications in the fabric is just not successful as the divergence will become larger together with low consistency ultrasound waves. Higher rate of recurrence cross-bow supports develop more effective ends in case of tiny imperfections http://www.kfzdiagnosegeraet.de/auto-diagnostic-tool-cid90. In the case of ultrasound surf producing tiny divergence, a new concentrated ray can be released to the test supplies. However, because of greater attenuation (attenuation means the progressive drop inside the intensity of any kind of flux by way of a moderate), large frequency waves are not able to penetrate higher absolute depths.

The particular magnitude of

Auto code scanner's picture

The particular magnitude of frequency is determined by the type in the test content. Low-frequency beams have got better sexual penetration effect because of a smaller amount attenuation. Minimal frequency ultrasound tech2 obd2 gm diagnostic ocean can be used for difficult surfaces, because they are tossed a smaller amount. Even so, the results for detection involving smaller sized flaws as well as modifications in the fabric is just not successful as the divergence will become larger together with low consistency ultrasound waves. Higher rate of recurrence cross-bow supports develop more effective ends in case of tiny imperfections http://www.kfzdiagnosegeraet.de/auto-diagnostic-tool-cid90. In the case of ultrasound surf producing tiny divergence, a new concentrated ray can be released to the test supplies. However, because of greater attenuation (attenuation means the progressive drop inside the intensity of any kind of flux by way of a moderate), large frequency waves are not able to penetrate higher absolute depths.

A programmer finally

sarouel's picture

I want to put a calendar on my website to create a delivery schedule, but it 's really not easy for a beginner. Thanks to your article, I realize the difficulty of the work. I think now hire a real programmer to do it...

Autosnap CR800 OBDII/EOBD

obdii's picture

Autosnap CR800 OBDII/EOBD Code Reader a mini hand-help device to diagnose your vehicle. It supports all OBDII protocols on all OBDII/EOBD compliant vehicles to enable car owner or technicians to accurately diagnose engine problems. This code reader has a simple and fashionable design, to make your vehicle service experience much easier! nd900 programmer

Simple solution using the 'date' command

Magic Banana's picture

Like I did in the comments of the previous articles of this series, I give here a far more reasonable 12 line long solution based on the date command:
#!/bin/sh

dow=`date -d $1 +%w`
shift
count=0
if [ `date +%s` -lt `date -d "$*" +%s` ]
then
count=1
fi
until [ `date -d "$count year ago $*" +%w` = $dow ]
do
count=`expr $count + 1`
done
date -d "$count year ago" +%Y

If you wish the calendar of the related month as the output, just replace the last line by:
ncal -d `date -d "$* $count year ago" +%Y-%m`

With this line, the output of whatyear Friday February 9 correctly is:
February 2007
Su 4 11 18 25
Mo 5 12 19 26
Tu 6 13 20 27
We 7 14 21 28
Th 1 8 15 22
Fr 2 9 16 23
Sa 3 10 17 24

As the other comments pointed out, the result of your script obviously is wrong.

Another way is to use the Korn Shell print %T

Finnbarr P. Murphy's picture


#!/bin/ksh

day=$1
month=$2
dom=$3
year=$( printf "%(%Y)T" now )

while [[ $day != $(printf '%(%A)T' "$month $dom $year") ]]
do
(( year-- ))
done

echo $year


$ ./whatyear.sh Friday February 9
2007
$

Did you look at your tests?

Anonymous's picture

Uh, am I blind or did you ask the program for Friday February 9 and then print out a calendar showing that in 2006 Feb 9th was a Thursday? And then asked for wed aug 3 and printed out a calendar for 2004 showing that August 3rd was a Tuesday?

Fix

Anonymous's picture

You're testing your year, THEN decrementing it and printing out the solution and the calendar. So Feb 9th appeared in 2007. But you decrement year before you exit your loop, and then print the answer is 2006 and print the 2006 Feb calendar. That's also why you print out a non-leap year Feburary when searching for Feb. 29th. You need to either decrement and then check (which means you'd need to start with current year plus 1) or increment year after exiting the loop to account for the extra decrement. To fix the errors on Feb. 29th, just check to see if $DOW is 0, and reset it to -1 if it is in the loop.

answer

mortgage loans's picture

When you're in uncomfortable position and have no cash to get out from that, you would need to receive the mortgage loans (goodfinance-blog.com). Just because it should aid you unquestionably. I get car loan every time I need and feel good because of that.

Change: while [ $DOW -ne

Anonymous's picture

Change:
while [ $DOW -ne $desiredDOW ]
To:
while [ "$DOW"x -ne "$desiredDOW"x ]

White Paper
Linux Management with Red Hat Satellite: Measuring Business Impact and ROI

Linux has become a key foundation for supporting today's rapidly growing IT environments. Linux is being used to deploy business applications and databases, trading on its reputation as a low-cost operating environment. For many IT organizations, Linux is a mainstay for deploying Web servers and has evolved from handling basic file, print, and utility workloads to running mission-critical applications and databases, physically, virtually, and in the cloud. As Linux grows in importance in terms of value to the business, managing Linux environments to high standards of service quality — availability, security, and performance — becomes an essential requirement for business success.

Learn More

Sponsored by Red Hat

White Paper
Private PaaS for the Agile Enterprise

If you already use virtualized infrastructure, you are well on your way to leveraging the power of the cloud. Virtualization offers the promise of limitless resources, but how do you manage that scalability when your DevOps team doesn’t scale? In today’s hypercompetitive markets, fast results can make a difference between leading the pack vs. obsolescence. Organizations need more benefits from cloud computing than just raw resources. They need agility, flexibility, convenience, ROI, and control.

Stackato private Platform-as-a-Service technology from ActiveState extends your private cloud infrastructure by creating a private PaaS to provide on-demand availability, flexibility, control, and ultimately, faster time-to-market for your enterprise.

Learn More

Sponsored by ActiveState