Gettin a Date from a User

[kpierce]

Hello -
I have been working trying to get a marco to accept a date from users.

However everytime I run this, sDefault returns today's date.

I do believe there is a calendar built in, is that a better way of getting dates? If so, is there a way I could lock the date down to a Friday? If so, how do I call this calendar, lock it to only friday (if possible), and place the date in a variable called sDefault?

thanks in advance.

Dim ws As Worksheet, PMSheet As String, OrgSheet As String
Dim sUserName As String
Dim sPrompt As String
Dim sTitle As String
Dim sDefault As Date
' Get Date
sPrompt = "Enter Date"
sTitle = "Date"
sDefault = Date
sUserName = InputBox(sPrompt, sTitle, sDefault)

'Always returns today.
MsgBox sDefault

 

[VoG]

Maybe

Dim ws As Worksheet, PMSheet As String, OrgSheet As String
Dim sUserName As String
Dim sPrompt As String
Dim sTitle As String
Dim sDefault As Date
Dim s As String
' Get Date
sPrompt = "Enter Date"
sTitle = "Date"
sDefault = Date
x = InputBox(sPrompt, sTitle, sDefault)
sDefault = DateValue(x)
'Always returns today.
MsgBox sDefault

Look here http://fontstuff.com/vba/vbatut07.htm

 

[kpierce]

Thank you...
I have been looking around and it seems it might be easier to get a Date via a calendar control.

Everything I see seems to be very complicated.

I just want to get a date and make sure it is a Friday, otherwise I want to kick out an error.

The calendar controls looks pretty slick, but that may be more complicated than I need.

Is there an EASY way to do this?

thanks in advance.

 

[VoG]

perhaps try like this

If Day(sDefault, vbFriday) <> 1 Then

 

[Hermanito]

I have been working trying to get a marco to accept a date from users.

Marco doesn't do dates, he prefers to be alone...

I just want to get a date and make sure it is a Friday

buy her some flowers and just ask her!!
btw, Friday is a perfect day to go on a date.

hope that helps,
H