select case dateMonth
	case 2,3,4,5,6,7,8,9,10,11,12
		compareDate = dateMonth - 1
		date1 = (dateMonth - 1) & "/" & dateDay & "/" & dateYear
	case 1
		date1 = "12/" & dateDay & "/" & (dateYear - 1)
end select
checkMonth = mid(date1,1,2)
if dateDay > 27 then
	select case checkMonth
		case "1/"
			date1 = mid(date1,1,2) & "31" & mid(date1,5)
		case "2/"
			date1 = mid(date1,1,2) & "28" & mid(date1,5)
		case "3/"
			date1 = mid(date1,1,2) & "31" & mid(date1,5)
		case "4/"
			date1 = mid(date1,1,2) & "30" & mid(date1,5)
		case "5/"
			date1 = mid(date1,1,2) & "31" & mid(date1,5)
		case "6/"
			date1 = mid(date1,1,2) & "30" & mid(date1,5)
		case "7/"
			date1 = mid(date1,1,2) & "31" & mid(date1,5)
		case "8/"
			date1 = mid(date1,1,2) & "31" & mid(date1,5)
		case "9/"
			date1 = mid(date1,1,2) & "30" & mid(date1,5)
		case "10"
			date1 = mid(date1,1,3) & "31" & mid(date1,6)
		case "11"
			date1 = mid(date1,1,3) & "30" & mid(date1,6)
		case "12"
			date1 = mid(date1,1,3) & "31" & mid(date1,6)
	end select
end if
session.Contents("Date1") = date1

' 3 months
select case dateMonth
	case 4,5,6,7,8,9,10,11,12
		date3 = (dateMonth - 3) & "/" & dateDay & "/" & dateYear
	case 3
		date3 = "12/" & dateDay & "/" & (dateYear - 1)
	case 2
		date3 = "11/" & dateDay & "/" & (dateYear - 1)
	case 1
		date3 = "10/" & dateDay & "/" & (dateYear - 1)
end select	
checkMonth = mid(date3,1,2)
if dateDay > 27 then
	select case checkMonth
		case "1/"
			date3 = mid(date3,1,2) & "31" & mid(date3,5)
		case "2/"
			date3 = mid(date3,1,2) & "28" & mid(date3,5)
		case "3/"
			date3 = mid(date3,1,2) & "31" & mid(date3,5)
		case "4/"
			date3 = mid(date3,1,2) & "30" & mid(date3,5)
		case "5/"
			date3 = mid(date3,1,2) & "31" & mid(date3,5)
		case "6/"
			date3 = mid(date3,1,2) & "30" & mid(date3,5)
		case "7/"
			date3 = mid(date3,1,2) & "31" & mid(date3,5)
		case "8/"
			date3 = mid(date3,1,2) & "31" & mid(date3,5)
		case "9/"
			date3 = mid(date3,1,2) & "30" & mid(date3,5)
		case "10"
			date3 = mid(date3,1,3) & "31" & mid(date3,6)
		case "11"
			date3 = mid(date3,1,3) & "30" & mid(date3,6)
		case "12"
			date3 = mid(date3,1,3) & "31" & mid(date3,6)
	end select
end if
		
session.Contents("Date3") = date3

' 6 months
select case dateMonth
	case 7,8,9,10,11,12
		date6 = (dateMonth - 6) & "/" & dateDay & "/" & dateYear
	case 6
		date6 = "12/" & dateDay & "/" & (dateYear - 1)
	case 5
		date6 = "11/" & dateDay & "/" & (dateYear - 1)
	case 4
		date6 = "10/" & dateDay & "/" & (dateYear - 1)
	case 3
		date6 = "9/" & dateDay & "/" & (dateYear - 1)
	case 2
		date6 = "8/" & dateDay & "/" & (dateYear - 1)
	case 1
		date6 = "7/" & dateDay & "/" & (dateYear - 1)
