Function Show_cal(sYear,sMonth,sDay,isToday)
	document.all.minical.innerHTML=""

	intThisYear =   cint("0"&sYear) '³âµµ³Ñ°Ü¹Þ±â
	intThisMonth=   cint("0"&sMonth) '¿ù ³Ñ°Ü¹Þ±â
	intThisDay  =   cint("0"&sDay)

	if intThisYear  =0 then intThisYear=2004       '¸¸¾à ³âµµ¿Í ¿ù°ªÀ» ³Ñ°Ü¹ÞÁö ¾Ê¾Ò´Ù¸é ÇöÀç ³âµµ¸¦ ³âµµ º¯¼ö¿¡
	if intThisMonth =0 then intThisMonth=01 ' ÇöÀç ¿ùÀ» ¿ù º¯¼ö¿¡
	if intThisDay   =0 then intThisDay=05      '¿À´Ã ³¯Â¥

	if intThisMonth=1 then
		intPrevYear=intThisYear-1
		intPrevMonth=12
		intNextYear=intThisYear
		intNextMonth=2
	elseif intThisMonth=12 then
		intPrevYear=intThisYear
		intPrevMonth=11
		intNextYear=intThisYear + 1
		intNextMonth=1
	else
		intPrevYear=intThisYear
		intPrevMonth=intThisMonth -1
		intNextYear=intThisYear
		intNextMonth=intThisMonth+1
	end if

	datFirstDay=DateSerial(intThisYear, intThisMonth, 1) '³Ñ°Ü¹ÞÀº ³¯Â¥ÀÇ ¿ùÃʱⰪ ÆľÇ
	intFirstWeekday=Weekday(datFirstDay, vbSunday) '³Ñ°Ü¹ÞÀº ³¯Â¥ÀÇ ÁÖÃʱⰪ ÆľÇ
	intSecondWeekday=intFirstWeekday
	intThirdWeekday=intFirstWeekday

	if intThisMonth < 10 then intThisMonth1="0"&intThisMonth
	if intThisMonth => 10 then intThisMonth1=intThisMonth

	'datThisDay=cdate(intThisYear&"-"&intThisMonth&"-"&intThisDay)
	'intThisWeekday=Weekday(datThisDay)

	'Select Case intThisWeekday
	'	Case 1  varThisWeekday="ÀÏ"
	'	Case 2  varThisWeekday="¿ù"
	'	Case 3  varThisWeekday="È­"
	'	Case 4  varThisWeekday="¼ö"
	'	Case 5  varThisWeekday="¸ñ"
	'	Case 6  varThisWeekday="±Ý"
	'	Case 7  varThisWeekday="Åä"
	'End Select

	intPrintDay=1 'Ãâ·Â ÃʱâÀÏ °ªÀº 1ºÎÅÍ
	secondPrintDay=1
	thirdPrintDay=1
        
	Stop_Flag=0
        
	if intThisMonth=4 or intThisMonth=6 or intThisMonth=9 or intThisMonth=11 then  '¿ù¸» °ª °è»ê
		intLastDay=30
	elseif intThisMonth=2 and not (intThisYear mod 4) = 0 then
		intLastDay=28
	elseif intThisMonth=2 and (intThisYear mod 4) = 0 then
		if (intThisYear mod 100) = 0 then
			if (intThisYear mod 400) = 0 then
				intLastDay=29
			else
				intLastDay=28
			end if
		else
			intLastDay=29
		end if
	else
		intLastDay=31
	end if
        
	if intPrevMonth=4 or intPrevMonth=6 or intPrevMonth=9 or intPrevMonth=11 then  '¿ù¸» °ª °è»ê
		intPrevLastDay=30
	elseif intPrevMonth=2 and not (intPrevYear mod 4) = 0 then
		intPrevLastDay=28
	elseif intPrevMonth=2 and (intPrevYear mod 4) = 0 then
		if (intPrevYear mod 100) = 0 then
			if (intPrevYear mod 400) = 0 then
				intPrevLastDay=29
			else
				intPrevLastDay=28
			end if
		else
			intPrevLastDay=29
		end if
	else
		intPrevLastDay=31
	end if

	Stop_Flag=0
	Cal_HTML=Cal_HTML& "<table border=0 cellpadding=1 cellspacing=1 bgcolor=#EFEFEF onmouseover='doOver()' onmouseout='doOut()' onclick='doClick()' style='font-size : 12;font-family:±¼¸²;' align=center>"
	Cal_HTML=Cal_HTML& "	<tr align=center height=30>"
	Cal_HTML=Cal_HTML& "		<td align=center>"
	Cal_HTML=Cal_HTML& "			<table cellpadding=0 cellspacing=0 border=0 style='font-size : 12;font-family:±¼¸²;'>"
	Cal_HTML=Cal_HTML& "				<tr>"
	Cal_HTML=Cal_HTML& "					<td style='cursor:hand;' Onclick='vbscript:call Show_cal(" & (intThisYear+1) & "," & intThisMonth & "," & sDay & ",0)'><img src=/images/calendar_small/btn_up.gif onFocus=blur(); hspace=1 border=0></td>"
	Cal_HTML=Cal_HTML& "					<td width=55 height=19 rowspan=2 align=center><b>" & intThisYear & " ³â</b></td>"
	Cal_HTML=Cal_HTML& "				</tr>"
	Cal_HTML=Cal_HTML& "				<tr>"
	Cal_HTML=Cal_HTML& "					<td style='cursor:hand;' Onclick='vbscript:call Show_cal(" & (intThisYear-1) & "," & intThisMonth & "," & sDay & ",0)'><img src=/images/calendar_small/btn_down.gif onFocus=blur(); hspace=1 border=0></td>"
	Cal_HTML=Cal_HTML& "				</tr>"
	Cal_HTML=Cal_HTML& "			</table>"
	Cal_HTML=Cal_HTML& "		</td>"
	Cal_HTML=Cal_HTML& "		<td align=center>"
	Cal_HTML=Cal_HTML& "			<table cellpadding=0 cellspacing=0 border=0 style='font-size : 12;font-family:±¼¸²;'>"
	Cal_HTML=Cal_HTML& "				<tr>"
	Cal_HTML=Cal_HTML& "					<td style='cursor:hand;' Onclick='vbscript:call Show_cal(" & intNextYear & "," & intNextMonth & "," & sDay & ",0)'><img src=/images/calendar_small/btn_up.gif onFocus=blur(); hspace=1 border=0></td>"
	Cal_HTML=Cal_HTML& "					<td width=36 height=19 rowspan=2 align=center><b>" & intThisMonth & " ¿ù</b></td>"
	Cal_HTML=Cal_HTML& "				</tr>"
	Cal_HTML=Cal_HTML& "				<tr>"
	Cal_HTML=Cal_HTML& "					<td style='cursor:hand;' Onclick='vbscript:call Show_cal(" & intPrevYear & "," & intPrevMonth & "," & sDay & ",0)'><img src=/images/calendar_small/btn_down.gif onFocus=blur(); hspace=1 border=0></td>"
	Cal_HTML=Cal_HTML& "				</tr>"
	Cal_HTML=Cal_HTML& "			</table>"
	Cal_HTML=Cal_HTML& "		</td>"
	Cal_HTML=Cal_HTML& "		<td style='cursor:hand;' onClick=""doTodaySet('" & Date() & "')""><b>¿À´Ã</td>"
	Cal_HTML=Cal_HTML& "	</tr>"
	Cal_HTML=Cal_HTML& "</table>"
	Cal_HTML=Cal_HTML& "<table border=0 cellpadding=1 cellspacing=1 onmouseover='doOver()' onmouseout='doOut()' onclick='doClick()' style='font-size : 12;font-family:±¼¸²;'>"
	Cal_HTML=Cal_HTML& "	<tr align=center bgcolor=#498BB5 style='color:black; font-weight:bold'>"
	Cal_HTML=Cal_HTML& "		<td>ÀÏ</td><td>¿ù</td><td>È­</td><td>¼ö</td><td>¸ñ</td><td>±Ý</td><td>Åä</td>"
	Cal_HTML=Cal_HTML& "	</tr>"
	
	FOR intLoopWeek=1 to 6   'ÁÖ´ÜÀ§ ·çÇÁ ½ÃÀÛ, ÃÖ´ë 6ÁÖ

		Cal_HTML=Cal_HTML& "<tr align=right valign=top bgcolor=white >"
		for intLoopDay=1 to 7 '¿äÀÏ´ÜÀ§ ·çÇÁ ½ÃÀÛ, ÀÏ¿äÀϺÎÅÍ

			if intThirdWeekDay > 1 then 'ùÁÖ½ÃÀÛÀÏÀÌ 1º¸´Ù Å©¸é
				Cal_HTML=Cal_HTML& "<td>&nbsp;</td>"
				intThirdWeekDay=intThirdWeekDay-1
			else
				if thirdPrintDay > intLastDay then 'ÀԷ³¯Â¥°¡ ¿ù¸»º¸´Ù Å©´Ù¸é
					Cal_HTML=Cal_HTML& "<td>&nbsp;</td>"
				else 'ÀԷ³¯Â¥°¡ ÇöÀç¿ù¿¡ ÇØ´çµÇ¸é
					if thirdPrintDay < 10 then thirdPrintDay1="0"&thirdPrintDay
					if thirdPrintDay >= 10 then thirdPrintDay1=thirdPrintDay    

					Cal_HTML=Cal_HTML& "<td title='"&intThisYear&"-"&intThisMonth1&"-"&thirdPrintDay1&"' style='cursor: hand;border: 1px solid white;width:18; height:18;"

					if  isToday=1 and thirdPrintDay-intThisDay=0 then '¿À´Ã ³¯Â¥À̸éÀº ±Û¾¾ÆùÆ®¸¦ ´Ù¸£°Ô
						Cal_HTML=Cal_HTML& "background-color:99CCFF;"
					end if
					if  intLoopDay=1 then 'ÀÏ¿äÀÏÀÌ¸é »¡°£ »öÀ¸·Î
						Cal_HTML=Cal_HTML& "color:red;"
					else ' ±×¿ÜÀÇ °æ¿ì
						Cal_HTML=Cal_HTML& "color:black;"
					end if
					Cal_HTML=Cal_HTML& "'>"&thirdPrintDay
				end if
				thirdPrintDay=thirdPrintDay+1 '³¯Â¥°ªÀ» 1 Áõ°¡

				if thirdPrintDay > intLastDay then  Stop_Flag=1  '¸¸¾à ³¯Â¥°ªÀÌ ¿ù¸»°ªº¸´Ù Å©¸é ·çÇÁ¹® Å»Ãâ
        
			end if
			Cal_HTML=Cal_HTML& "</td>"
		next
		Cal_HTML=Cal_HTML& "</tr>"
		if Stop_Flag=1 then EXIT FOR
	NEXT
	Cal_HTML=Cal_HTML& "</table>"
	Cal_HTML=Cal_HTML& ""
	Cal_HTML=Cal_HTML& ""
	document.all.minical.innerHTML=Cal_HTML
END Function