<%
Fungsi DapatkanRanNum()
'*********************************************
'Nama fungsi: GetRanNum
'Fungsi: Menghasilkan angka acak dengan format tanggal
'Parameter: Tidak ada ----
'Nilai kembalian: seperti GetRanNum(), yang menghasilkan 200409071553464617, yaitu 4617 angka acak pada 15:53:46 tanggal 7 September 2004
'Fungsi terkait: FormatIntNumber
'*********************************************
DapatkanRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(tahun(sekarang),4)
GetRanNum = GetRanNum&FormatIntNumber(bulan(sekarang),2)
GetRanNum = GetRanNum&FormatIntNumber(hari(sekarang),2)
GetRanNum = GetRanNum&FormatIntNumber(jam(sekarang),2)
GetRanNum = GetRanNum&FormatIntNumber(menit(sekarang),2)
GetRanNum = GetRanNum&FormatIntNumber(kedua(sekarang),2)
mengacak
jumlah ran=int((9000*rnd)+1000)
GetRanNum = DapatkanRanNum&ranNum
Fungsi Akhir
Fungsi FormatIntNumber (Ekspresi, Digit)
'*********************************************
'Nama fungsi: FormatIntNumber
'Fungsi: Menghasilkan bilangan bulat dengan 0 di sisi kiri bit Digit
'Parameter: Ekspresi ---- Bilangan bulat yang akan diformat
'Parameter: Digit ---- jumlah digit yang akan diformat
'Nilai kembalian: seperti 0005, seperti FormatIntNumber(5,4), bilangan bulat 5 diformat sebagai 0005
'Fungsi terkait: tidak ada
'*********************************************
Sedangkan Len(Ekspresi) < Digit
Ekspresi = "0"&Ekspresi
pergi ke
FormatIntNumber = Ekspresi
Fungsi Akhir
%><%
Fungsi DapatkanRanNum()
'*********************************************
'Nama fungsi: GetRanNum
'Fungsi: Menghasilkan angka acak dengan format tanggal
'Parameter: Tidak ada ----
'Nilai kembalian: seperti GetRanNum(), yang menghasilkan 200409071553464617, yaitu 4617 angka acak pada 15:53:46 tanggal 7 September 2004
'Fungsi terkait: FormatIntNumber
'*********************************************
DapatkanRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(tahun(sekarang),4)
GetRanNum = GetRanNum&FormatIntNumber(bulan(sekarang),2)
GetRanNum = GetRanNum&FormatIntNumber(hari(sekarang),2)
GetRanNum = GetRanNum&FormatIntNumber(jam(sekarang),2)
GetRanNum = GetRanNum&FormatIntNumber(menit(sekarang),2)
GetRanNum = GetRanNum&FormatIntNumber(kedua(sekarang),2)
mengacak
jumlah ran=int((9000*rnd)+1000)
GetRanNum = DapatkanRanNum&ranNum
Fungsi Akhir
Fungsi FormatIntNumber (Ekspresi, Digit)
'*********************************************
'Nama fungsi: FormatIntNumber
'Fungsi: Menghasilkan bilangan bulat dengan 0 di sisi kiri bit Digit
'Parameter: Ekspresi ---- Bilangan bulat yang akan diformat
'Parameter: Digit ---- jumlah digit yang akan diformat
'Nilai kembalian: seperti 0005, seperti FormatIntNumber(5,4), bilangan bulat 5 diformat sebagai 0005
'Fungsi terkait: tidak ada
'*********************************************
Sedangkan Len(Ekspresi) < Digit
Ekspresi = "0"&Ekspresi
pergi ke
FormatIntNumber = Ekspresi
Fungsi Akhir
%>