[分享][散分]写了个取日期在第几周的函数,该怎么解决

[分享][散分]写了个取日期在第几周的函数
今天有个同事问我，在EXCEL中如何写函数取日期在第几周，但稍微有些不同的是一年的最初几天如果接着上一年要算到上一年中去，比如说2010年1月2日，结果应该是52，而不是1。

 

粗略一样，这个函数其实蛮复杂的，写了很多次，都在某些情况下得不到正确的结果，最后这样成功了：

 

=IF(AND(WEEKDAY(DATE(YEAR(A1),1,1),2) > 1,FLOOR(DATEDIF(DATE(YEAR(A1),1,1),A1+WEEKDAY(DATE(YEAR(A1),1,1)-8,2),"D")/7,1)=0), FLOOR(DATEDIF(DATE(YEAR(A1)-1,1,1),DATE(YEAR(A1),1,1)+WEEKDAY(DATE(YEAR(A1)-1,1,1)-8,2),"D")/7,1), FLOOR(DATEDIF(DATE(YEAR(A1),1,1),A1+WEEKDAY(DATE(YEAR(A1),1,1)-8,2),"D")/7,1))

 

其中A1是要计算的单元格，另外这个是按照中国的习惯，也就是说一周是从星期一开始到星期日结束的，如果要按照美国的习惯，只要将WEEKDAY的第2个参数改成1就行了。

 

为了验证正确性，我还做了个EXCEL文件，结果如下：



  A1 A2

2009-12-18 50
2009-12-19 50
2009-12-20 50
2009-12-21 51
2009-12-22 51
2009-12-23 51
2009-12-24 51
2009-12-25 51
2009-12-26 51
2009-12-27 51
2009-12-28 52
2009-12-29 52
2009-12-30 52
2009-12-31 52
2010-01-01 52
2010-01-02 52
2010-01-03 52
2010-01-04 1
2010-01-05 1
2010-01-06 1
2010-01-07 1
2010-01-08 1
2010-01-09 1
2010-01-10 1
2010-01-11 2
2011-12-28 52
2011-12-29 52
2011-12-30 52
2011-12-31 52
2012-01-01 52
2012-01-02 1
2012-01-03 1
2012-01-04 1
2012-01-05 1
2012-01-06 1
2012-01-07 1
2012-12-28 52
2012-12-29 52
2012-12-30 52
2012-12-31 53
2013-01-01 53
2013-01-02 53
2013-01-03 53
2013-01-04 53
2013-01-05 53
2013-01-06 53
2013-01-07 1
2013-01-08 1
2013-01-09 1
2013-01-10 1
2013-01-11 1
2013-01-12 1
2013-01-13 1
2013-01-14 2
2013-01-15 2
2013-01-16 2
2013-01-17 2
2013-12-28 51
2013-12-29 51
2013-12-30 52
2013-12-31 52
2014-01-01 52
2014-01-02 52
2014-01-03 52
2014-01-04 52
2014-01-05 52
2014-01-06 1
2014-01-07 1
2014-01-08 1
2017-12-28 52
2017-12-29 52
2017-12-30 52
2017-12-31 52
2018-01-01 1
2018-01-02 1
2018-01-03 1
2018-01-04 1
2018-01-05 1
2018-01-06 1
2018-01-07 1
2018-01-08 2
2018-01-09 2
2018-01-10 2


个人感觉这个函数比较复杂，但一时也想不到改进的办法。如果您有更好的方法，请不要吝啬哦。

本文博客地址：http://blog.csdn.net/Snowdust/archive/2010/01/08/5158925.aspx

[解决办法]
先接再看……
[解决办法]

瞄一下，，，
[解决办法]
学习，接分。
[解决办法]
不错，谢了···
[解决办法]
不错
weeknum是从1月1日开始算第一周。
[解决办法]
拜强人+领分+学习。
[解决办法]
學習下
[解决办法]
不错
[解决办法]
接分
[解决办法]
jf
[解决办法]
楼主还不发分吗？
[解决办法]
不错
[解决办法]
或许吧
[解决办法]
learn
[解决办法]
学习了 谢谢
[解决办法]
。。。。。。。。。。
[解决办法]
感谢楼主分享，先接分再说
[解决办法]
感谢分享
[解决办法]
恩 很好很强大
[解决办法]
我是来学习的
[解决办法]
JS
[解决办法]
路过 学习了。。。
[解决办法]
jf

[解决办法]
jiefen
[解决办法]
谢谢楼主分享
[解决办法]
接分！
[解决办法]
up
[解决办法]
Excel用的是VBA

[解决办法]
up
[解决办法]
学习下
[解决办法]
jf
[解决办法]
感谢分享
[解决办法]
不错 很全
[解决办法]
很牛逼，很强大。
[解决办法]
挺复杂的，太有才了
[解决办法]
原来是Excel的。。。
[解决办法]
jf
------解决方案--------------------

很好啊,谢谢
[解决办法]
不错！！学习！！
[解决办法]
学习,jf
[解决办法]
我是来看热闹的，嘿嘿。
[解决办法]

[解决办法]
学习了
[解决办法]
JF
[解决办法]
sd
[解决办法]
學習下
[解决办法]
学习
[解决办法]
学习来的
[解决办法]
学习了！
[解决办法]
这个貌似有点复杂。。支持一个！！
[解决办法]
学习！
[解决办法]
不错啊，excel！
[解决办法]
强悍
[解决办法]
055Replica Watches
You won't find the quality of our replica <A href="http://www.newstylerolex.com/" title="Cheap Brand Name Watches">Rolex</A> watches or even our Chopard replica <A href="http://www.watches-life.com" title="cheap price">Rolex</A>, for the price we have, anywhere else. We provide discounts the more you buy. Not just for wholesalers but even if you want to buy just 2replica <A href="http://www.enjoy-watches.com/" title="high quality watches">Rolex</A> watches. Simply outrageous discounts.

[解决办法]
为了积分，我顶~~~~~~~~~~~
[解决办法]
学习

[解决办法]

[解决办法]
1 office应用
[解决办法]
JF
[解决办法]
Mark。。。。。
[解决办法]
接分啦
[解决办法]
接分了 下来有用的话就用用！
[解决办法]
看看
[解决办法]
学习
[解决办法]
jf

[解决办法]
mark
[解决办法]
80 楼 接分
[解决办法]
up~

------解决方案--------------------

看看
[解决办法]
牛B
[解决办法]
学习了，谢谢拍
[解决办法]
拉拉队
[解决办法]
学习了
[解决办法]
hao
[解决办法]
先接再看
[解决办法]
顶一个！！！
[解决办法]
先接再看
[解决办法]
kankan
[解决办法]
接着看~
[解决办法]
这个好像和算考勤之类的挺有用
[解决办法]
看看再说。。。
[解决办法]
jf
[解决办法]
learning.
[解决办法]
学习下
[解决办法]
看下！
[解决办法]
不明白但很想明白