<%
関数 GetRanNum()
「******************************************
'関数名: GetRanNum
'機能: 乱数を日付形式で出力します
'パラメータ: なし ----
'戻り値: GetRanNum() など。200409071553464617 を出力します。これは、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
'機能: 桁ビットの左側に 0 を含む整数を出力します。
'パラメータ: 式 ----フォーマットされる整数
'パラメータ: Digit ---- 書式設定する桁数
'戻り値: 0005 など、FormatIntNumber(5,4) など、整数 5 は 0005 としてフォーマットされます
'関連機能: なし
「******************************************
While Len(式) < 数字
式 = "0"&式
曲がります
FormatIntNumber = 式
終了機能
%><%
関数 GetRanNum()
「******************************************
'関数名: GetRanNum
'機能: 乱数を日付形式で出力します
'パラメータ: なし ----
'戻り値: GetRanNum() など。200409071553464617 を出力します。これは、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
'機能: 桁ビットの左側に 0 を含む整数を出力します。
'パラメータ: 式 ----フォーマットされる整数
'パラメータ: Digit ---- 書式設定する桁数
'戻り値: 0005 など、FormatIntNumber(5,4) など、整数 5 は 0005 としてフォーマットされます
'関連機能: なし
「******************************************
While Len(式) < 数字
式 = "0"&式
曲がります
FormatIntNumber = 式
終了機能
%>