如何根據日期返回某個月的第幾周?

Question

RT.
2005/06/29 --->6月的第五周!

Answer 1

DateTime dt = DateTime.Now; //当前时间
int d = dt.Day;             //当月第d天
int w = 0;                  //第w周
while(d > 0)
{
d -= 7;
w += 1;
}
MessageBox.Show(w.ToString());

Answer 2

DateTime dt = DateTime.Now; //当前时间
int d = dt.Day;             //当月第d天
int w = 0;                  //第w周
while(d > 0)
{
d -= 7;
w += 1;
}DateTime dt = DateTime.Now; //当前时间
int d = dt.Day;             //当月第d天
int w = 0;                  //第w周
while(d > 0)
{
d -= 7;
w += 1;
}DateTime dt = DateTime.Now; //当前时间
int d = dt.Day;             //当月第d天
int w = 0;                  //第w周
while(d > 0)
{
d -= 7;
w += 1;
}

Answer 3

晕
int day = DateTime.Now.Day;
int weeks = day/7+1;
Console.WriteLine("第 {0} 周", weeks);

Answer 4

mobydick(敌伯威|我排著队拿著爱的号码牌)的方法是不對的,
day = 6應該是第二周.

Answer 5

Function Weeks(ByVal D As Date) As Integer
        Dim IntTemp As Integer
        Dim IntTemp2 As Integer
        Dim IntTemp3 As Integer
        Dim c As New System.Globalization.GregorianCalendar
        IntTemp = 7 - c.GetDayOfWeek(New Date(D.Year, D.Month, 1)) '第一周的天数
        '上面这句用vb简单替换为
        'IntTemp = 7 - DateAndTime.Weekday(New Date(D.Year, D.Month, 1)) + 1 '第一周的天数        IntTemp3 = Math.DivRem(D.Day - IntTemp, 7, IntTemp2) '当出去第一周的天数 进行处理
        Return IIf(IntTemp2 <= 0, IntTemp3 + 1, IntTemp3 + 2)
    End Function这个是vb.net 绝对没有问题的。
================================================================
此帖通过csdn小助手回复。
    CSDN小助手是使用vb.net编写的CSDN论坛脱机“外挂”，她能够在
脱离IE的情况下使用Csdn论坛。程序只加载最核心的数据，所以显示更
快，产生的流量更小。    下载地址：http://qqwwee.com/csdn.rar
================================================================

Answer 6

DateTime dt = DateTime.Now;
int i = (int)dt.DayOfWeek;
int day = dt.Day + i;Console.WriteLine("第 {0} 周", day/7+1);现在好了，
忘了考虑每月的第一天不一定是周一了。 ;P