By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,466 Members | 1,537 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,466 IT Pros & Developers. It's quick & easy.

Create A List Of Dates In A Month

P: n/a
An Access user saw my name in a newsgroup and sent me a request for help on
a project. As part of the project, a list of the dates in a month was
needed. For anyone needing a list of dates in a month, here is what I used:

1. Create a table named TblNumbers with one field named Num and populate
the table with 1 to 31
2. Create a query based on TblNumbers
3. Pull down Num into the first field of the query.
4. Put the following expression in the criteria for Num:
<=Day(DateSerial(6,1+1,0))
5. Put the following expression in the second field of the query:
MonthDate: DateSerial(6,1,[Num])
6. Put the following expression in the third field of the query:
=Day([MonthDate])
7. Put the following expression in the fourth field of the query:
=Format([MonthDate],"ddd")
8. Put the following expression in the fifth field of the query:
= Format([MonthDate],"dddd")
9. Run the query.

The query will return all the dates for this month (January 06) in the
second column. The third column will contain the day of the month for each
date. The fourth column will contain the three letter abbreviation for the
day of the week for each date. The fifth column will contain the full name
of the day of the week for each date.

In the DateSerial expression, 6 is the year (06) and 1 is the number of the
month. You can make the query return the dates for any year and month by
modifying the DateSerial function to make the 6 and 1 selectable on a form.
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1075 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com
Jan 8 '06 #1
Share this Question
Share on Google+
18 Replies


P: n/a

To quote Arno:

Most people here have a common belief that the newsgroups are for *free
exchange of information*.
But Steve is a notorious job hunter in these groups, always trying to sell
his services.

Before you intend to do business with him look at:
http://home.tiscali.nl/arracom/whoissteve.html

"PC Datasheet" <no****@nospam.spam> wrote in message
news:n_*****************@newsread2.news.atl.earthl ink.net...
An Access user saw my name in a newsgroup and sent me a request for help on a project. As part of the project, a list of the dates in a month was
needed. For anyone needing a list of dates in a month, here is what I used:
1. Create a table named TblNumbers with one field named Num and populate
the table with 1 to 31
2. Create a query based on TblNumbers
3. Pull down Num into the first field of the query.
4. Put the following expression in the criteria for Num:
<=Day(DateSerial(6,1+1,0))
5. Put the following expression in the second field of the query:
MonthDate: DateSerial(6,1,[Num])
6. Put the following expression in the third field of the query:
=Day([MonthDate])
7. Put the following expression in the fourth field of the query:
=Format([MonthDate],"ddd")
8. Put the following expression in the fifth field of the query:
= Format([MonthDate],"dddd")
9. Run the query.

The query will return all the dates for this month (January 06) in the
second column. The third column will contain the day of the month for each
date. The fourth column will contain the three letter abbreviation for the
day of the week for each date. The fifth column will contain the full name of the day of the week for each date.

In the DateSerial expression, 6 is the year (06) and 1 is the number of the month. You can make the query return the dates for any year and month by
modifying the DateSerial function to make the 6 and 1 selectable on a form.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1075 users have come to me from the newsgroups requesting help re******@pcdatasheet.com

Jan 8 '06 #2

P: n/a
I'm not sure why you didn't just put this tip in the Access/Excel Tips page
on your web site (which is blank/under construction)? That's what I believe
most would have done rather than stating that someone asked you a question
off line. I'm not suggesting you didn't get a legitimate question off line
but it is just a bit unusual to post like you did in all these news groups.

I believe there are other forums on the web that are more accepting of
Access tips (and advertising ;-).

--
Duane Hookom
MS Access MVP
--

"PC Datasheet" <no****@nospam.spam> wrote in message
news:n_*****************@newsread2.news.atl.earthl ink.net...
An Access user saw my name in a newsgroup and sent me a request for help
on a project. As part of the project, a list of the dates in a month was
needed. For anyone needing a list of dates in a month, here is what I
used:

