请教高手关于日期的问题

stevenyan

有两个问题：
1.在仓库管理中，每天都有几十张订单，但每天发货次数只能计算成一次，请教：如何统计每周或每月的发货次数？
2.主表中有发车日期、预定到货日期、实际到货日期以及制表日期，另有一表为各城市运输天数，在主表的窗体中已经实现了选择城市、输入发车日期后，根据“各城市运输天数”表自动计算出预定到货日期、实际到货日期和制表日期（制表日期为实际到货日期后一天），请教：一旦制表日期遇到周六和周日，能否显示为下周一的日期？这个公式应该如何表达？

请各位高手慷慨赐教！
谢谢！

zzh_fz

对于第2个问题，我试编写了一段程序，希望对你有帮助，同时请各位大虾指正。
Private Sub JiSuanZhouMo()
    Dim datFhRq As Date '当前日期
    Dim datShRq As Date '收货日期
    Dim datSjDhRq As Date '实际运输到货日期
    Dim intYsTs As Integer '运输天数
   
    datFhRq = Date
    '输入运输天数
    intYsTs = InputBox(Prompt:="请输入运输天数：", Title:="运输天数", XPos:=2000, YPos:=2000)
    '计算实际运输到货日期
    datSjDhRq = datFhRq + intYsTs
    '判断是否为周末
    If Weekday(datSjDhRq, vbMonday) = 6 Then   '是周六
        datShRq = datSjDhRq + 2
    ElseIf Weekday(datSjDhRq, vbMonday) = 7 Then '是周日
         datShRq = datSjDhRq + 1
    Else '不是周末
        datShRq = datSjDhRq
    End If
   
    '输出实际收货日期
    Debug.Print "今天发货日期:" & Date
    Debug.Print "运输天数:" & intYsTs
    Debug.Print "实际收货日期:" & datShRq
End Sub