Jump to content

Recommended Posts

Posted

Current system date over the set date not work

when less 10,09,2009 or 20,09,2009 over current system date then msg..... :thumbup

'date = current system date

dim startDate,endDate

startDate = CDate("10/09/" & Cstr(Year(TodayDate)))
eDate = CDate("20/09/" & Cstr(Year(TodayDate)))

if startDate < date or endDate > date then
msgbox "10 day over plz update"
else
msgbox "welcome to start"
end if

Plz any Solution or Solve problem :wacko:

Thanks :hello:


Posted

'date = current system date

dim startDate,endDate

startDate = CDate("10/09/" & Cstr(Year(TodayDate)))
eDate = CDate("20/09/" & Cstr(Year(TodayDate)))

if startDate < date or endDate > date then
msgbox "10 day over plz update"
else
msgbox "welcome to start"
end if

Change This

eDate = CDate("20/09/" & Cstr(Year(TodayDate)))

To This

endDate = CDate("20/09/" & Cstr(Year(TodayDate)))

Then try running your code

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...