Excel/VBA-今天是今年的第几周

微信大众号原文

零碎:Windows 7
软件:Excel 2010

同样豆引见了观察的运用或困惑。:

- 每家公司都有本身的任务日历。,这么这是往年的下个星期吗?

- 差额的公司答案能够差额。,能够是35个星期。,能够是36个星期。,或许更另一边答案。

- 要想答复今天是第几周,这似乎是每一独特的复杂的成绩。,注意想想,其实不然,你以为必要思索什么?

- 也想得到一圈来达到本身的公司,若何运用VBA?

同样bean以为有两点必要思索。

  1. 一圈的搜索是什么?,哪有朝一日是一圈的开端(每周7天是每一共识)
  2. 每年的第一圈是若何界说的?

这么,你若何处理同样成绩呢?

  1. 大概一圈的开端,共有的的有两办法型,每一是星期天,每一是周一
  2. 年纪中间的第一圈也有两种经用的办法。:它包罗1月1日的第每一星期。;往年至多有四天,这是第一圈
  3. 兼有外面的两种境遇,有四种能够性(2×2)
  4. 以2017年来看
  • 境遇1:它包罗1月1日的第每一星期。
    • 境遇:也许一圈从星期天开端,2017—1-1至2017~1-7周,它也包罗在1月1日。,而同样周世迪1
    • 境遇:也许一圈从周一开端,因而2017—1-2到2017—1-8每一星期,1月1日外出外面,过后周伟迪2
  • 境遇2:往年至多有四天,这是第一圈
    • 境遇:也许一圈从星期天开端,2017—1-1至2017~1-7周,往年超越4天,而同样周世迪1
    • 境遇:也许一圈从周一开端,因而2017—1-2到2017—1-8每一星期,本周前的同样星期独一无二的1,不达到4这有朝一日是往年,占有2017-1-2到2017-1-8这周是第每一四这有朝一日是往年的周次,占有这些周伟迪1

总结地形和同一圈,每周教训是差额的,差一圈,这是差额公司在差额时间的要紧报账。

日历

日历.jpg

VBA密码实现预期的结果赋予个性周

  1. 为了不这么复杂,准许一圈的第有朝一日是周一
  2. 中心作用:Format
  3. 体式(待替换变量),使互换位置目的体式,一圈的第有朝一日,年纪的第一圈
  4. 年纪中间的一圈,对可选限制因素的正式的解说,如以下

年纪的第一圈

1.JPG

Sub test1()
    Dim nowTime As Date
    nowTime = "2017/01/02"
    x1 = Format(nowTime, "ww", vbMonday, vbFirstJan1)
    x2 = Format(nowTime, "ww", vbMonday, vbFirstFourDays)
     ("x1=" & X1)
     ("x2=" & X2)
End Sub

密码截图


外面的是本背诵的满意的。,下干杯

仿佛有每一失误,欢送留言转位


更多精彩,请关怀微信大众号
扫描QR码,关怀大众号

公共电传代码的庶生的二维码

发表评论

电子邮件地址不会被公开。 必填项已用*标注