# ==============================
# subroutine get_month_as_number
# ==============================

# Returns the month as number 1-12 from of a date/time string

subroutine(get_month_as_number(string the_date), (

	string m = substr(the_date, 3, 3);

	int n;
	
	if (m eq "Jan") then (n = 1;)
	else if (m eq "Feb") then (n = 2;)
	else if (m eq "Mar") then (n = 3;)
	else if (m eq "Apr") then (n = 4;)
	else if (m eq "May") then (n = 5;)
	else if (m eq "Jun") then (n = 6;)
	else if (m eq "Jul") then (n = 7;)
	else if (m eq "Aug") then (n = 8;)
	else if (m eq "Sep") then (n = 9;)
	else if (m eq "Oct") then (n = 10;)
	else if (m eq "Nov") then (n = 11;)
	else (n = 12;);

	n;
));