end select	
checkMonth = mid(date6,1,2)
if dateDay > 27 then
	select case checkMonth
		case "1/"
			date6 = mid(date6,1,2) & "31" & mid(date6,5)
		case "2/"
			date6 = mid(date6,1,2) & "28" & mid(date6,5)
		case "3/"
			date6 = mid(date6,1,2) & "31" & mid(date6,5)
		case "4/"
			date6 = mid(date6,1,2) & "30" & mid(date6,5)
		case "5/"
			date6 = mid(date6,1,2) & "31" & mid(date6,5)
		case "6/"
			date6 = mid(date6,1,2) & "30" & mid(date6,5)
		case "7/"
			date6 = mid(date6,1,2) & "31" & mid(date6,5)
		case "8/"
			date6 = mid(date6,1,2) & "31" & mid(date6,5)
		case "9/"
			date6 = mid(date6,1,2) & "30" & mid(date6,5)
		case "10"
			date6 = mid(date6,1,3) & "31" & mid(date6,6)
		case "11"
			date6 = mid(date6,1,3) & "30" & mid(date6,6)
		case "12"
			date6 = mid(date6,1,3) & "31" & mid(date6,6)
	end select
end if
session.Contents("Date6") = date6

' 9 months
select case dateMonth
	case 10,11,12
		date9 = (dateMonth - 9) & "/" & dateDay & "/" & dateYear
	case 9
		date9 = "12/" & dateDay & "/" & (dateYear - 1)
	case 8
		date9 = "11/" & dateDay & "/" & (dateYear - 1)
	case 7
		date9 = "10/" & dateDay & "/" & (dateYear - 1)
	case 6
		date9 = "9/" & dateDay & "/" & (dateYear - 1)
	case 5
		date9 = "8/" & dateDay & "/" & (dateYear - 1)
	case 4
		date9 = "7/" & dateDay & "/" & (dateYear - 1)
	case 3
		date9 = "6/" & dateDay & "/" & (dateYear - 1)
	case 2
		date9 = "5/" & dateDay & "/" & (dateYear - 1)
	case 1
		date9 = "4/" & dateDay & "/" & (dateYear - 1)
end select
checkMonth = mid(date9,1,2)
if dateDay > 27 then
	select case checkMonth
		case "1/"
			date9 = mid(date9,1,2) & "31" & mid(date9,5)
		case "2/"
			date9 = mid(date9,1,2) & "28" & mid(date9,5)
		case "3/"
			date9 = mid(date9,1,2) & "31" & mid(date9,5)
		case "4/"
			date9 = mid(date9,1,2) & "30" & mid(date9,5)
		case "5/"
			date9 = mid(date9,1,2) & "31" & mid(date9,5)
		case "6/"
			date9 = mid(date9,1,2) & "30" & mid(date9,5)
		case "7/"
			date9 = mid(date9,1,2) & "31" & mid(date9,5)
		case "8/"
			date9 = mid(date9,1,2) & "31" & mid(date9,5)
		case "9/"
			date9 = mid(date9,1,2) & "30" & mid(date9,5)
		case "10"
			date9 = mid(date9,1,3) & "31" & mid(date9,6)
		case "11"
			date9 = mid(date9,1,3) & "30" & mid(date9,6)
		case "12"
			date9 = mid(date9,1,3) & "31" & mid(date9,6)
	end select
end if
	
session.Contents("Date9") = date9

' 12 months
date12 = dateMonth & "/" & dateDay & "/" & (dateYear - 1)
checkMonth = mid(date12,1,2)
if dateDay > 27 then
	select case checkMonth
		case "1/"
			date12 = mid(date12,1,2) & "31" & mid(date12,5)
		case "2/"
			date12 = mid(date12,1,2) & "28" & mid(date12,5)
		case "3/"
			date12 = mid(date12,1,2) & "31" & mid(date12,5)
		case "4/"
			date12 = mid(date12,1,2) & "30" & mid(date12,5)
		case "5/"
			date12 = mid(date12,1,2) & "31" & mid(date12,5)
		case "6/"
			date12 = mid(date12,1,2) & "30" & mid(date12,5)
		case "7/"
			date12 = mid(date12,1,2) & "31" & mid(date12,5)
		case "8/"
			date12 = mid(date12,1,2) & "31" & mid(date12,5)
		case "9/"
			date12 = mid(date12,1,2) & "30" & mid(date12,5)
		case "10"
			date12 = mid(date12,1,3) & "31" & mid(date12,6)
		case "11"
			date12 = mid(date12,1,3) & "30" & mid(date12,6)
		case "12"
			date12 = mid(date12,1,3) & "31" & mid(date12,6)
	end select
