종료시간과 현재시간을 사용하여 남은 시간 구하기 > 퍼블리셔팁

퍼블리셔팁

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

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

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

본문

경매나 이런 부분에 사용하시면 될 것 같네요.
<%
  ' 남은 시간 구하기
  '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>
추천
0
  • 복사

댓글 0개

© SIRSOFT
현재 페이지 제일 처음으로