Solved

How to calculate the date range of the current and next quarter date

Posted on 2006-07-19
3
503 Views
Last Modified: 2008-03-06
Is there any easy way to get the begin date and end of the current quarter in VB.net?  I also need to get the date range for the next quarter?  This is all based on the current date.

Thanks in advance,
Brian Pembroke
0
Comment
Question by:u7c76
3 Comments
 
LVL 5

Accepted Solution

by:
nickhoggard earned 500 total points
ID: 17140974
Hi,

The following article discusses some functions for dealing with the quarters:
http://www.codeproject.com/csharp/csdatetimelibrary.asp?df=100&forumid=157955&exp=0&select=1055875

Keep in mind though that if your application is being designed for multiple countries that the quarters are different in different locations (eg here in New Zealand the first quarter runs from 1 April to 30 June)

Hope this gets you started.

Cheers

Nick
0
 
LVL 9

Expert Comment

by:dancebert
ID: 17141001
Actually, quarters vary by company as well as by country.  Any solution that calculates financial quarters must either specify or assume what is the first day of the fiscal year.
0
 
LVL 96

Expert Comment

by:Bob Learned
ID: 17141380
Here are two functions that I use:

  ''' -----------------------------------------------------------------------------
  ''' <summary>
  ''' Overloaded version, assuming U.S. settings
  ''' </summary>
  ''' -----------------------------------------------------------------------------
  Public Shared Sub GetQuarter(ByVal dateSelected As Date, _
   ByRef startDate As Date, ByRef endDate As String)

    GetQuarter(dateSelected, FirstDayOfWeek.Monday, FirstWeekOfYear.Jan1, startDate, endDate)

  End Sub

  ''' -----------------------------------------------------------------------------
  ''' <summary>
  ''' Get the first and last date of the quarter for a given date.
  ''' </summary>
  ''' <param name="dateSelected">Selected date</param>
  ''' <param name="firstWeekDay">Enum for the first day of the week</param>
  ''' <param name="firstYearWeek">Enum for the first week of the year</param>
  ''' <param name="startDate">Return the start date for the quarter</param>
  ''' <param name="endDate">Return the end date for the quarter</param>
  ''' -----------------------------------------------------------------------------
  Public Shared Sub GetQuarter(ByVal dateSelected As Date, _
   ByVal firstWeekDay As FirstDayOfWeek, ByVal firstYearWeek As FirstWeekOfYear, _
   ByRef startDate As Date, ByRef endDate As String)

    Dim quarter As Integer = DatePart(DateInterval.Quarter, dateSelected)

    startDate = New DateTime(dateSelected.Year, ((quarter - 1) * 3) + 1, 1)

    endDate = DateAdd(DateInterval.Quarter, DatePart(DateInterval.Quarter, dateSelected, firstWeekDay, firstYearWeek), _
       New DateTime(dateSelected.Year, 1, 1)).AddDays(-1)

  End Sub

Bob
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I think the Typed DataTable and Typed DataSet are very good options when working with data, but I don't like auto-generated code. First, I create an Abstract Class for my DataTables Common Code.  This class Inherits from DataTable. Also, it can …
Introduction When many people think of the WebBrowser (http://msdn.microsoft.com/en-us/library/2te2y1x6%28v=VS.85%29.aspx) control, they immediately think of a control which allows the viewing and navigation of web pages. While this is true, it's a…
This is used to tweak the memory usage for your computer, it is used for servers more so than workstations but just be careful editing registry settings as it may cause irreversible results. I hold no responsibility for anything you do to the regist…
Hi friends,  in this video  I'll show you how new windows 10 user can learn the using of windows 10. Thank you.

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

26 Experts available now in Live!

Get 1:1 Help Now