Kalender - løsning

function name = getMonthName( month )
    switch (month) 
        case 1 
            name = 'Januar';
        case 2 
            name = 'Februar';
        case 3 
            name = 'Mars';
        case 4 
            name = 'April';
        case 5 
            name = 'Mai';
        case 6 
            name = 'Juni';
        case 7 
            name = 'Juli';
        case 8 
            name = 'August';
        case 9 
            name = 'September';
        case 10 
            name = 'Oktober';
        case 11 
            name = 'November';
        case 12 
            name = 'Desember';
        otherwise
            name = 'Ikke en gyldig maaned';
    end  
end

function day = getYearStartDay ( year )
	day = 1;
	for i = 1900:( year -1)
		if isLeapYear (i)
			day = day + 2;
		else
			day = day + 1;
		end
 
		if day >= 8
			day = day - 7;
		end
	end
end

function day = getMonthStartDay ( year , month )
	if month > 0 && month < 13
		day = getYearStartDay ( year );
		for i = 1 : month -1
			day = day + daysInMonth (i , year);
		end

		while ( day > 7)
			day = day - 7;
		end
	else
		day = 0;
	end
end

function printDays ( days )
	for week = 1:6
		for day = 1:7
			if days (week , day ) == 0
				fprintf ('   ');
			else
				if days (week , day ) < 10
					fprintf (' ');
				end
				fprintf ('%d ', days (week , day ));
			end
		end
	fprintf ('\n');
	end
end

function printCalendar ( year , month )
	monthName = getMonthName ( month );
	days = getCalendar ( year , month );
	fprintf (' %s %d\n', monthName , year );
	fprintf ('ma ti on to fr lo so\n');
	printDays ( days );
end

function weekNumber = getWeekNumber(year, month, day)
daysSoFar = day;
for i = 1 : month-1 
    daysSoFar = daysSoFar + daysInMonth(i, year);
end
dayOfWeek = mod(getMonthStartDay(year, month) + day - 1, 7);
if dayOfWeek == 0
    dayOfWeek = 7;
end
weekNumber = floor((daysSoFar - dayOfWeek + 10) / 7);
if weekNumber < 1
    weekNumber = getWeekNumber(year - 1, 12, 31);
end
end

function printDays (days, month, year)
    for week = 1:6
        day = 1 + (week - 1) * 7;
        weekNumber = getWeekNumber(year, month, day);
        fprintf('%i\t', weekNumber);
        for day = 1:7
            if days (week , day ) == 0
                fprintf ('   ');
            else
                if days(week, day) < 10
                    fprintf (' ')
                end
                fprintf ('%d ', days (week , day ));
            end
        end
    fprintf ('\n');
    end
endend

function printCalendar ( year , month )
    monthName = getMonthName ( month );
    days = getCalendar ( year , month );
    fprintf ('\t%s %d\n', monthName , year );
    fprintf ('Uke\tma ti on to fr lo so\n');
    printDays (days, month, year);
end