VBScript纯数学星期算法。

最新推荐文章于 2019-01-08 02:54:12 发布

KiteGirl

最新推荐文章于 2019-01-08 02:54:12 发布

阅读量933

点赞数 2

分类专栏：玄菟郡VB6.0研究所文章标签： vbscript 算法 function string date sun

本文链接：https://blog.csdn.net/KiteGirl/article/details/6758659

版权

玄菟郡VB6.0研究所专栏收录该内容

9 篇文章 0 订阅

订阅专栏

Function WeekGetByDate(pDate, pMode)
  'WeekGetByDate函数
  '格式:[tOutWeekName] = WeekGetByDate(pDate, pMode)
  '说明:获取日期对应的星期名称。
  '格式:date   pDate        日期
  '     long   pMode        星期名称页
  '                           =0 英文缩写
  '                           =1 英文全称
  '                           =2 中文缩写
  '                           =3 中文全称
  '                           =4 七曜缩写
  '                           =5 七曜全称
  '     string tOutWeekName 日期对应的星期名称
  tCentury = Year(pDate) \ 100
  tYear = Year(pDate) Mod 100
  tMonth = Month(pDate)
  tDay = Day(pDate)
  tWeek_Century = (3 - tCentury Mod 4) * 2
  tWeek_Year = tYear + (tYear \ 4)
  tWeek_Month = Asc(Mid("033614625035", tMonth, 1)) - 48
  tWeek_Day = tDay Mod 7
  tOutWeek = (tWeek_Century + tWeek_Year + tWeek_Month + tWeek_Day) Mod 7 + pMode * 7
  tWeekName = "Sun,Mon,Tues,Wed,Thur,Fri,Sat,Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,日,一,二,三,四,五,六,星期日,星期一,星期二,星期三,星期四,星期五,星期六,日,月,火,水,木,金,土,日曜日,月曜日,火曜日,水曜日,木曜日,金曜日,土曜日"
  tOutWeekName = Split(tWeekName,",")(tOutWeek)
  WeekGetByDate = tOutWeekName
End Function