[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