returning a weekday from user input?

[Ray_Barber]

Hi,

I’m pretty new to applescript and am trying to ask a user to return a weekday from a list. I’ve tried several ways with no luck, the script is below - can anyone show me how to do this? Also can I declare a “theDate” variable without setting it?

set theDate to current date
choose from list {¬
Monday, ¬
Tuesday, ¬
Wednesday, ¬
Thursday, ¬
Friday, ¬
Saturday, ¬
Sunday} ¬
with prompt “Select Day of Recording”
set weekday of theDate to result

Thanks,

Phil

[tugboat666]

Are you talking about something like:

set the_list to {“Monday”, “Tuesday”, “Wdenesday”, “Thursday”, “Friday”, “Saturday”, “Sunday”}
set the_result to choose from list the_list
display dialog the_result

–this script was automatically tagged for
–color coded syntax by Script to Markup Code
–written by Jonathan Nathan

Andy

[Ray_Barber]

I don’t think so. I’m trying to construct a variable of class type date from user input. So, I’m asking them to enter weekday, day, month, year and then trying to construct a date from that. As I then want to do some arithmetic on the date, I can’t deal with the input as strings unless I write some subroutines to handle dates represented as strings. My understanding is that Applescript provides a date class with subclasses of weekday, day, month and year. The script I gave provided options as types of the weekday class (like an enum in C i guess) rather than using “Monday”, which I guess would be taken as a string. However when I try to set the weekday of my date variable from the result I get an error.

I guess what I’m looking for is a typecast style operation that will allow the result to be returned as a weekday type?

I’m guessing that the solution given deals with the days of the weeks as a list of strings?

Thanks,

Phil

[jonn8]

It’s easier to let AppleScript come up with the weekday from a given date. To allow the user to input a date, try this routine:

property the_month : “January”
property the_day : 1
property the_year : 2003

set the_month_new to (choose from list ¬
{“January”, “February”, “March”, “April”, “May”, “June”, “July”, “August”, “September”, “October”, “November”, “December”} ¬
default items {the_month}) as string
if the_month_new = “false” then return
set the_month to the_month_new

set error_message to “”
repeat
set the_day_new to text returned of (display dialog (error_message & “Enter the day:”) default answer the_day)
try
set the_day_new to the_day_new as integer
if the_day_new > 0 and the_day_new < 32 then
set the_day to the_day_new
exit repeat
end if
on error
set error_message to “Your entry was not a valid integer. Please try again.” & return & return
end try
end repeat

set error_message to “”
repeat
set the_year_new to text returned of (display dialog (error_message & “Enter the year:”) default answer the_year)
try
set the_year_new to the_year_new as integer
set the_year to the_year_new
exit repeat
on error
set error_message to “Your entry was not a valid integer. Please try again.” & return & return
end try
end repeat

set the_date to date (the_month & " " & the_day & " ," & the_year)
return the_date

Jon

---

[This script was automatically tagged for color coded syntax by Script to Markup Code]

[Ray_Barber]

Thanks! That’s the one, I’ve used the following syntax lifted from your example:

set RecEvent to date (RecMonth & space & RecDate & ", " & RecYear & space & RecHour & “:” & RecMin & “:00”)

That’s helped me through many an hour of frustration! :lol: