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

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
  • Recently Browsing   0 members

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