J

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

· 2010-12-09 (목) 17:31:26 · 2399
경매나 이런 부분에 사용하시면 될 것 같네요.
<%
' 남은 시간 구하기
'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>
|
댓글을 작성하시려면 로그인이 필요합니다.

팁게시판

6,077건

디자인과 관련된 유용한 정보를 공유하세요. 질문은 상단의 QA에서 해주시기 바랍니다.

+
제목 글쓴이 날짜 조회
11-06-21 조회 1,107
11-06-13 조회 874
11-06-07 조회 845
11-05-26 조회 850
11-04-20 조회 1,234
11-03-21 조회 1,382
11-03-18 조회 998
11-03-11 조회 1,203
11-02-07 조회 1,074
11-01-18 조회 1,301
11-01-12 조회 980
11-01-06 조회 1,210
10-12-10 조회 1,535
10-12-09 조회 1,244
10-12-08 조회 3,712
10-11-29 조회 1,428
10-11-28 조회 1,350
10-11-28 조회 1,273
10-11-19 조회 1,387
10-11-04 조회 1,314
10-10-21 조회 1,103
10-10-19 조회 2,065
10-10-12 조회 1,365
10-10-07 조회 1,146
10-09-30 조회 2,036