日期:2015/6/28来源: IT猫扑网
计算分页,嘿嘿一次搞定不用判断
以下为引用的内容: intNumPage = Abs(Int(-(intNumRecord/intPerpage))) |
以下为引用的内容: Function DateToRFC822(byVal dtaVal) Dim strCurLocale : strCurLocale = GetLocale() SetLocale("en-gb") dtaVal = CDate(dtaVal) DateToRFC822 = WeekdayName(Weekday(dtaVal),True)&","&_ Right("0"&Day(dtaVal),2)&" "&_ MonthName(Month(dtaVal),True)&" "&_ Year(dtaVal)&" "&_ Right("0"&Hour(dtaVal),2)&":"&_ Right("0"&Minute(dtaVal),2)&":"& _ Right("0"&Second(dtaVal),2)&" "& _ " +0800" SetLocale(strCurLocale) End Function |
相关文章
相关下载
网友评论