-
ฟังก์ชัน GetRanNum()
-
'ชื่อฟังก์ชัน: GetRanNum
'ฟังก์ชั่น: เอาท์พุทตัวเลขสุ่มพร้อมรูปแบบวันที่
'พารามิเตอร์: ไม่มี ----
'ค่าส่งคืน: เช่น GetRanNum() ซึ่งแสดงผล 200409071553464617 ซึ่งเป็นตัวเลขสุ่ม 4617 ตัว ณ เวลา 15:53:46 น. ของวันที่ 7 กันยายน พ.ศ. 2547
'ฟังก์ชันที่เกี่ยวข้อง: 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*รอบ)+1000)
GetRanNum = GetRanNum&ranNum
ฟังก์ชันสิ้นสุด
ฟังก์ชัน FormatIntNumber(นิพจน์,ตัวเลข)
-
'ชื่อฟังก์ชัน: FormatIntNumber
'ฟังก์ชัน: เอาต์พุตจำนวนเต็มด้วย 0 ทางด้านซ้ายของบิตหลัก
'พารามิเตอร์: นิพจน์ ---- จำนวนเต็มที่จะจัดรูปแบบ
'พารามิเตอร์: หลัก ---- จำนวนหลักที่จะจัดรูปแบบ
'ค่าที่ส่งคืน: เช่น 0005 เช่น FormatIntNumber(5,4) จำนวนเต็ม 5 จะถูกจัดรูปแบบเป็น 0005
'ฟังก์ชันที่เกี่ยวข้อง: ไม่มี'
-
ในขณะที่ Len(นิพจน์) < Digit
นิพจน์ = "0"&นิพจน์
เวน
FormatIntNumber = นิพจน์
ฟังก์ชันสิ้นสุด
-
ฟังก์ชัน GetRanNum()
-
'ชื่อฟังก์ชัน: GetRanNum
'ฟังก์ชั่น: เอาท์พุทตัวเลขสุ่มพร้อมรูปแบบวันที่
'พารามิเตอร์: ไม่มี ----
'ค่าส่งคืน: เช่น GetRanNum() ซึ่งแสดงผล 200409071553464617 ซึ่งเป็นตัวเลขสุ่ม 4617 ตัว ณ เวลา 15:53:46 น. ของวันที่ 7 กันยายน พ.ศ. 2547
'ฟังก์ชันที่เกี่ยวข้อง: 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*รอบ)+1000)
GetRanNum = GetRanNum&ranNum
ฟังก์ชันสิ้นสุด
ฟังก์ชัน FormatIntNumber(นิพจน์,ตัวเลข)
-
'ชื่อฟังก์ชัน: FormatIntNumber
'ฟังก์ชัน: เอาต์พุตจำนวนเต็มด้วย 0 ทางด้านซ้ายของบิตหลัก
'พารามิเตอร์: นิพจน์ ---- จำนวนเต็มที่จะจัดรูปแบบ
'พารามิเตอร์: หลัก ---- จำนวนหลักที่จะจัดรูปแบบ
'ค่าที่ส่งคืน: เช่น 0005 เช่น FormatIntNumber(5,4) จำนวนเต็ม 5 จะถูกจัดรูปแบบเป็น 0005
'ฟังก์ชันที่เกี่ยวข้อง: ไม่มี'
-
ในขณะที่ Len(นิพจน์) < Digit
นิพจน์ = "0"&นิพจน์
เวน
FormatIntNumber = นิพจน์
ฟังก์ชันสิ้นสุด
-