计算本季度和上个季度的开始日期和结束日期

Question

我需要计算vb.net中当前季度和上一季度的StartDate和EndDate。

Answer 1

原谅我缺乏VB.net，具体的答案，而是给出一个通用的排序，在一些伪语言的各种功能日期的对象（与基于零日和月索引）...

//round the current month number down to a multiple of 3 
ThisQuarterStart = DateFromYearMonthDay(Today.Year,Today.Month-(Today.Month%3),0); 
//round the current month number up to a multiple of 3, then subtract 1 day 
ThisQuarterEnd = DateFromYearMonthDay((Today.Month<9)?(Today.Year):(Today.Year+1),(Today.Month-(Today.Month%3)+3)%12,0) - 1; 
//same as above, but minus 3 months 
LastQuarterStart = DateFromYearMonthDay((Today.Month<3)?(Today.Year-1):(Today.Year),(Today.Month-(Today.Month%3)+9)%12,0) 
LastQuarterEnd = ThisQuarterStart - 1; 

编辑转换上面的伪代码工作VB.Net： /斯特凡

Dim ThisQuarterStart As Date = New Date(Today.Year, Today.Month - (Today.Month Mod 3) + 1, 1) 
Dim ThisQuarterEnd As Date = New Date(CInt(IIf(Today.Month < 9, Today.Year, Today.Year + 1)), (Today.Month - (Today.Month Mod 3) + 3 Mod 12) + 1, 1).AddDays(-1) 
Dim LastQuarterStart As Date = New Date(CInt(IIf(Today.Month < 3, Today.Year - 1, Today.Year)), (Today.Month - (Today.Month Mod 3) + 9 Mod 12) + 1, 1) 
Dim LastQuarterEnd As Date = ThisQuarterStart.AddDays(-1) 

Answer 2

我知道你指定VB.Net，但我更舒服C#写uncomplied代码。如果有必要，我确定有人可以翻译。

public static DateTime QuarterEnd() { 
    DateTime now = DateTime.Now; 
    int year = now.Year; 
    DateTime[] endOfQuarters = new DateTime[] { 
     new DateTime(year, 3, 31), 
     new DateTime(year, 6, 30), 
     new DateTime(year, 9, 30), 
     new DateTime(year, 12, 31) 
    }; 
    return endOfQuarters.Where(d => d.Subtract(now).Days >= 0).First(); 
} 

我喜欢这个解决方案在其他涉及模运算和它很容易修改，以处理非标准季度的定义丑陋的条件语句。 QuarterStart方法的定义的处理方式与此类似，因此作为亲爱的读者的练习。或者，您可以修改此方法以返回包含所需起始日期和结束日期的struct。

编辑，添加VB.Net版本上述C＃-code的 /史蒂芬：

Public Function QuarterEnd() As Date 
    Dim endOfQuarters As Date() = New Date() { _ 
     New Date(Now.Year, 3, 31), _ 
     New Date(Now.Year, 6, 30), _ 
     New Date(Now.Year, 9, 30), _ 
     New Date(Now.Year, 12, 31)} 
    Return endOfQuarters.Where(Function(d) d.Subtract(Now).Days >= 0).First() 
End Function 

Answer 3

的vb.net皈依需要的变化。 将其更改为vb 6并且应该读取;

ThisQuarterStart = DateSerial（today.Year，today.Month - （IIF（today.Month国防部3 = 0，3，today.Month国防部3））+ 1，1）

ThisQuarterEnd = DateSerial（CINT （IIf（today.Month Mod 3 = 0，3，today.Month Mod 3））+ 3）（IIf（今天。月份Mod 3 = 0，3，今天。月份Mod 3） Mod 12）+ 1,1） - 1