Calculer la pagination, hé, ça se fait en une seule fois sans aucun jugement.
Voici le contenu cité :
intNumPage = Abs(Int(-(intNumRecord/intPerPage)))
Formatez la date au format RFC822. La méthode précédente était problématique. Jetez un œil à celle-ci.
Voici le contenu cité :
Fonction DateToRFC822(byVal dtaVal)
Dim strCurLocale : strCurLocale = GetLocale()
SetLocale(fr-fr)
dtaVal = CDate(dtaVal)
DateToRFC822 = WeekdayName(Weekday(dtaVal),True)&,&_
Droite(0&Jour(dtaVal),2)& &_
NomMois(Mois(dtaVal),Vrai)& &_
Année(dtaVal)& &_
Droite(0&Heure(dtaVal),2)&:&_
Droite(0&Minute(dtaVal),2)&:& _
Droite(0&Seconde(dtaVal),2)& & _
+0800
DéfinirLocale(strCurLocale)
Fonction de fin