Here is a script that convert the system date into a D7 date type (it should
work on any system). Once you have a D7 date format, you can do comparisons.
on GetToDay me
shortDate = the short date & "#"
abbrDate = the abbreviated date & "#"
shortDateList = []
aNum = ""
dateLength = length (shortDate)
repeat with i = 1 to dateLength
aChar = char i of shortDate
if "0123456789" contains aChar then put aChar after aNum
else if aNum <> "" then
shortDateList.add(value (aNum) mod 100)
aNum = ""
end if
end repeat
abbrDateList = []
aNum = ""
dateLength = length(abbrDate)
repeat with i = 1 to dateLength
set aChar = char i of abbrDate
if "0123456789" contains aChar then put aChar after aNum
else if aNum <> "" then
add abbrDateList, value (aNum)
set aNum = ""
end if
end repeat
year = abbrDateList.getAt(2)
day = abbrDateList.getAt(1)
shortDateList.deleteOne(year mod 100)
shortDateList.deleteOne(day)
month = shortDateList.getAt(1)
return Date(year, month, day)
end
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Steven Sacks
> Sent: 25 octobre, 2000 11:57
> To: [EMAIL PROTECTED]
> Subject: <lingo-l> Question about the systemDate
>
>
> Is the systemDate international?
>
> Will the following work on all computers?
>
> on exitFrame me
> x = date( 2000, 11, 3)
> expire = FALSE
> if x < the systemDate then expire = TRUE
> if expire = TRUE then go frame "beta"
> end
>
>
> Thanks,
> Steven Sacks
> [EMAIL PROTECTED]
>
> [To remove yourself from this list, or to change to digest mode, go to
> http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
> email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
> Lingo-L is for learning and helping with programming Lingo. Thanks!]
>
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
