Office中国论坛/Access中国论坛

标题: 请教高手关于日期的问题 [打印本页]

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

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

作者: zzh_fz 时间: 2003-5-22 17:20
对于第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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)