Hi James,
No prize yet. Your function will always return the
first day of the current month.
You are subtracting 1, dividing by 3,
multiplying by 3 and adding 1.
That gives you the number you first thought of.
Try this in the Debug Window first,
For y=1 to 12:?y;tab(7);DateSerial(YearDate), Mid$("111222333444",y,1),1):next y
Regards, Clive.
--- In MS_Access_Professionals@yahoogroups.com, John Viescas <JohnV@...> wrote:
>
> James-
>
> That looks correct.
>
> John Viescas, author
> Microsoft Office Access 2010 Inside Out
> Microsoft Office Access 2007 Inside Out
> Building Microsoft Access Applications
> Microsoft Office Access 2003 Inside Out
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
> ------------------------------
>
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of j1eggert
> Sent: Wednesday, April 11, 2012 7:23 PM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: [MS_AccessPros] Re: DateSerial
>
>
> John,
>
> I think this is what I should have done:
>
> FirstDay = DateSerial(Year(Date), Int((Month(Date) - 1) / 3) * 3 + 1, 1)
>
> Please let me know if this is correct.
>
> Thanks,
> James Eggert
>
> --- In MS_Access_Professionals@yahoogroups.com, John Viescas <JohnV@> wrote:
> >
> > James-
> >
> > Looks like the problem is here:
> >
> > Int ((month(Date())+)/3)*3+1
> >
> > What did you mean to add to Date() inside the Month function?
> >
> > John Viescas, author
> > Microsoft Office Access 2010 Inside Out
> > Microsoft Office Access 2007 Inside Out
> > Building Microsoft Access Applications
> > Microsoft Office Access 2003 Inside Out
> > SQL Queries for Mere Mortals
> > http://www.viescas.com/
> > (Paris, France)
> >
> > ------------------------------------
> >
> > From: MS_Access_Professionals@yahoogroups.com
> > [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of j1eggert
> > Sent: Wednesday, April 11, 2012 4:50 PM
> > To: MS_Access_Professionals@yahoogroups.com
> > Subject: [MS_AccessPros] DateSerial
> >
> >
> > I am using Access 2007 and tried to plug the following vba code into the
> Control
> > Source of a text box, which results in an error:
> >
> > =DateSerial(Year(Date()), Int ((month(Date())+)/3)*3+1,1)
> >
> > If some one could point out my error I would really appreciate it.
> >
> > v/r,
> > James Eggert
> >
>
Tidak ada komentar:
Posting Komentar