본문 바로가기
ASP

ASP 날자 함수

by 씨엔아이소프트 2019. 5. 29.
반응형

'===========================================================
' 함 수 명 : 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

반응형

'ASP' 카테고리의 다른 글

ASP 날자 함수  (0) 2019.05.29
ASP 현재 날짜  (0) 2019.05.29
ABCUpload 한글 깨짐 현상 UTF-8변경  (0) 2018.12.10
[ASP] UTF 한글깨짐  (0) 2018.12.06

댓글0