[paul j]

Hi Erl,
I think I have to experiment with the dateformat. Normaly in the Netherlands we use dd-mm-yyyy. In the debugger yhe dateparse gives back a 0(zero) withe the format mm/dd/yyyy is returns a proper count of ticks

Sub Globals
DateFormat("dd-mm-yyyyy")
End Sub

Sub App_Start
frmMain.show

End Sub


Sub GetDate
Dim Date, subject

NewDate ="17/10/2007"
subject = "test"

AddAppointment(NewDate,subject)

End Sub

Sub AddAppointment(aDate, aSubject)
'pre aDate and aSubject have correct values
'post event has been added into the calender

Appointment.new1
Appointment.CreateNew
Appointment.Subject = aSubject
Appointment.AllDayEvent = true
Appointment.Start = DateParse(aDate)
PimCollection.New1("Appointments")
PimCollection.AddItem(appointment.value)
Msgbox(PimCollection.Count)

End Sub