end if
	
' 18 months	
select case dateMonth
	case 7,8,9,10,11,12
		date18 = (dateMonth - 6) & "/" & dateDay & "/" & (dateYear - 1)
	case 6
		date18 = "12/" & dateDay & "/" & (dateYear - 2)
	case 5
		date18 = "11/" & dateDay & "/" & (dateYear - 2)
	case 4
		date18 = "10/" & dateDay & "/" & (dateYear - 2)
	case 3
		date18 = "9/" & dateDay & "/" & (dateYear - 2)
	case 2
		date18 = "8/" & dateDay & "/" & (dateYear - 2)
	case 1
		date18 = "7/" & dateDay & "/" & (dateYear - 2)
end select
checkMonth = mid(date18,1,2)
if dateDay > 27 then
	select case checkMonth
		case "1/"
			date18 = mid(date18,1,2) & "31" & mid(date18,5)
		case "2/"
			date18 = mid(date18,1,2) & "28" & mid(date18,5)
		case "3/"
			date18 = mid(date18,1,2) & "31" & mid(date18,5)
		case "4/"
			date18 = mid(date18,1,2) & "30" & mid(date18,5)
		case "5/"
			date18 = mid(date18,1,2) & "31" & mid(date18,5)
		case "6/"
			date18 = mid(date18,1,2) & "30" & mid(date18,5)
		case "7/"
			date18 = mid(date18,1,2) & "31" & mid(date18,5)
		case "8/"
			date18 = mid(date18,1,2) & "31" & mid(date18,5)
		case "9/"
			date18 = mid(date18,1,2) & "30" & mid(date18,5)
		case "10"
			date18 = mid(date18,1,3) & "31" & mid(date18,6)
		case "11"
			date18 = mid(date18,1,3) & "30" & mid(date18,6)
		case "12"
			date18 = mid(date18,1,3) & "31" & mid(date18,6)
	end select
end if
session.Contents("Date18") = date18

' 24 months
date24 = dateMonth & "/" & dateDay & "/" & (dateYear - 2)
checkMonth = mid(date24,1,2)
if dateDay > 27 then
	select case checkMonth
		case "1/"
			date24 = mid(date24,1,2) & "31" & mid(date24,5)
		case "2/"
			date24 = mid(date24,1,2) & "28" & mid(date24,5)
		case "3/"
			date24 = mid(date24,1,2) & "31" & mid(date24,5)
		case "4/"
			date24 = mid(date24,1,2) & "30" & mid(date24,5)
		case "5/"
			date24 = mid(date24,1,2) & "31" & mid(date24,5)
		case "6/"
			date24 = mid(date24,1,2) & "30" & mid(date24,5)
		case "7/"
			date24 = mid(date24,1,2) & "31" & mid(date24,5)
		case "8/"
			date24 = mid(date24,1,2) & "31" & mid(date24,5)
		case "9/"
			date24 = mid(date24,1,2) & "30" & mid(date24,5)
		case "10"
			date24 = mid(date24,1,3) & "31" & mid(date24,6)
		case "11"
			date24 = mid(date24,1,3) & "30" & mid(date24,6)
		case "12"
			date24 = mid(date24,1,3) & "31" & mid(date24,6)
	end select
end if

session.Contents("Date24") = date24

' 30 months	
select case dateMonth
	case 7,8,9,10,11,12
		date30 = (dateMonth - 6) & "/" & dateDay & "/" & (dateYear - 2)
	case 6
		date30 = "12/" & dateDay & "/" & (dateYear - 3)
	case 5
		date30 = "11/" & dateDay & "/" & (dateYear - 3)
	case 4
		date30 = "10/" & dateDay & "/" & (dateYear - 3)
	case 3
		date30 = "9/" & dateDay & "/" & (dateYear - 3)
	case 2
		date30 = "8/" & dateDay & "/" & (dateYear - 3)
	case 1
		date30 = "7/" & dateDay & "/" & (dateYear - 3)
end select	
checkMonth = mid(date30,1,2)
if dateDay > 27 then
	select case checkMonth
		case "1/"
			date30 = mid(date30,1,2) & "31" & mid(date30,5)
		case "2/"
			date30 = mid(date30,1,2) & "28" & mid(date30,5)
		case "3/"
			date30 = mid(date30,1,2) & "31" & mid(date30,5)
		case "4/"
			date30 = mid(date30,1,2) & "30" & mid(date30,5)
		case "5/"
			date30 = mid(date30,1,2) & "31" & mid(date30,5)
		case "6/"
			date30 = mid(date30,1,2) & "30" & mid(date30,5)
		case "7/"
			date30 = mid(date30,1,2) & "31" & mid(date30,5)
		case "8/"
			date30 = mid(date30,1,2) & "31" & mid(date30,5)
		case "9/"
			date30 = mid(date30,1,2) & "30" & mid(date30,5)
		case "10"
			date30 = mid(date30,1,3) & "31" & mid(date30,6)
		case "11"
			date30 = mid(date30,1,3) & "30" & mid(date30,6)
		case "12"
			date30 = mid(date30,1,3) & "31" & mid(date30,6)
	end select
end if

session.Contents("Date30") = date30

' 36 months
date36 = dateMonth & "/" & dateDay & "/" & (dateYear - 3)
checkMonth = mid(date36,1,2)
if dateDay > 27 then
	select case checkMonth
		case "1/"
			date36 = mid(date36,1,2) & "31" & mid(date36,5)
		case "2/"
			date36 = mid(date36,1,2) & "28" & mid(date36,5)
		case "3/"
			date36 = mid(date36,1,2) & "31" & mid(date36,5)
		case "4/"
			date36 = mid(date36,1,2) & "30" & mid(date36,5)
		case "5/"
			date36 = mid(date36,1,2) & "31" & mid(date36,5)
		case "6/"
			date36 = mid(date36,1,2) & "30" & mid(date36,5)
		case "7/"
			date36 = mid(date36,1,2) & "31" & mid(date36,5)
		case "8/"
			date36 = mid(date36,1,2) & "31" & mid(date36,5)
		case "9/"
			date36 = mid(date36,1,2) & "30" & mid(date36,5)
		case "10"
			date36 = mid(date36,1,3) & "31" & mid(date36,6)
		case "11"
			date36 = mid(date36,1,3) & "30" & mid(date36,6)
		case "12"
			date36 = mid(date36,1,3) & "31" & mid(date36,6)
	end select
end if

session.Contents("Date36") = date36

' 48 months
date48 = dateMonth & "/" & dateDay & "/" & (dateYear - 4)
checkMonth = mid(date48,1,2)
if dateDay > 27 then
	select case checkMonth
		case "1/"
			date48 = mid(date48,1,2) & "31" & mid(date48,5)
		case "2/"
			date48 = mid(date48,1,2) & "28" & mid(date48,5)
		case "3/"
			date48 = mid(date48,1,2) & "31" & mid(date48,5)
		case "4/"
			date48 = mid(date48,1,2) & "30" & mid(date48,5)
		case "5/"
			date48 = mid(date48,1,2) & "31" & mid(date48,5)
		case "6/"
			date48 = mid(date48,1,2) & "30" & mid(date48,5)
		case "7/"
			date48 = mid(date48,1,2) & "31" & mid(date48,5)
		case "8/"
			date48 = mid(date48,1,2) & "31" & mid(date48,5)
		case "9/"
			date48 = mid(date48,1,2) & "30" & mid(date48,5)
		case "10"
			date48 = mid(date48,1,3) & "31" & mid(date48,6)
		case "11"
			date48 = mid(date48,1,3) & "30" & mid(date48,6)
		case "12"
			date48 = mid(date48,1,3) & "31" & mid(date48,6)
	end select
end if

session.Contents("Date48") = date48