Hitung paging, hei, itu dilakukan sekaligus tanpa penilaian apa pun.
Berikut isi kutipannya:
intNumPage = Abs(Int(-(intNumRecord/intPerPage)))
Format tanggal ke dalam format RFC822. Cara sebelumnya merepotkan.
Berikut isi kutipannya:
Fungsi DateToRFC822(olehVal dtaVal)
Redupkan strCurLocale : strCurLocale = GetLocale()
SetLokal(en-gb)
dtaVal = CDate(dtaVal)
DateToRFC822 = NamaHari Kerja(Hari Kerja(dtaVal),Benar)&,&_
Kanan(0&Hari(dtaVal),2)& &_
Nama Bulan(Bulan(dtaVal),Benar)& &_
Tahun(dtaVal)& &_
Kanan(0&Jam(dtaVal),2)&:&_
Kanan(0&Menit(dtaVal),2)&:& _
Kanan(0&Kedua(dtaVal),2)& & _
+0800
SetLocale(strCurLocale)
Fungsi Akhir