<%
함수 GetRanNum()
'********************************************
'함수 이름: GetRanNum
'기능: 날짜 형식으로 난수를 출력합니다.
'매개변수: 없음 ----
'반환 값: 200409071553464617을 출력하는 GetRanNum()과 같은 값은 2004년 9월 7일 15시 53분 46초에 4617개의 난수입니다.
'관련 함수: FormatIntNumber
'********************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(연도(현재),4)
GetRanNum = GetRanNum&FormatIntNumber(월(현재),2)
GetRanNum = GetRanNum&FormatIntNumber(일(현재),2)
GetRanNum = GetRanNum&FormatIntNumber(시간(현재),2)
GetRanNum = GetRanNum&FormatIntNumber(분(현재),2)
GetRanNum = GetRanNum&FormatIntNumber(초(현재),2)
무작위화하다
ranNum=int((9000*rnd)+1000)
GetRanNum = GetRanNum&ranNum
기능 종료
함수 FormatIntNumber(표현식,숫자)
'********************************************
'함수 이름: FormatIntNumber
'기능: Digit 비트 왼쪽에 0이 포함된 정수를 출력합니다.
'매개변수: 표현식 ----형식을 지정할 정수
'파라미터: Digit ---- 포맷할 자릿수
'반환 값: 예: 0005, 예: FormatIntNumber(5,4), 정수 5는 0005로 형식화됩니다.
'관련 기능: 없음
'********************************************
Len(표현식) < 숫자인 동안
표현식 = "0"&표현
향하게 하다
FormatIntNumber = 표현식
기능 종료
%><%
함수 GetRanNum()
'********************************************
'함수 이름: GetRanNum
'기능: 날짜 형식으로 난수를 출력합니다.
'매개변수: 없음 ----
'반환 값: 200409071553464617을 출력하는 GetRanNum()과 같은 값은 2004년 9월 7일 15시 53분 46초에 4617개의 난수입니다.
'관련 함수: FormatIntNumber
'********************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(연도(현재),4)
GetRanNum = GetRanNum&FormatIntNumber(월(현재),2)
GetRanNum = GetRanNum&FormatIntNumber(일(현재),2)
GetRanNum = GetRanNum&FormatIntNumber(시간(현재),2)
GetRanNum = GetRanNum&FormatIntNumber(분(현재),2)
GetRanNum = GetRanNum&FormatIntNumber(초(현재),2)
무작위화하다
ranNum=int((9000*rnd)+1000)
GetRanNum = GetRanNum&ranNum
기능 종료
함수 FormatIntNumber(표현식,숫자)
'********************************************
'함수 이름: FormatIntNumber
'기능: Digit 비트 왼쪽에 0이 포함된 정수를 출력합니다.
'매개변수: 표현식 ----형식을 지정할 정수
'파라미터: Digit ---- 포맷할 자릿수
'반환 값: 예: 0005, 예: FormatIntNumber(5,4), 정수 5는 0005로 형식화됩니다.
'관련 기능: 없음
'********************************************
Len(표현식) < 숫자인 동안
표현식 = "0"&표현
향하게 하다
FormatIntNumber = 표현식
기능 종료
%>