get Quarter value for specific date

[=?Utf-8?B?bWFydGluMQ==?=]

All,

I try to get specific date's quarter value, for eaxmple quarter value is 1
for 02/04/2008, anyone can help this out?

Thanks

Martin

[=?Utf-8?B?VGVycnk=?=]

how about something like
Select Case MyDate.Month
Case 1 to 3
Qtr = 1
Case 4 to 6
Qtr = 2
etc
--
Terry
"martin1" wrote:

All,

I try to get specific date's quarter value, for eaxmple quarter value is 1
for 02/04/2008, anyone can help this out?

Thanks

Martin

[=?Utf-8?B?VGVycnk=?=]

Here is another one...
Qtr = ((MyDate.Month - 1) \ 3) + 1
--
Terry
"martin1" wrote:

All,

I try to get specific date's quarter value, for eaxmple quarter value is 1
for 02/04/2008, anyone can help this out?

Thanks

Martin

[Armin Zingler]

"martin1" <ma*****@discussions.microsoft.comschrieb

All,

I try to get specific date's quarter value, for eaxmple quarter
value is 1 for 02/04/2008, anyone can help this out?

Dim d As Date = #2/4/2008#
Dim q As Integer

q = (d.Month \ 4) + 1
Armin

[Armin Zingler]

"Armin Zingler" <az*******@freenet.deschrieb

Dim d As Date = #2/4/2008#
Dim q As Integer

q = (d.Month \ 4) + 1

*argh* forget it. Wrong. Right answer given meanwhile.
Armin

[=?Utf-8?B?bWFydGluMQ==?=]

Thank you all. That is helpful

Martin

"Terry" wrote:

how about something like
Select Case MyDate.Month
Case 1 to 3
Qtr = 1
Case 4 to 6
Qtr = 2
etc
--
Terry
"martin1" wrote:

All,

I try to get specific date's quarter value, for eaxmple quarter value is 1
for 02/04/2008, anyone can help this out?

Thanks

Martin

[Charles Seitz]

Dim dtmCurrentDateTime As System.DateTime = Now()
Dim iCurrentQuarter As System.Int32 = DatePart(DateInterval.Quarter, dtmCurrentDateTime)