随机给日期，算出日期周的周一的年月日

1. Function gdate(TheDay)  
   
2.     Dim WeekNum
   
3.     WeekNum = Weekday(TheDay, 2)
   
4.     For i = 1 To 7  
   
5.         num = i -1  
   
6. 
   
7.         If i = WeekNum Then
   
8.             If WeekNum = 1 Then '如果日期是周一
   
9.                 gdate = begday  
   
10.             Else
    
11.                 gdate = DateAdd("d", - num, TheDay) '如果日期不是周一
    
12.             End If
    
13. 
    
14.             Exit For
    
15.         End If
    
16.     Next
    
17. End Function

复制代码