查看: 116|回复: 0

[文章教程] 随机给日期,算出日期周的周一的年月日

[复制链接]
冰河非非 发表于 2019-7-6 17:26:19 | 显示全部楼层 |阅读模式
  1. Function gdate(TheDay)  
  2.     Dim WeekNum
  3.     WeekNum = Weekday(TheDay, 2)
  4.     For i = 1 To 7  
  5.         num = i -1  

  6.         If i = WeekNum Then
  7.             If WeekNum = 1 Then '如果日期是周一
  8.                 gdate = begday  
  9.             Else
  10.                 gdate = DateAdd("d", - num, TheDay) '如果日期不是周一
  11.             End If

  12.             Exit For
  13.         End If
  14.     Next
  15. End Function
复制代码

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

本版积分规则

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

在线客服

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