Посчитайте пейджинг, эй, это делается за один раз, без каких-либо оценок.
Ниже приводится цитируемое содержание:
intNumPage = Abs(Int(-(intNumRecord/intPerPage)))
Отформатируйте дату в формате RFC822. Предыдущий метод был непростым. Взгляните на этот простой.
Ниже приводится цитируемое содержание:
Функция DateToRFC822(byVal dtaVal)
Тусклый strCurLocale: strCurLocale = GetLocale()
SetLocale(ru-gb)
dtaVal = CDate(dtaVal)
DateToRFC822 = ИмяДня недели(День недели(dtaVal),True)&,&_
Вправо(0&Day(dtaVal),2)& &_
MonthName(Месяц(dtaVal),True)& &_
Год(dtaVal)& &_
Вправо(0&Час(dtaVal),2)&:&_
Вправо(0&Минута(dtaVal),2)&:& _
Вправо(0&Second(dtaVal),2)& & _
+0800
SetLocale(strCurLocale)
Конечная функция