1. Create a table named TblNumbers with one field named Num and populate
the table with 1 to 31
2. Create a query based on TblNumbers
3. Pull down Num into the first field of the query.
4. Put the following expression in the criteria for Num:
<=Day(DateSerial(6,1+1,0))
5. Put the following expression in the second field of the query:
MonthDate: DateSerial(6,1,[Num])
6. Put the following expression in the third field of the query:
=Day([MonthDate])
7. Put the following expression in the fourth field of the query:
=Format([MonthDate],"ddd")
8. Put the following expression in the fifth field of the query:
= Format([MonthDate],"dddd")
9. Run the query.

The query will return all the dates for this month (January 06) in the
second column. The third column will contain the day of the month for each
date. The fourth column will contain the three letter abbreviation for the
day of the week for each date. The fifth column will contain the full
name of the day of the week for each date.

In the DateSerial expression, 6 is the year (06) and 1 is the number of
the month. You can make the query return the dates for any year and month
by modifying the DateSerial function to make the 6 and 1 selectable on a
form.
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1075 users have come to me from the newsgroups requesting help
re******@pcdatasheet.com

Jan 8 '06 #3

P: n/a
Just in case anyone was also wondering, I had a big money client today who
paid me a small Caribbean island for coming up with this:

function MultByTwo(d as double)
MultByTwo=d*2
end function

I'm particularly proud of that. That's the 57,365th person who's contacted
me because they've seen my name on a newsgroup this month.
"Duane Hookom" <du*********@NoSpamHotmail.com> wrote in message
news:eZ**************@TK2MSFTNGP14.phx.gbl...
I'm not sure why you didn't just put this tip in the Access/Excel Tips page on your web site (which is blank/under construction)? That's what I believe most would have done rather than stating that someone asked you a question
off line. I'm not suggesting you didn't get a legitimate question off line
but it is just a bit unusual to post like you did in all these news groups.
I believe there are other forums on the web that are more accepting of
Access tips (and advertising ;-).

--
Duane Hookom
MS Access MVP
--

"PC Datasheet" <no****@nospam.spam> wrote in message
news:n_*****************@newsread2.news.atl.earthl ink.net...
An Access user saw my name in a newsgroup and sent me a request for help
on a project. As part of the project, a list of the dates in a month was
needed. For anyone needing a list of dates in a month, here is what I
used:

1. Create a table named TblNumbers with one field named Num and populate the table with 1 to 31
2. Create a query based on TblNumbers
3. Pull down Num into the first field of the query.
4. Put the following expression in the criteria for Num:
<=Day(DateSerial(6,1+1,0))
5. Put the following expression in the second field of the query:
MonthDate: DateSerial(6,1,[Num])
6. Put the following expression in the third field of the query:
=Day([MonthDate])
7. Put the following expression in the fourth field of the query:
=Format([MonthDate],"ddd")
8. Put the following expression in the fifth field of the query:
= Format([MonthDate],"dddd")
9. Run the query.

The query will return all the dates for this month (January 06) in the
second column. The third column will contain the day of the month for each date. The fourth column will contain the three letter abbreviation for the day of the week for each date. The fifth column will contain the full
name of the day of the week for each date.

In the DateSerial expression, 6 is the year (06) and 1 is the number of
the month. You can make the query return the dates for any year and month by modifying the DateSerial function to make the 6 and 1 selectable on a
form.
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications Over 1075 users have come to me from the newsgroups requesting help re******@pcdatasheet.com


Jan 9 '06 #4

P: n/a
We had our company holiday party last night. We paid good money for a
comedian. He could have taken a lesson or two from you....

Keep it coming ;-)

BTW: consider data typing your function
Function MultByTwo(d as Double) as Double

--
Duane Hookom
MS Access MVP
--

"Rob Oldfield" <bl**@blah.com> wrote in message
news:43*********************@news.zen.co.uk...
Just in case anyone was also wondering, I had a big money client today who
paid me a small Caribbean island for coming up with this:

function MultByTwo(d as double)
MultByTwo=d*2
end function

