excel VBA code

[Savio]

Any idea how to use VBA code to check if the current day is a
particular day ?
example : check if today is saturday
thanks

 

[Chirag]

In Excel,
=weekday(today())
would tell you the day of week with 1 being a Sunday.

In VBA, you can use
Weekday(Now())
to return the day of the week.

- Chirag

PowerShow - View multiple PowerPoint slide shows simultaneously
http://officeone.mvps.org/powershow/powershow.html

 

[muddan madhu]

Sub test()
dys = Format(Date, "dddd")
MsgBox "Today is " & UCase(dys)
End Sub

 

[Don Guillett]

MsgBox Weekday(Date)
MsgBox Format(Date, "dddd")

 

[Savio]

thanks. do you know how i could incorporate that into an if statement.
Say : if today is saturday, follow a set of commands, else do
something else?

 

[muddan madhu]

Sub test()
dys = Format(Date, "dddd")
If dys = "saturday" Then
' your code goes here
Else
' your code
End If
End Sub

 

[Savio]

perfect thanks!

 

[Dana DeLouis]

Instead of generating a string ("saturday") perhaps...

If Day(Date) = vbSaturday Then
'Your code...
Else
'Something else
End If

= = =
Dana DeLouis

 

[Shane Devenshire]

Hi,

The Day function does not return the weekday it returns the day of the month.

Instead you could use

If Weekday(Date) = 7 Then

Else

End if

7 is the value for Saturday; Sunday = 1. If you're not coding a msgbox then
this would be a possibe branch.

If you want to handle the entire week consider using

Select Case Weekday(Date)
Case 1 'Sunday
'your code here
Case 2 'Monday
...

Case Else

End Select

 

[Dana DeLouis]

Instead you could use

If Weekday(Date) = 7 Then

Oops! Thanks for the catch. Yes, I meant Weekday.

Instead of a string, or a number like 7, perhaps...

? VbSaturday
7

Hence...

If Weekday(Date) = vbSaturday Then...

= = =
Thanks again.
Dana