如何计算某一时段内有几个周六日？

yanwei82123300 · 发表于 2012-6-25 16:03:23

如何计算某一时段内有几个周六日？
例如6-25~8-6共有几个周六日？答案是12个
我想如何让系统自动计算，请帮助写个自定义函数，谢谢！！

yanwei82123300 · 发表于 2012-6-25 16:16:31

我们公司的销售订单的发货日期：是在承诺交货日期字段上+生产周期（不包括周六日的正常工作日，即5天）：
例如：承诺交货日期字段 6-25
生产周期 30天
发货日期是 8-6
请大家帮助写个自定义函数吧，谢谢

yanwei82123300 · 发表于 2012-6-25 16:17:12

请大家帮助解答一下2楼的问题，一楼的暂缓，谢谢

Henry D. Sy · 发表于 2012-6-25 16:23:08

记得曾经写过一个例子，

Henry D. Sy · 发表于 2012-6-25 16:24:24

周六日=周六+周日
或者
周六日=周六

Henry D. Sy · 发表于 2012-6-25 16:41:01

给你写一个吧

Public Function gNonWorkDay(sDate As Date, eDate As Date)
Dim i As Integer, j As Integer, NWD As Integer
Dim myDate As Date
j = DateDiff("d", sDate, eDate)
For i = 0 To j
myDate = DateAdd("d", i, sDate)
If Weekday(myDate) = 1 Or Weekday(myDate) = 7 Then
NWD = NWD + 1
End If
Next
gNonWorkDay = NWD
End Function

复制代码

yanwei82123300 · 发表于 2012-6-25 16:43:25

Henry D. Sy 老师：交货日期是字段名；生产周期是字段名，
交货日期+生产周期=发货日期
如何判断交货日期+生产周期中有多少周六日？或者说如何只计算工作日，周六日不计算？
谢谢

Henry D. Sy · 发表于 2012-6-25 16:49:55

例如：承诺交货日期字段 6-25 ------------这个应该是订单确认日期吧

yanwei82123300 · 发表于 2012-6-25 16:52:29

Henry D. Sy 老师我们系统里有与您写的数据类似判断哪一天是六日的表，我现在是想知道如何才能实现7楼的方法！
见下表：IsShopDate是0 为周六日 1为正常工作日