I'm particularly proud of that. That's the 57,365th person who's
contacted
me because they've seen my name on a newsgroup this month.
"Duane Hookom" <du*********@NoSpamHotmail.com> wrote in message
news:eZ**************@TK2MSFTNGP14.phx.gbl...
I'm not sure why you didn't just put this tip in the Access/Excel Tips

page
on your web site (which is blank/under construction)? That's what I

believe
most would have done rather than stating that someone asked you a
question
off line. I'm not suggesting you didn't get a legitimate question off
line
but it is just a bit unusual to post like you did in all these news

groups.

I believe there are other forums on the web that are more accepting of
Access tips (and advertising ;-).

--
Duane Hookom
MS Access MVP
--

"PC Datasheet" <no****@nospam.spam> wrote in message
news:n_*****************@newsread2.news.atl.earthl ink.net...
> An Access user saw my name in a newsgroup and sent me a request for
> help
> on a project. As part of the project, a list of the dates in a month
> was
> needed. For anyone needing a list of dates in a month, here is what I
> used:
>
> 1. Create a table named TblNumbers with one field named Num and populate > the table with 1 to 31
> 2. Create a query based on TblNumbers
> 3. Pull down Num into the first field of the query.
> 4. Put the following expression in the criteria for Num:
> <=Day(DateSerial(6,1+1,0))
> 5. Put the following expression in the second field of the query:
> MonthDate: DateSerial(6,1,[Num])
> 6. Put the following expression in the third field of the query:
> =Day([MonthDate])
> 7. Put the following expression in the fourth field of the query:
> =Format([MonthDate],"ddd")
> 8. Put the following expression in the fifth field of the query:
> = Format([MonthDate],"dddd")
> 9. Run the query.
>
> The query will return all the dates for this month (January 06) in the
> second column. The third column will contain the day of the month for each > date. The fourth column will contain the three letter abbreviation for the > day of the week for each date. The fifth column will contain the full
> name of the day of the week for each date.
>
> In the DateSerial expression, 6 is the year (06) and 1 is the number of
> the month. You can make the query return the dates for any year and month > by modifying the DateSerial function to make the 6 and 1 selectable on
> a
> form.
>
>
> --
> PC Datasheet
> Your Resource For Help With Access, Excel And Word Applications > Over 1075 users have come to me from the newsgroups requesting help > re******@pcdatasheet.com
>



Jan 9 '06 #5

P: n/a
ROFL!! Very nice, Rob.

--
Steve Schapel, Microsoft Access MVP
Rob Oldfield wrote:
Just in case anyone was also wondering, I had a big money client today who
paid me a small Caribbean island for coming up with this:

function MultByTwo(d as double)
MultByTwo=d*2
end function

I'm particularly proud of that. That's the 57,365th person who's contacted
me because they've seen my name on a newsgroup this month.

Jan 9 '06 #6

P: n/a
rkc
PC Datasheet wrote:
An Access user saw my name in a newsgroup and sent me a request for help on
a project.


I need to find a picture of a smiley face.
Can you help me with that?
Jan 9 '06 #7

P: n/a
Duane Hookom wrote:
We had our company holiday party last night. We paid good money for a
comedian. He could have taken a lesson or two from you....

Keep it coming ;-)

BTW: consider data typing your function
Function MultByTwo(d as Double) as Double

Hey, it was only a small island. For full typing, you have
to throw in a yacht.

--
Marsh
MVP [MS Access]
Jan 9 '06 #8

P: n/a
"Rob Oldfield" <bl**@blah.com> wrote in message
news:43*********************@news.zen.co.uk...

I'm particularly proud of that. That's the 57,365th person who's
contacted
me because they've seen my name on a newsgroup this month.

<Four Yorkshiremen>
An yuh tell that tuh yung peepul tuday ... an thi don't believe yuh!
</Four Yorkshiremen>
Jan 9 '06 #9

