종료시간과 현재시간을 사용하여 남은 시간 구하기

경매나 이런 부분에 사용하시면 될 것 같네요.
<%
' 남은 시간 구하기
'DateDiff함수를 이용하면 쉽게 구현할 수 있습니다.
y = Left(st_dt, 4)
m = Mid(st_dt, 5, 2)
d = Right(st_dt, 2)

End_date = y&"-"&m&"-"&d&" 23:59:59" '종료 시각 - 개시일의 마지막시간

' Response.Write "End date : " & End_date

'종료일 까지 몇초 남았는지 계산하여 이 값을
'일,시간,분으로 변환하여 표현하면 됩니다.
S_remain = datediff("s",now(),End_date)

IF S_remain < 0 then ''결과가 음수이면 경매기간 경과이다.
h1 = 0
h2 = 0
m1 = 0
m2 = 0
s1 = 0
s2 = 0
Else
''결과가 양수이면 다음을 처리한다.

DD = Cint(S_remain / 86400) '몇일 남았는지.. 하루가 86400초이므로...

HH = Cint(S_remain/ 3600) mod 24 '몇시간 남았는지.. 남은 일 수를 제외하고 시간만 구한다.

MM = Cint(S_remain/ 60) mod 60 '몇분 남았는지..남은 시간은 제외하고 분만 구함

SS = S_remain mod 60

' 화면에 출력한다
If HH < 10 Then
h1 = 0
h2 = HH
Else
h1 = Left(CStr(HH), 1)
h2 = Right(CStr(HH), 1)
End If

If MM < 10 Then
m1 = 0
m2 = MM
Else
m1 = Left(CStr(MM), 1)
m2 = Right(CStr(MM), 1)
End If

If SS < 10 Then
s1 = 0
s2 = SS
Else
s1 = Left(CStr(SS), 1)
s2 = Right(CStr(SS), 1)
End If
' response.write "경매 종료시각까지 "& dd & "일 " & right("0" & hh,2) & ":" & right("0" & mm,2) & ":" & ss & " 남았습니다"
End If

%><div class='small'>[이 게시물은 관리자님에 의해 2011-10-31 16:46:12 기타에서 이동 됨]</div>