计算本季度和上个季度的开始日期和结束日期
答
原谅我缺乏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)
答
我知道你指定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
答
的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
定义“季度”。 – jason 2009-02-20 02:32:52
商业宿舍,所以第一季度将是1月/ 2月/ 3月 – Slee 2009-02-20 02:41:27
好吧,这使得解决问题相当简单;我会在下面发表一个答案。我的问题是,每个公司和每个国家都使用他们自己的“季度”定义。 – jason 2009-02-20 02:52:59