P: n/a
"PC Datasheet" <no****@nospam.spam> wrote in message
news:n_*****************@newsread2.news.atl.earthl ink.net...
For anyone needing a list of dates in a month, here is what I used:

A large crayon?

How much did your solution cost?
Jan 9 '06 #10

P: n/a
Incidentally Steve, I was just browsing Arno's site when I noticed a mail
from you to a previous prospective client including the phrase: "You will
totally own the application; there will be no licensing restrictions."

Did you change your standard terms, or did you ask the owner of this code
for permission to reproduce it here?
"PC Datasheet" <no****@nospam.spam> wrote in message
news:n_*****************@newsread2.news.atl.earthl ink.net...
An Access user saw my name in a newsgroup and sent me a request for help on a project. As part of the project, a list of the dates in a month was
needed. For anyone needing a list of dates in a month, here is what I used:
1. Create a table named TblNumbers with one field named Num and populate
the table with 1 to 31
2. Create a query based on TblNumbers
3. Pull down Num into the first field of the query.
4. Put the following expression in the criteria for Num:
<=Day(DateSerial(6,1+1,0))
5. Put the following expression in the second field of the query:
MonthDate: DateSerial(6,1,[Num])
6. Put the following expression in the third field of the query:
=Day([MonthDate])
7. Put the following expression in the fourth field of the query:
=Format([MonthDate],"ddd")
8. Put the following expression in the fifth field of the query:
= Format([MonthDate],"dddd")
9. Run the query.

The query will return all the dates for this month (January 06) in the
second column. The third column will contain the day of the month for each
date. The fourth column will contain the three letter abbreviation for the
day of the week for each date. The fifth column will contain the full name of the day of the week for each date.

In the DateSerial expression, 6 is the year (06) and 1 is the number of the month. You can make the query return the dates for any year and month by
modifying the DateSerial function to make the 6 and 1 selectable on a form.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1075 users have come to me from the newsgroups requesting help re******@pcdatasheet.com

Jan 9 '06 #11

P: n/a
Arno,

You think it would be a good idea to include another section on your site:
how to report abuse to Earthlink? I'm perfectly prepared to help out by
writing it.
"Rob Oldfield" <bl**@blah.com> wrote in message
news:43***********************@news.zen.co.uk...
Incidentally Steve, I was just browsing Arno's site when I noticed a mail
from you to a previous prospective client including the phrase: "You will
totally own the application; there will be no licensing restrictions."

Did you change your standard terms, or did you ask the owner of this code
for permission to reproduce it here?
"PC Datasheet" <no****@nospam.spam> wrote in message
news:n_*****************@newsread2.news.atl.earthl ink.net...
An Access user saw my name in a newsgroup and sent me a request for help

on
a project. As part of the project, a list of the dates in a month was
needed. For anyone needing a list of dates in a month, here is what I

used:

1. Create a table named TblNumbers with one field named Num and populate the table with 1 to 31
2. Create a query based on TblNumbers
3. Pull down Num into the first field of the query.
4. Put the following expression in the criteria for Num:
<=Day(DateSerial(6,1+1,0))
5. Put the following expression in the second field of the query:
MonthDate: DateSerial(6,1,[Num])
6. Put the following expression in the third field of the query:
=Day([MonthDate])
7. Put the following expression in the fourth field of the query:
=Format([MonthDate],"ddd")
8. Put the following expression in the fifth field of the query:
= Format([MonthDate],"dddd")
9. Run the query.

The query will return all the dates for this month (January 06) in the
second column. The third column will contain the day of the month for each date. The fourth column will contain the three letter abbreviation for the day of the week for each date. The fifth column will contain the full

name
of the day of the week for each date.

In the DateSerial expression, 6 is the year (06) and 1 is the number of

the
month. You can make the query return the dates for any year and month by
modifying the DateSerial function to make the 6 and 1 selectable on a

form.


--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications Over 1075 users have come to me from the newsgroups requesting

help
re******@pcdatasheet.com


Jan 10 '06 #12

