正确计算今天是一年中的第几周

zljkd007

原帖由 taibeisky 于 2010-10-7 16:26 发表
好吧，你用WEEKNUM 试试 2011-1-1 的结果是不是 2011年的第一周，


而实际上2011-1-1 是 2010 年的第52周

2011-1-1它怎么实际上是2010年的52周了？2011-1-1它实际上就不是2010年的！！！

taibeisky

拿起你的手机，对照下日历，NOKIA的都显示周号的，不知道别的手机是否显示

另请参考：
http://www.rondebruin.nl/isodate.htm

zljkd007

你可以选择你的手机标准，你也可以选择EXCEL标准！标准不一样罢了，没什么对错之说！

[ 本帖最后由 zljkd007 于 2010-10-7 16:53 编辑 ]

taibeisky

原帖由 zljkd007 于 2010-10-7 16:44 发表
你可以选择相信你的手机，你也可以选择相信EXCEL，但是我怎么都不相信2011-1-1是2010年的任何一天或者任何一周！当然，一定要建立一个特定的条件，然后这样算也不是不可以！

我明白你的意思，WEEKNUM的算法是从没年的一月一日算起，过7天就为1周，我这个是以周为时间段

我的意思是：不是每年的1月1日都是星期一，我的算法是，周数和那一天到底是星期几有关，

我写这个  输入任意日期，即可得到那一天到底是星期几，那一天到底是那一周
周数转日期；结果等于那一周的第一天，也就是星期一
日期转周数：那一天到底是属于那个周一到周日的范围

taibeisky

原帖由 yvhgydn 于 2010-10-6 17:21 发表
Function fd(m As Range)
fd = DateDiff("ww", DateValue("1/ 1/" & Year(m.Value)) - 1, m.Value) + 1
End Function
或者
APPLICATION.WEEKNUM([A1])
或者直接函数=WEEKNUM（A1）

拿起你的手机，对照下日历，NOKIA的都显示周号的，不知道别的手机是否显示
另请参考：
http://www.rondebruin.nl/isodate.htm

yvhgydn

原帖由 taibeisky 于 2010-10-7 16:22 发表 [
你试试WEEKNUM好用吗，我对着日历看就是出错

不是WEEKNUM好不好用，关键是用的人怎么用！

拿起你的手机，对照下日历，NOKIA的都显示周号的，不知道别的手机是否显示

呵呵，对不起了，楼主，我没有此种型号与此种功能的手机

你在第一楼所提出来的问题如下：
正确计算今天是一年中的第几周

楼主应该将问题阐述清楚吧

一指禅

请参考

当前日期是本年的第几天？
Function Yday(riqi As Date)
     Yday = Format(riqi, "y")
End Function

当前日期是本年的第几季度？
Function Qday(riqi As Date)
     Qday = Format(riqi, "第q季度")
End Function

当前日期是本年的第几周
Function Wday(riqi As Date) As String
     Wday = Format(riqi, "第ww周")
End Function

当前日期是本年第几周的星期几？
Function WWday(riqi As Date) As String
     WWday = Format(riqi, "第ww周") & " 星期" & Format(riqi, "w") - 1
End Function
或
Function WWday(riqi As Date) As String
     WWday = Format(riqi, "第ww周 aaa")
End Function

735201314

原帖由 一指禅 于 2010-10-7 23:16 发表
请参考

当前日期是本年的第几天？
Function Yday(riqi As Date)
     Yday = Format(riqi, "y")
End Function

当前日期是本年的第几季度？
Function Qday(riqi As Date)
     Qday = Format(riqi, "第q ...

这才是精华！请问下面的可以写出吗？谢谢！

当前日期是本月的第几周？

一指禅

原帖由 735201314 于 2010-10-8 00:45 发表



这才是精华！请问下面的可以写出吗？谢谢！

当前日期是本月的第几周？

笨法：
'当前日期是本月第几周？
Function MWday(riqi As Date) As String
     MWday = Format(riqi, "ww") - Format(Application.WorksheetFunction.Text(riqi, "e-m"), "ww") + 1
End Function
或
'当前日期是本月第几周？
Function MWday(riqi As Date) As String
     MWday = Format(riqi, "ww") - Format(riqi - Day(riqi) + 1, "ww") + 1
End Function

一指禅

请参考
Function RZZ(y As Date)
Dim ss As Date
ss = Year(y) & "-1-1"
RZZ = (ss - Weekday(ss, 2) + 1) / 7
RZZ = Int(y / 7 - RZZ)
    If RZZ = 0 Then
        RZZ = Format(y, "yy") - 1 & 53
    Else
        RZZ = Format(y, "yy") & 0 & RZZ
    End If
End Function

[ 本帖最后由 一指禅 于 2010-10-9 11:59 编辑 ]