قم بحساب الترحيل، يتم ذلك دفعة واحدة دون أي حكم.
وفيما يلي المحتوى المقتبس:
intNumPage = Abs(Int(-(intNumRecord/intPerPage)))
قم بتنسيق التاريخ بتنسيق RFC822. كانت الطريقة السابقة مزعجة. ألق نظرة على هذه الطريقة البسيطة.
وفيما يلي المحتوى المقتبس:
وظيفة DateToRFC822 (byVal dtaVal)
خافت strCurLocale: strCurLocale = GetLocale()
SetLocale(en-gb)
dtaVal = CDate(dtaVal)
DateToRFC822 = WeekdayName(Weekday(dtaVal),True)&,&_
يمين(0&يوم(dtaVal),2)& &_
اسم الشهر(الشهر(dtaVal)،صحيح)& &_
السنة (dtaVal)& &_
يمين(0&ساعة(dtaVal),2)&:&_
يمين(0&دقيقة(dtaVal),2)&:& _
اليمين(0&Second(dtaVal),2)& & _
+0800
SetLocale(strCurLocale)
وظيفة النهاية