전환 시간의 함수. KingCMS에서의 시간 처리도 매우 강력하며이를 살펴볼 수 있습니다.
PHP의 날짜 () 기능은 너무 강력합니다. ASP를 사용하여 모방합니다.
따라서이 함수는 몇 시간 동안, 두 번째, 두 번째 및 추가로 형식화되지 않았습니다.
<%
'***********************************
'이름 : 시간 처리 기능
'기능 : FormatDate (str, dateTime)
'매개 변수 : str strings, dateTime 시간
'저자 : Xilou Lengyue
'날짜 : 2006/1/24
'URL : www.xilou.net | www.chinacms.org
'설명 : 반환 유형은 시간 유형이 아닌 문자열입니다. 오류는 False를 반환합니다.
'***********************************
함수 형식 (str, dateTime)
formatdate = false
iSDate (dateTime) = 거짓이면
formatdate = false
종료 기능
끝 If
'// 년, 월, 매주, 주, 일, 시간, 시간, 초
Dim Y, M, W, D, H, Min, S.
'// 숫자와 중국의 변환
Dim Numtocn, Cnstr
CNST는 |
CNSTRENTENT (Twenty -Extrese) |
CNSTR 및 THERTY -SIX -Eight |
CNSTRENT -FORTY -SEVER -SEVENT |
CNSTR = 55 |
numtocn = split (cnstr, |)
'// 숫자와 영어의 변환
Dim Numtoen, Enstr
ENSTR = 2 월 |
Enstr & Sunday |
numtoen = split (enstr, |)
'---------------------------------------------------------------- ----------------------------
'올해의 프로세스, 시간 시간에는 시간에 연도가 포함되어야합니다.
'태그 : 3 {ya} : 2006 {yb} : 06 {yc} : 2006
y = 년 (dateTime) ''
If inst (str, {ya})> 0 인 경우 str = replace (str, {ya}, y) '2006
If inst (str, {yb})> 0 인 경우 str = replace (str, {yb}, right (y, 2)) '06
IF DEST (str, {yc})> 0
Dim Yy '번호 및 중국 전환
yy = y
i = 0 ~ 9의 경우
yy = 교체 (yy, i, numtocn (i))
다음
str = replace (str, {yc}, yy) '2006
끝 If
'---------------------------------------------------------------- ----------------------------
'월간 처리, 시간 Datetime에는 연도 및 월이 포함되어야합니다
'태그 : 5 {ma} : 1 {mb} : 01 {mc} : a {md} : 1 월 {me} : Jan
M = Month (DateTime) '달을 얻으십시오
희미한 mm
If inst (str, {ma})> 0 인 경우 str = replace (str, {ma}, m) '1
IF DEST (str, {mb})> 0
M <10이면 MM = 0 & M
str = replace (str, {mb}, mm) '01
끝 If
'// 중국 1 월
If instr (str, {mc})> 0이면
mm = m
i = 1 ~ 12의 경우
mm = i 인 경우 mm = numtocn (i) : 종료
다음
str = replace (str, {mc}, mm) '
끝 If
'// 영어 1 월
IF DEST (str, {md})> 0
mm = m
i = 1 ~ 12의 경우
mm = i 인 경우 mm = numtoen (i-1) : 종료
다음
str = replace (str, {md}, mm)
끝 If
'// 영어 약어 Jan
If instr (str, {me})> 0이면 str = replace (str, {me}, 왼쪽 (mm, 3))
'---------------------------------------------------------------- ----------------------------------------------
'과정에서 시간 날짜는 연도를 포함해야합니다.
'태그 : 4 {da} : 1 {db} : 01 {dc} : a {dd} : 1st
d = day (dateTime) '
Dim DD
'// 1 번
if inst (str, {da})> 0 인 경우 str = replace (str, {da}, d)
'// 번호 01
IF DEST (str, {db})> 0이면
DD = d
DD <10이면 DD = 0 & DD
str = replace (str, {db}, dd)
끝 If
'// 중국어 1
IF DEST (str, {dc})> 0
DD = d
i = 1 ~ 31의 경우
DD = I 인 경우 dd = numtocn (i) : 종료
다음
str = replace (str, {dc}, dd)
끝 If
'// 영어 24 일
IF DEST (str, {dd})> 0이면
DD = d
케이스 DD를 선택하십시오
사례 1, 21, 31
DD = DD & ST
사례 2, 22
DD = DD & ND
사례 3, 23
DD = DD & RD
다른 경우
DD = DD & TH
종료 선택
str = replace (str, {dd}, dd)
끝 If
'---------------------------------------------------------------- ----------------------------------------------
'달콤하고 시간 datetime은 연도를 포함해야합니다.
'태그 : 4 {wa} : 1 {wb} : 금요일 {wc} : {wd} : tue
W = 평일 (반죽)
DIM WW
'// 번호 5
if instr (str, {wa})> 0이면 str = replace (str, {wa}, w)
'// 영어 금요일
IF DEST (str, {wb})> 0이면
i = 1 ~ 7의 경우
W = I 인 경우 str = replace (str, {wb}, numtoen (i+11)) : 종료
다음
끝 If
'// 중국인 5
IF DEST (str, {wc})> 0이면
ww = w
WW = 1이면
str = replace (str, {wc}, day)
또 다른
i = 2 ~ 7의 경우
ww = i 인 경우 str = replace (str, {wc}, numtocn (i-1)) : 종료
다음
끝 If
끝 If
'// 영어 약어 tue
IF DEST (str, {wd})> 0이면
i = 1 ~ 7의 경우
w = i 그런 다음 str = replace (str, {wd}, 왼쪽 (numtoen (i+11), 3)) : 종료
다음
끝 If
'---------------------------------------------------------------- ----------------------------------------------
'처리 시간, 시간 datetime 시간에는 시간이 포함되어야합니다
'상표:
h = 시간 (dateTime)
Dim HH
formatdate = str
엔드 기능
%>
<%
'예
'sub br ()
'응답 .write <br/> & vbcrf
'종료 서브
'sub out (str)
'Response.write str & vbcrlf
'br
'종료 서브
'----------- 시험
'Dim S, t
'S = 올해는 {yc} 연도 {yb} 년 {ya} 년 {ma} month {mb} month {mc} month {md} {me} {da} day {db} day {dd day dd dd } 주 {wb} | {wd} 주 {wc}
't = 지금 ()
'Out FormatDate (s, t)
%>