[已解决]如何用vba表示前一个工作日的日期

含月化烛

用vba将报表的名称自动变为前一个工作日的日期，应该怎么表示？
       我之前都是自动变为前一天的日期，用
       Format(Now()-1, "yyyy-m-d")
    这样表达，但是假如12月8号是周一，我需要做上周五的报表，名称也自动定义为上周五的时间，即“报表12-5”，应该怎么表示呢？
      我只知道在excel中可以用workday()这个函数。

最佳答案

月排行榜 / 总排行榜

xdragon

2014-12-5 18:37

1. Function workday(dat As Date) As Date
   
2.     Select Case dat Mod 7
   
3.          Case 1
   
4.              workday = dat - 2
   
5.          Case 2
   
6.              workday = dat - 3
   
7.          Case Else
   
8.              workday = dat - 1
   
9.     End Select
   
10. End Function

复制代码

可以自定义函数嘛

Format(Now()-1, "yyyy-m-d")改成 format(workday(now()),"yyyy-m-d"

跳转到最佳答案楼层

xdragon

1. Function workday(dat As Date) As Date
   
2.     Select Case dat Mod 7
   
3.          Case 1
   
4.              workday = dat - 2
   
5.          Case 2
   
6.              workday = dat - 3
   
7.          Case Else
   
8.              workday = dat - 1
   
9.     End Select
   
10. End Function

复制代码

可以自定义函数嘛

Format(Now()-1, "yyyy-m-d")改成 format(workday(now()),"yyyy-m-d"

qh8600

来个简单的判断
    Dim x As Date
    If Date Mod 7 = 2 Then
        x = Date - 3
    Else
        x = Date - 1
    End If