Calcule la paginación, oye, se hace de una vez sin ningún juicio.
El siguiente es el contenido citado:
intNumPage = Abs(Int(-(intNumRecord/intPerPage)))
Formatee la fecha en formato RFC822. El método anterior era problemático. Mire este sencillo.
El siguiente es el contenido citado:
Función DateToRFC822(byVal dtaVal)
Dim strCurLocale: strCurLocale = GetLocale()
SetLocale(es-es)
dtaVal = CDate(dtaVal)
DateToRFC822 = Nombre del día de la semana(Día de la semana(dtaVal),Verdadero)&,&_
Derecha(0&Día(dtaVal),2)& &_
NombredelMes(Mes(dtaVal),Verdadero)& &_
Año(dtaVal)& &_
Derecha(0&Hora(dtaVal),2)&:&_
Derecha(0&Minuto(dtaVal),2)&:& _
Derecha(0&Segundo(dtaVal),2)& & _
+0800
Establecer configuración local (strCurLocale)
Función final