종료시간과 현재시간을 사용하여 남은 시간 구하기
경매나 이런 부분에 사용하시면 될 것 같네요.
<%
' 남은 시간 구하기
'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>
<%
' 남은 시간 구하기
'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>
|
댓글을 작성하시려면 로그인이 필요합니다.
프로그램
태그 필터 (최대 3개)
전체
개발자
소스
기타
mysql
팁자료실
javascript
php
linux
flash
정규표현식
jquery
node.js
mobile
웹서버
os
프로그램
강좌
썸네일
이미지관련
도로명주소
그누보드5
기획자
견적서
계약서
기획서
마케팅
제안서
seo
통계
서식
통계자료
퍼블리셔
html
css
반응형
웹접근성
퍼블리싱
표준화
반응형웹
홈페이지기초
부트스트랩
angularjs
포럼
스크린리더
센스리더
개발자톡
개발자팁
퍼블리셔톡
퍼블리셔팁
기획자톡
기획자팁
프로그램강좌
퍼블리싱강좌