P: n/a
I wonder whether
http://news.com.com/Create+an+e-anno...2491&subj=news
is relevant here...

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)
"Rob Oldfield" <bl**@blah.com> wrote in message
news:43***********************@news.zen.co.uk...
Arno,

You think it would be a good idea to include another section on your site:
how to report abuse to Earthlink? I'm perfectly prepared to help out by
writing it.
"Rob Oldfield" <bl**@blah.com> wrote in message
news:43***********************@news.zen.co.uk...
Incidentally Steve, I was just browsing Arno's site when I noticed a mail
from you to a previous prospective client including the phrase: "You will
totally own the application; there will be no licensing restrictions."

Did you change your standard terms, or did you ask the owner of this code
for permission to reproduce it here?
"PC Datasheet" <no****@nospam.spam> wrote in message
news:n_*****************@newsread2.news.atl.earthl ink.net...
> An Access user saw my name in a newsgroup and sent me a request for
> help

on
> a project. As part of the project, a list of the dates in a month was
> needed. For anyone needing a list of dates in a month, here is what I

used:
>
> 1. Create a table named TblNumbers with one field named Num and populate > the table with 1 to 31
> 2. Create a query based on TblNumbers
> 3. Pull down Num into the first field of the query.
> 4. Put the following expression in the criteria for Num:
> <=Day(DateSerial(6,1+1,0))
> 5. Put the following expression in the second field of the query:
> MonthDate: DateSerial(6,1,[Num])
> 6. Put the following expression in the third field of the query:
> =Day([MonthDate])
> 7. Put the following expression in the fourth field of the query:
> =Format([MonthDate],"ddd")
> 8. Put the following expression in the fifth field of the query:
> = Format([MonthDate],"dddd")
> 9. Run the query.
>
> The query will return all the dates for this month (January 06) in the
> second column. The third column will contain the day of the month for each > date. The fourth column will contain the three letter abbreviation for the > day of the week for each date. The fifth column will contain the full

name
> of the day of the week for each date.
>
> In the DateSerial expression, 6 is the year (06) and 1 is the number of

the
> month. You can make the query return the dates for any year and month
> by
> modifying the DateSerial function to make the 6 and 1 selectable on a

form.
>
>
> --
> PC Datasheet
> Your Resource For Help With Access, Excel And Word Applications > Over 1075 users have come to me from the newsgroups requesting

help
> re******@pcdatasheet.com
>
>



Jan 10 '06 #13

P: n/a
Well that's just annoying.
"Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_canada.com> wrote in message
news:eV*************@TK2MSFTNGP09.phx.gbl...
I wonder whether
http://news.com.com/Create+an+e-anno...2491&subj=news is relevant here...

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)
"Rob Oldfield" <bl**@blah.com> wrote in message
news:43***********************@news.zen.co.uk...
Arno,

You think it would be a good idea to include another section on your site: how to report abuse to Earthlink? I'm perfectly prepared to help out by
writing it.
"Rob Oldfield" <bl**@blah.com> wrote in message
news:43***********************@news.zen.co.uk...
Incidentally Steve, I was just browsing Arno's site when I noticed a mail from you to a previous prospective client including the phrase: "You will totally own the application; there will be no licensing restrictions."

Did you change your standard terms, or did you ask the owner of this code for permission to reproduce it here?
"PC Datasheet" <no****@nospam.spam> wrote in message
news:n_*****************@newsread2.news.atl.earthl ink.net...
> An Access user saw my name in a newsgroup and sent me a request for
> help
on
> a project. As part of the project, a list of the dates in a month was
> needed. For anyone needing a list of dates in a month, here is what I
used:
>
> 1. Create a table named TblNumbers with one field named Num and

