Converting the date to make iCal appointment

Question

Hey Gang,
Im working on a script to mac iCal appointments that have an email alarm to send out a templated email.
I am unable to figure out what im missing to get the date to be recognized.
The goal of the entire script is:
popup - ask for the date of the appointment
popup - ask for the eMails of the persons involved
and then make an ical alarm to send an email out, the day before the actual appointment.
i feel there is a way better way for me to be working with the date in this situation but cant sort out what way.
any help would be grateful
on run
          set y to (year of (current date) as string)
          set m to (month of (current date) as string)
          set m2 to month of ((current date) + 30 * days) as string
##get day of month
          set theDay to (choose from list {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31} ¬
                    with prompt "Select the Day of the appointment") as text
          set theMonth to (month of (current date) as integer)
##Get the email list
          set emailList to ""
          set emailList to text returned of (display dialog "List the eMails of Presentation participants" default answer "[email protected], [email protected]")
##Make the ical event
          tell application "iCal"
                    tell calendar "Home"
                              set theDate to (theDay & "/" & theMonth & "/" & y) as string
  date theDate
                              make new event at end with properties {description:"Event Description", summary:"Event Name", location:"Event Location", start date:theDate, allday event:true}
                              set now to theDate
                              set eventStart to theDate
                              set eventEnd to theDate + 2 * minutes
                              set eventName to ("Presentation for " & emailList) as string
                              set alarmTime to (now - 1 * days) as string
                              tell application "iCal"
                                        set newEvent to make new event of calendar "Home" with properties {summary:eventName, start date:eventStart, end date:eventEnd}
                                        set theAlarm to make new mail alarm at end of mail alarms of newEvent with properties {trigger interval:alarmTime}
                              end tell
                    end tell
          end tell
end run

Answer 1

so the user interaction has changed. your scripts will help me in the future though. Thanks
I re-wrote the start but for whatever reason it wont make the iCal event with alarm.
it says unable to get date of Calendar 'Home'
and using the code
(date theDate) work with the other script. i only used that as it was in a textbook.
##Get the Date
set theDate to text returned of (display dialog ¬
          "Enter the Date" with title ¬
          "Presentation Reminder" with icon 1 ¬
default answer ¬
          "d/m/year" buttons {"Cancel Apt", "Make Apt"} ¬
default button 2)
set now to (date theDate)
##Get the email list
set emailList to ""
set emailList to text returned of (display dialog "List the eMail's of Presentation participants" default answer "[email protected], [email protected]")
##Make the ical event
tell application "iCal"
          tell calendar "Home"
  --date theDate
                    make new event with properties {description:"Event Description", summary:"Event Name", location:"Event Location", start date:(date theDate), allday event:true}
                    set eventStart to (date theDate)
                    set eventEnd to ((date theDate) + 2 * minutes)
                    set eventName to ("Presentation for " & emailList) as string
                    set alarmTime to (now - 1 * days) as string
                    set newEvent to make new event of calendar "Home" with properties {summary:eventName, start date:eventStart, end date:eventEnd}
                    set theAlarm to make new mail alarm at end of mail alarms of newEvent with properties {trigger interval:alarmTime}
          end tell
end tell
end run