Entering previous and Future dates

[uma87]

Hi,

I have 2 scenarios where i have to enter Future Date and Past date

My application has a weblist to select month, another weblist to select Day. Based on Todays date i should enter a future Date and a past date. When ever i run the test It should use todays date and enter the required dates.

I'm using the below script
Dim MyDay
MyDay = Day(Date+1)
.WebList("Date").MyDay
wait 3

My day is giving a Correct Value When put in message Box, But the Weblist Isn't selecting that Value.
How should I proceed ?
A Calender Image is also present but, QTP is recognizing as webTable.How can i Use Calender?

Please see the Attchment/Snapshot for the Clear idea.

[vinod123]

use descriptive programing i have to work out and i will be back with it by using dp you can solve it