페이징 계산, 아무런 판단 없이 한 번에 완료됩니다.
인용된 내용은 다음과 같습니다.
intNumPage = Abs(Int(-(intNumRecord/intPerPage)))
날짜를 RFC822 형식으로 지정하는 것은 번거로운 작업이었습니다.
인용된 내용은 다음과 같습니다.
함수 DateToRFC822(byVal dtaVal)
희미한 strCurLocale : strCurLocale = GetLocale()
SetLocale(en-gb)
dtaVal = CDate(dtaVal)
DateToRFC822 = WeekdayName(Weekday(dtaVal),True)&,&_
오른쪽(0&Day(dtaVal),2)& &_
월이름(월(dtaVal),True)& &_
연도(dtaVal)& &_
오른쪽(0&시간(dtaVal),2)&:&_
오른쪽(0&분(dtaVal),2)&:& _
오른쪽(0&초(dtaVal),2)& & _
+0800
SetLocale(strCurLocale)
기능 종료