คำนวณเพจจิ้ง ทำได้ในครั้งเดียวโดยไม่ต้องตัดสินใดๆ
ต่อไปนี้เป็นเนื้อหาที่ยกมา:
intNumPage = Abs(Int(-(intNumRecord/intPerPage)))
จัดรูปแบบวันที่เป็นรูปแบบ RFC822 วิธีก่อนหน้านี้ยุ่งยาก ลองดูวิธีง่ายๆ นี้
ต่อไปนี้เป็นเนื้อหาที่ยกมา:
ฟังก์ชั่น DateToRFC822(byVal dtaVal)
หรี่ strCurLocale : strCurLocale = GetLocale()
SetLocale(en-gb)
dtaVal = CDate(dtaVal)
DateToRFC822 = ชื่อวันทำงาน(วันทำงาน(dtaVal),จริง)&,&_
ขวา(0&วัน(dtaVal),2)& &_
ชื่อเดือน(เดือน(dtaVal),จริง)& &_
ปี(dtaVal)& &_
ขวา(0&ชั่วโมง(dtaVal),2)&:&_
ขวา(0&นาที(dtaVal),2)&:& _
ขวา(0&วินาที(dtaVal),2)& & _
+0800
SetLocale(strCurLocale)
ฟังก์ชันสิ้นสุด