Calcule a paginação, ei, é feito de uma só vez, sem qualquer julgamento.
A seguir está o conteúdo citado:
intNumPage = Abs(Int(-(intNumRecord/intPerPage)))
Formate a data no formato RFC822 O método anterior era problemático. Dê uma olhada neste método simples.
A seguir está o conteúdo citado:
Função DateToRFC822(byVal dtaVal)
Dim strCurLocale: strCurLocale = GetLocale()
SetLocale(pt-br)
dtaVal = CDate(dtaVal)
DateToRFC822 = WeekdayName(Weekday(dtaVal),True)&,&_
Certo(0&Dia(dtaVal),2)& &_
NomeDoMês(Mês(dtaVal),Verdadeiro)& &_
Ano(dtaVal)& &_
Direita(0&Hora(dtaVal),2)&:&_
Direita(0&Minuto(dtaVal),2)&:& _
Direita(0&Segundo(dtaVal),2)& & _
+0800
SetLocale(strCurLocale)
Função final