[Siebel QTP Automation] Unable to automate SiebCalendar object

[vishnu_cec]

Hi,

I am facing an issue while automating a SiebCalendar object :
   

This is the code I use :

Code:

my_year = Year(Now) my_month = Month(Now) my_day = Day(Now) my_min = Minute(Now) + 1 my_hr = Hour(Now) my_time = my_hr & my_min & Second(Now) SiebViewRep.SiebCalendar("repositoryname:=Planned Start").OpenPopup SiebViewRep.SiebCalendar("repositoryname:=Planned Start").SetYear my_year SiebViewRep.SiebCalendar("repositoryname:=Planned Start").SetMonth my_month SiebViewRep.SiebCalendar("repositoryname:=Planned Start").SetDay my_day SiebViewRep.SiebCalendar("repositoryname:=Planned Start").SetTime my_time SiebViewRep.SiebCalendar("repositoryname:=Planned Start").ClosePopup

But I am unable to set the time part on the calendar.
Any help on this is much appreciated.

Thanks,
Vishnu