ASP 날자 함수

'===========================================================
' 함 수 명 : sel_Time(strVar, strNow)
' 설 명 : 시간 Select Box
' 입 력 값 :
' 출 력 값 :
'===========================================================
Sub sel_Time(strVar, strNow)

str = "<select name="""&strVar&""">"

for i = 0 to 23
If strNow = i Then
Teml_select = "selected"
End If
if len(i) < 2 then
Temp_i = "0"&i
else
Temp_i = i
end if
str = str & "<option value="""&Temp_i&""" "&Teml_select&">"&Temp_i&"" Teml_select = ""
next

str = str & ""

Response.Write str

End Sub

'===========================================================
' 함 수 명 : sel_Min(strVar, strNow)
' 설 명 : 시간 Select Box
' 입 력 값 :
' 출 력 값 :
'===========================================================
Sub sel_Min(strVar, strNow)

str = "<select name="""&strVar&""">"

for i = 0 to 59
If strNow = i Then
Teml_select = "selected"
End If
if len(i) < 2 then
Temp_i = "0"&i
else
Temp_i = i
end if
str = str & "<option value="""&Temp_i&""" "&Teml_select&">"&Temp_i&"" Teml_select = ""
next

str = str & ""

Response.Write str

End Sub

'===========================================================
' 함 수 명 : sel_Year()
' 설 명 : 년도 Select Box
' 입 력 값 :
' 출 력 값 :
'===========================================================
Sub sel_Year(strVar, strNow)

str = "<select name="""&strVar&""">"

for i = 2006 to 2010
If strNow = i Then
Teml_select = "selected"
End if
str = str & "<option value="""&i&""" "&Teml_select&">"&i&"" Teml_select = ""
next

str = str & ""

Response.Write str

End Sub

'===========================================================
' 함 수 명 : sel_Month()
' 설 명 : 월 Select Box
' 입 력 값 :
' 출 력 값 :
'===========================================================
Sub sel_Month(strVar, strNow)

str = "<select name="""&strVar&""">"

for i = 1 to 12
If strNow = i Then
Teml_select = "selected"
End if
if len(i) < 2 then
Temp_i = "0"&i
else
Temp_i = i
end if
str = str & "<option value="""&Temp_i&""" "&Teml_select&">"&Temp_i&"" Teml_select = ""
next

str = str & ""

Response.Write str

End Sub

'===========================================================
' 함 수 명 : sel_Day()
' 설 명 : 일 Select Box
' 입 력 값 :
' 출 력 값 :
'===========================================================
Sub sel_Day(strVar, strNow)

str = "<select name="""&strVar&""">"

for i = 1 to 31
If strNow = i Then
Teml_select = "selected"
End if
if len(i) < 2 then
Temp_i = "0"&i
else
Temp_i = i
end if
str = str & "<option value="""&Temp_i&""" "&Teml_select&">"&Temp_i&"" Teml_select = ""
next

str = str & ""

Response.Write str

End Sub