(m+1) in C / Perl

athos

 if (!((26*(m+1)/10+y+y/4)%7)) {
 
 if (!((26*-~m/10+y+y/4)%7)) {