怎么判断当前时间为当年的第几周 第几季度？？？

[yy34801987]

怎么用VB代码判断当前时间为当年的第几周 第几季度？？？
急急急！！！
我学C#的 VB不会啊

[taick]

学C#的啊?
把C#代码贴出来
我给你转换下
你看行不?

[wuyq11]

获取周，季度的时间范围

[曲滨_銘龘鶽]

http://www.cnblogs.com/catxp/archive/2006/10/20/534408.aspx

[xiagirl]

期待。。。。。

判断当前时间为当年的第几天 用 DayOfYear
判断当前时间为当周的第几天 用 DayOfWeek

[Reage_Yao]

季度是比较好判断的，以下是我写的代码（我用的是VS.Net2010里面的VB2010写的）

        Dim Mth
        Dim Quarter
        Mth = Month(Now)
        If Mth = 1 Or Mth = 2 Or Mth = 3 Then
            Quarter = "1季度"
        End If
        If Mth = 4 Or Mth = 5 Or Mth = 6 Then
            Quarter = "2季度"
        End If
        If Mth = 7 Or Mth = 8 Or Mth = 9 Then
            Quarter = "3季度"
        End If
        If Mth = 10 Or Mth = 11 Or Mth = 12 Then
            Quarter = "4季度"
        End If

[DevinXie]

学习一下.

[Reage_Yao]

第几周的取法也比较简单，同样也是用VS2010下的VB写的
代码如下：

        Dim dMyDate As DateTime = DateTime.Now
        Dim PastDays
        Dim Weeks
        PastDays = dMyDate.DayOfYear
        Weeks = Val(PastDays) / 7
        Weeks = Int(Weeks)+1

最后的weeks就是第多少周了。
给你解释一下吧：
第一步：取今天是一年中的第多少天
第二步：把天数除以七，得到一个可能带小数的周数
第三步：用Int取整数部分
第四步：把整数部分加1
具体步骤就需要你结合小学数学知识理解了，O(∩_∩)O~

[ckp00001]

Imports System.Globalization
'.....
'获得今天是本年的第多少个星期：
Dim CulInfo As New CultureInfo("zh-CN")
Dim i as inTeger = cld.GetWeekOfYear(Now, _
CulInfo.DateTimeFormat.CalendarWeekRule, _
DayOfWeek.Monday)
’注意这里是用星期一为界线，如果1月1日是星期天，到1月2日就为第二个星期了。

‘现在是一年中的第几个季度：
i = math.Ceiling(now.Month /3)

[powerwy]

我也想学学，等待高手

[silno]

[Quote=引用 6 楼 daruisoft 的回复:]
季度是比较好判断的，以下是我写的代码（我用的是VS.Net2010里面的VB2010写的）

VB.NET code
Dim Mth
Dim Quarter
Mth = Month(Now)
If Mth = 1 Or Mth = 2 Or Mth = 3 Then
Quarter = "1季度"……
[/Quote]

应该用一句话就可以了
Quarter = "第" + CStr(Int((CInt(Mth) + 2) / 3)) + "季度"

[kuhura]

Dim T As Date = Now
Dim X As Integer
X = DateDiff(DateInterval.WeekOfYear, New Date(T.Year, 1, 1), T) + 1
Console.WriteLine("今天是今年的第{0}周", X)
X = DateDiff(DateInterval.Quarter, New Date(T.Year, 1, 1), T) + 1
Console.WriteLine("今天是今年的第{0}季", X)