Berechnen Sie das Paging, hey, das geht in einem Rutsch ohne jegliches Urteil.
Nachfolgend der zitierte Inhalt:
intNumPage = Abs(Int(-(intNumRecord/intPerPage)))
Formatieren Sie das Datum im RFC822-Format. Die vorherige Methode war mühsam.
Nachfolgend der zitierte Inhalt:
Funktion DateToRFC822(byVal dtaVal)
Dimmen Sie strCurLocale: strCurLocale = GetLocale()
SetLocale(en-gb)
dtaVal = CDate(dtaVal)
DateToRFC822 = WeekdayName(Weekday(dtaVal),True)&,&_
Right(0&Day(dtaVal),2)& &_
MonthName(Month(dtaVal),True)& &_
Jahr(dtaVal)& &_
Right(0&Hour(dtaVal),2)&:&_
Right(0&Minute(dtaVal),2)&:& _
Right(0&Second(dtaVal),2)& & _
+0800
SetLocale(strCurLocale)
Funktion beenden