populate
> the table with 1 to 31
> 2. Create a query based on TblNumbers
> 3. Pull down Num into the first field of the query.
> 4. Put the following expression in the criteria for Num:
> <=Day(DateSerial(6,1+1,0))
> 5. Put the following expression in the second field of the query:
> MonthDate: DateSerial(6,1,[Num])
> 6. Put the following expression in the third field of the query:
> =Day([MonthDate])
> 7. Put the following expression in the fourth field of the query:
> =Format([MonthDate],"ddd")
> 8. Put the following expression in the fifth field of the query:
> = Format([MonthDate],"dddd")
> 9. Run the query.
>
> The query will return all the dates for this month (January 06) in the > second column. The third column will contain the day of the month for

each
> date. The fourth column will contain the three letter abbreviation for
the
> day of the week for each date. The fifth column will contain the

full name
> of the day of the week for each date.
>
> In the DateSerial expression, 6 is the year (06) and 1 is the number of the
> month. You can make the query return the dates for any year and month
> by
> modifying the DateSerial function to make the 6 and 1 selectable on a
form.
>
>
> --
> PC Datasheet
> Your Resource For Help With Access, Excel And Word

Applications
> Over 1075 users have come to me from the newsgroups requesting help
> re******@pcdatasheet.com
>
>



Jan 10 '06 #14

P: n/a

"Rob Oldfield" <bl**@blah.com> schreef in bericht news:43***********************@news.zen.co.uk...
Arno,

You think it would be a good idea to include another section on your site:
how to report abuse to Earthlink? I'm perfectly prepared to help out by
writing it.


Hi Rob,

Might be a good idea indeed to add another page to the website.
Thanks for the offer to help writing a 'report-abuse' section.
At the moment I am busy with the page 'what's next', (coming soon indeed) since Steve has made his position perfectly clear.

Please contact me offline.

Arno R

Jan 10 '06 #15

P: n/a
[some followup newsgroups trimmed]

Rob Oldfield wrote:
To quote Arno:

Most people here have a common belief that the newsgroups are for *free
exchange of information*.
I didn't need to put my credit card details in to read his post, so
that still appears to be the case here.
But Steve is a notorious job hunter in these groups, always trying to sell
his services.


So?

Common Usenet netiquette stipulates that you don't spam newsgroups with
advertisements, however it is commonly accepted that people are able to
slip in a reference to their web site and commercial services in their
sigs.

The purpose of this netiquette is to keep the noise to signal ratio
acceptably low so the group's primary purpose of information
interchange is not hampered.

Whatever ulterior motives may have been behind his post, the post did
contain useful information and was not on the face of it anything like
spam, therefore it was in keeping with the primary function of these
newsgroups which is to disseminate tips on Access, database design and
VBA.

Travis

Jan 10 '06 #16

P: n/a
"Travis" <tr**********@yahoo.com> wrote in message
news:11**********************@f14g2000cwb.googlegr oups.com...

Common Usenet netiquette stipulates that you don't spam newsgroups with
advertisements, however it is commonly accepted that people are able to
slip in a reference to their web site and commercial services in their
sigs.


Did you read the AUP for this group before posting that incorrect
information?
Jan 10 '06 #17

P: n/a

"Travis" <tr**********@yahoo.com> schreef in bericht news:11**********************@f14g2000cwb.googlegr oups.com...
[some followup newsgroups trimmed]
Not very usual for a new user here to do this ...
But Steve is a notorious job hunter in these groups, always trying to sell
his services.

So?


Seen the website that Rob mentioned? Need one say more?

Please try to understand that it is difficult enough to stop advertising here without comments like yours.
No need to make this thread a long thread.
We have had more than enough annoying, long, off-topic threads.

Arno R
Jan 10 '06 #18

P: n/a
Rob Oldfield wrote:
Just in case anyone was also wondering, I had a big money client today who
paid me a small Caribbean island for coming up with this:

function MultByTwo(d as double)
MultByTwo=d*2
end function

I'm particularly proud of that. That's the 57,365th person who's contacted
me because they've seen my name on a newsgroup this month.


:-)

I once saw a CV (Resume) from someone who seemed so proud of the fact
that he had done a project using the Mid() function, that one got
"special" consideration from us.
Jan 11 '06 #19

This discussion thread is closed

Replies have been disabled for this discussion.