Dates Again!

[Muzzy]

Currently I have a field on a form (txtDate)that displays todays date, I then have another field that picks out the month in that date(txtMonth)and displays it e.g September. I then want to say if that month = September(For example) then the value of a different field (txtQuarter) has to be set to '2'.

From what I can gather the field named txtMonth stores the date as 01/09/02 and just pick the month out and displays September so the field will never = September!
Any helpers?

 

[OldTom]

Hi Muzzy

I'm not sure what you've got there but month(datefield) will give you the month number (1 - 12). You could try using this and then converting the number afterwards

Tom

 

[AutumnBlues]

This is a bit crude but it'll do the job

----------------------

Private Sub WhateverAction()

Dim quarter As Integer

txtmonth = Month(txtdate)

Select Case Month(txtdate)

Case Is < 4
quarter = 4

Case Is < 7
quarter = 1

Case Is < 10
quarter = 2

Case Is < 12
quarter = 3

End Select

txtquarter = quarter
End Sub

 

[danvlas]

How about:

txtQuarter = DatePart(&quot;q&quot;, txtDate)

txtMonth = Format(Month(txtDate),&quot;mmmm&quot


Daniel Vlas
Systems Consultant
danvlas@yahoo.com

 

[VBslammer]

This is the proper control source for txtMonth:

=Format([txtDate],&quot;mmmm&quot

You can use a switch to display whatever criteria you want in txtQuarter. Set the control source for txtQuarter to something similar to:

=Switch([txtMonth]=&quot;January&quot;,&quot;Quarter 1&quot;,[txtMonth]=&quot;February&quot;,&quot;Quarter 1&quot;,[txtMonth]=&quot;March&quot;,&quot;Quarter 1&quot;,[txtMonth]=&quot;April&quot;,&quot;Quarter 2&quot;,[txtMonth]=&quot;May&quot;,&quot;Quarter 2&quot;,[txtMonth]=&quot;June&quot;,&quot;Quarter 2&quot;,[txtMonth]=&quot;July&quot;,&quot;Quarter 3&quot;,[txtMonth]=&quot;August&quot;,&quot;Quarter 3&quot;,[txtMonth]=&quot;September&quot;,&quot;Quarter 3&quot;,[txtMonth]=&quot;October&quot;,&quot;Quarter 4&quot;,[txtMonth]=&quot;November&quot;,&quot;Quarter 4&quot;,[txtMonth]=&quot;December&quot;,&quot;Quarter 4&quot

Have fun,

VBSlammer

 

[raskew]

It's not really necessary to go thru a lot
of gyrations to return the quarter of a
particular date. The DatePart function
will do it for you. Try this from the
debug window:

dteMyDate = date()
? dteMyDate
9/18/02 
? DatePart("q",dteMyDate)
 3

This solution assumes that the FY
corresponds to the calendar year. If,
however, the FY starts with a month
other than January (eg, July), you can use
this:
= int(Datediff(&quot;m&quot;,[FYStart],[dteMyDate])/3) + 1

From the debug window, using the previous
example, it would look like this:

? int(Datediff("m",#07/01/02#, dteMyDate)/3) + 1
 1