CalendarDate ShopDay ShopDate IsShopDate
2012-1-1 7304 2011-12-30 0
2012-1-2 7305 2012-1-2 1
2012-1-3 7306 2012-1-3 1
2012-1-4 7307 2012-1-4 1
2012-1-5 7308 2012-1-5 1
2012-1-6 7309 2012-1-6 1
2012-1-7 7309 2012-1-6 0
2012-1-8 7309 2012-1-6 0
2012-1-9 7310 2012-1-9 1
2012-1-10 7311 2012-1-10 1
2012-1-11 7312 2012-1-11 1
2012-1-12 7313 2012-1-12 1
2012-1-13 7314 2012-1-13 1
2012-1-14 7314 2012-1-13 0
2012-1-15 7314 2012-1-13 0
2012-1-16 7315 2012-1-16 1
2012-1-17 7316 2012-1-17 1
2012-1-18 7317 2012-1-18 1
2012-1-19 7318 2012-1-19 1
2012-1-20 7319 2012-1-20 1
2012-1-21 7319 2012-1-20 0
2012-1-22 7319 2012-1-20 0
2012-1-23 7320 2012-1-23 1
2012-1-24 7321 2012-1-24 1
2012-1-25 7322 2012-1-25 1
2012-1-26 7323 2012-1-26 1
2012-1-27 7324 2012-1-27 1
2012-1-28 7324 2012-1-27 0
2012-1-29 7324 2012-1-27 0
2012-1-30 7325 2012-1-30 1
2012-1-31 7326 2012-1-31 1
2012-2-1 7327 2012-2-1 1
2012-2-2 7328 2012-2-2 1
2012-2-3 7329 2012-2-3 1
2012-2-4 7329 2012-2-3 0
2012-2-5 7329 2012-2-3 0
2012-2-6 7330 2012-2-6 1
2012-2-7 7331 2012-2-7 1
2012-2-8 7332 2012-2-8 1
2012-2-9 7333 2012-2-9 1
2012-2-10 7334 2012-2-10 1
2012-2-11 7334 2012-2-10 0
2012-2-12 7334 2012-2-10 0
2012-2-13 7335 2012-2-13 1
2012-2-14 7336 2012-2-14 1
2012-2-15 7337 2012-2-15 1
2012-2-16 7338 2012-2-16 1
2012-2-17 7339 2012-2-17 1
2012-2-18 7339 2012-2-17 0
2012-2-19 7339 2012-2-17 0
2012-2-20 7340 2012-2-20 1
2012-2-21 7341 2012-2-21 1
2012-2-22 7342 2012-2-22 1
2012-2-23 7343 2012-2-23 1
2012-2-24 7344 2012-2-24 1
2012-2-25 7344 2012-2-24 0
2012-2-26 7344 2012-2-24 0
2012-2-27 7345 2012-2-27 1
2012-2-28 7346 2012-2-28 1
2012-2-29 7347 2012-2-29 1
2012-3-1 7348 2012-3-1 1
2012-3-2 7349 2012-3-2 1
2012-3-3 7349 2012-3-2 0
2012-3-4 7349 2012-3-2 0
2012-3-5 7350 2012-3-5 1
2012-3-6 7351 2012-3-6 1
2012-3-7 7352 2012-3-7 1
2012-3-8 7353 2012-3-8 1
2012-3-9 7354 2012-3-9 1
2012-3-10 7354 2012-3-9 0
2012-3-11 7354 2012-3-9 0
2012-3-12 7355 2012-3-12 1
2012-3-13 7356 2012-3-13 1
2012-3-14 7357 2012-3-14 1
2012-3-15 7358 2012-3-15 1
2012-3-16 7359 2012-3-16 1
2012-3-17 7359 2012-3-16 0
2012-3-18 7359 2012-3-16 0
2012-3-19 7360 2012-3-19 1
2012-3-20 7361 2012-3-20 1
2012-3-21 7362 2012-3-21 1
2012-3-22 7363 2012-3-22 1
2012-3-23 7364 2012-3-23 1
2012-3-24 7364 2012-3-23 0
2012-3-25 7364 2012-3-23 0
2012-3-26 7365 2012-3-26 1
2012-3-27 7366 2012-3-27 1
2012-3-28 7367 2012-3-28 1
2012-3-29 7368 2012-3-29 1
2012-3-30 7369 2012-3-30 1
2012-3-31 7369 2012-3-30 0
2012-4-1 7369 2012-3-30 0
2012-4-2 7370 2012-4-2 1
2012-4-3 7371 2012-4-3 1
2012-4-4 7372 2012-4-4 1
2012-4-5 7373 2012-4-5 1
2012-4-6 7374 2012-4-6 1
2012-4-7 7374 2012-4-6 0
2012-4-8 7374 2012-4-6 0
2012-4-9 7375 2012-4-9 1
2012-4-10 7376 2012-4-10 1
2012-4-11 7377 2012-4-11 1
2012-4-12 7378 2012-4-12 1
2012-4-13 7379 2012-4-13 1
2012-4-14 7379 2012-4-13 0
2012-4-15 7379 2012-4-13 0
2012-4-16 7380 2012-4-16 1
2012-4-17 7381 2012-4-17 1
2012-4-18 7382 2012-4-18 1
2012-4-19 7383 2012-4-19 1
2012-4-20 7384 2012-4-20 1
2012-4-21 7384 2012-4-20 0
2012-4-22 7384 2012-4-20 0
2012-4-23 7385 2012-4-23 1
2012-4-24 7386 2012-4-24 1
2012-4-25 7387 2012-4-25 1
2012-4-26 7388 2012-4-26 1
2012-4-27 7389 2012-4-27 1
2012-4-28 7389 2012-4-27 0
2012-4-29 7389 2012-4-27 0
2012-4-30 7390 2012-4-30 1
2012-5-1 7391 2012-5-1 1
2012-5-2 7392 2012-5-2 1
2012-5-3 7393 2012-5-3 1
2012-5-4 7394 2012-5-4 1
2012-5-5 7394 2012-5-4 0
2012-5-6 7394 2012-5-4 0
2012-5-7 7395 2012-5-7 1
2012-5-8 7396 2012-5-8 1
2012-5-9 7397 2012-5-9 1
2012-5-10 7398 2012-5-10 1
2012-5-11 7399 2012-5-11 1
2012-5-12 7399 2012-5-11 0
2012-5-13 7399 2012-5-11 0
2012-5-14 7400 2012-5-14 1
2012-5-15 7401 2012-5-15 1
2012-5-16 7402 2012-5-16 1
2012-5-17 7403 2012-5-17 1
2012-5-18 7404 2012-5-18 1
2012-5-19 7404 2012-5-18 0
2012-5-20 7404 2012-5-18 0
2012-5-21 7405 2012-5-21 1
2012-5-22 7406 2012-5-22 1
2012-5-23 7407 2012-5-23 1
2012-5-24 7408 2012-5-24 1
2012-5-25 7409 2012-5-25 1
2012-5-26 7409 2012-5-25 0
2012-5-27 7409 2012-5-25 0
2012-5-28 7410 2012-5-28 1
2012-5-29 7411 2012-5-29 1
2012-5-30 7412 2012-5-30 1
2012-5-31 7413 2012-5-31 1
2012-6-1 7414 2012-6-1 1
2012-6-2 7414 2012-6-1 0
2012-6-3 7414 2012-6-1 0
2012-6-4 7415 2012-6-4 1
2012-6-5 7416 2012-6-5 1
2012-6-6 7417 2012-6-6 1
2012-6-7 7418 2012-6-7 1
2012-6-8 7419 2012-6-8 1
2012-6-9 7419 2012-6-8 0
2012-6-10 7419 2012-6-8 0
2012-6-11 7420 2012-6-11 1
2012-6-12 7421 2012-6-12 1
2012-6-13 7422 2012-6-13 1
2012-6-14 7423 2012-6-14 1
2012-6-15 7424 2012-6-15 1
2012-6-16 7424 2012-6-15 0
2012-6-17 7424 2012-6-15 0
2012-6-18 7425 2012-6-18 1
2012-6-19 7426 2012-6-19 1
2012-6-20 7427 2012-6-20 1
2012-6-21 7428 2012-6-21 1
2012-6-22 7429 2012-6-22 1
2012-6-23 7429 2012-6-22 0
2012-6-24 7429 2012-6-22 0
2012-6-25 7430 2012-6-25 1
2012-6-26 7431 2012-6-26 1
2012-6-27 7432 2012-6-27 1
2012-6-28 7433 2012-6-28 1
2012-6-29 7434 2012-6-29 1
2012-6-30 7434 2012-6-29 0
2012-7-1 7434 2012-6-29 0
2012-7-2 7435 2012-7-2 1
2012-7-3 7436 2012-7-3 1
2012-7-4 7437 2012-7-4 1
2012-7-5 7438 2012-7-5 1
2012-7-6 7439 2012-7-6 1
2012-7-7 7439 2012-7-6 0
2012-7-8 7439 2012-7-6 0
2012-7-9 7440 2012-7-9 1
2012-7-10 7441 2012-7-10 1
2012-7-11 7442 2012-7-11 1
2012-7-12 7443 2012-7-12 1
2012-7-13 7444 2012-7-13 1
2012-7-14 7444 2012-7-13 0
2012-7-15 7444 2012-7-13 0
2012-7-16 7445 2012-7-16 1
2012-7-17 7446 2012-7-17 1
2012-7-18 7447 2012-7-18 1
2012-7-19 7448 2012-7-19 1
2012-7-20 7449 2012-7-20 1
2012-7-21 7449 2012-7-20 0
2012-7-22 7449 2012-7-20 0
2012-7-23 7450 2012-7-23 1
2012-7-24 7451 2012-7-24 1
2012-7-25 7452 2012-7-25 1
2012-7-26 7453 2012-7-26 1
2012-7-27 7454 2012-7-27 1
2012-7-28 7454 2012-7-27 0
2012-7-29 7454 2012-7-27 0
2012-7-30 7455 2012-7-30 1
2012-7-31 7456 2012-7-31 1
2012-8-1 7457 2012-8-1 1
2012-8-2 7458 2012-8-2 1
2012-8-3 7459 2012-8-3 1
2012-8-4 7459 2012-8-3 0
2012-8-5 7459 2012-8-3 0
2012-8-6 7460 2012-8-6 1
2012-8-7 7461 2012-8-7 1
2012-8-8 7462 2012-8-8 1
2012-8-9 7463 2012-8-9 1
2012-8-10 7464 2012-8-10 1
2012-8-11 7464 2012-8-10 0
2012-8-12 7464 2012-8-10 0
2012-8-13 7465 2012-8-13 1
2012-8-14 7466 2012-8-14 1
2012-8-15 7467 2012-8-15 1
2012-8-16 7468 2012-8-16 1
2012-8-17 7469 2012-8-17 1
2012-8-18 7469 2012-8-17 0
2012-8-19 7469 2012-8-17 0
2012-8-20 7470 2012-8-20 1
2012-8-21 7471 2012-8-21 1
2012-8-22 7472 2012-8-22 1
2012-8-23 7473 2012-8-23 1
2012-8-24 7474 2012-8-24 1
2012-8-25 7474 2012-8-24 0
2012-8-26 7474 2012-8-24 0
2012-8-27 7475 2012-8-27 1
2012-8-28 7476 2012-8-28 1
2012-8-29 7477 2012-8-29 1
2012-8-30 7478 2012-8-30 1
2012-8-31 7479 2012-8-31 1
2012-9-1 7479 2012-8-31 0
2012-9-2 7479 2012-8-31 0
2012-9-3 7480 2012-9-3 1
2012-9-4 7481 2012-9-4 1
2012-9-5 7482 2012-9-5 1
2012-9-6 7483 2012-9-6 1
2012-9-7 7484 2012-9-7 1
2012-9-8 7484 2012-9-7 0
2012-9-9 7484 2012-9-7 0
2012-9-10 7485 2012-9-10 1
2012-9-11 7486 2012-9-11 1
2012-9-12 7487 2012-9-12 1
2012-9-13 7488 2012-9-13 1
2012-9-14 7489 2012-9-14 1
2012-9-15 7489 2012-9-14 0
2012-9-16 7489 2012-9-14 0
2012-9-17 7490 2012-9-17 1
2012-9-18 7491 2012-9-18 1
2012-9-19 7492 2012-9-19 1
2012-9-20 7493 2012-9-20 1
2012-9-21 7494 2012-9-21 1
2012-9-22 7494 2012-9-21 0
2012-9-23 7494 2012-9-21 0
2012-9-24 7495 2012-9-24 1
2012-9-25 7496 2012-9-25 1
2012-9-26 7497 2012-9-26 1
2012-9-27 7498 2012-9-27 1
2012-9-28 7499 2012-9-28 1
2012-9-29 7499 2012-9-28 0
2012-9-30 7499 2012-9-28 0
2012-10-1 7500 2012-10-1 1
2012-10-2 7501 2012-10-2 1
2012-10-3 7502 2012-10-3 1
2012-10-4 7503 2012-10-4 1
2012-10-5 7504 2012-10-5 1
2012-10-6 7504 2012-10-5 0
2012-10-7 7504 2012-10-5 0
2012-10-8 7505 2012-10-8 1
2012-10-9 7506 2012-10-9 1
2012-10-10 7507 2012-10-10 1
2012-10-11 7508 2012-10-11 1
2012-10-12 7509 2012-10-12 1
2012-10-13 7509 2012-10-12 0
2012-10-14 7509 2012-10-12 0
2012-10-15 7510 2012-10-15 1
2012-10-16 7511 2012-10-16 1
2012-10-17 7512 2012-10-17 1
2012-10-18 7513 2012-10-18 1
2012-10-19 7514 2012-10-19 1
2012-10-20 7514 2012-10-19 0
2012-10-21 7514 2012-10-19 0
2012-10-22 7515 2012-10-22 1
2012-10-23 7516 2012-10-23 1
2012-10-24 7517 2012-10-24 1
2012-10-25 7518 2012-10-25 1
2012-10-26 7519 2012-10-26 1
2012-10-27 7519 2012-10-26 0
2012-10-28 7519 2012-10-26 0
2012-10-29 7520 2012-10-29 1
2012-10-30 7521 2012-10-30 1
2012-10-31 7522 2012-10-31 1

yanwei82123300 · 发表于 2012-6-25 16:57:22

是订单确认日期

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 如何计算某一时段内有几个周六日？

群介绍
主题无相 (随机显示版	同地区群块其他地区)