查看: 863|回复: 0

[文章教程] 给日期算出当周剩余几天,

[复制链接]
冰河非非 发表于 2019-7-6 17:23:09 | 显示全部楼层 |阅读模式
  1. Function gday(rq)

  2.     For i = Weekday(rq, 2) To 7 '规定2为星期一
  3.         ts = 7 - i
  4.         If i = Weekday(rq, 2) Then
  5.             gday = ts
  6.             Exit For
  7.         End If
  8.     Next
  9. End Function
复制代码




写代码时用到的,有错请指出。
运行结果:response.Write gday(date())

您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号