Rev 17636 | Rev 17642 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 17636 | Rev 17639 | ||
|---|---|---|---|
| Line 238... | Line 238... | ||
| 238 | 238 | ||
| 239 | t=0 |
239 | t=0 |
| 240 | !for val in deadline,soldate |
240 | !for val in deadline,soldate |
| 241 | !! -- check date format |
241 | !! -- check date format |
| 242 | $val=!text select 0123456789 in $($val) |
242 | $val=!text select 0123456789 in $($val) |
| - | 243 | $val=!char 1 to 8 of $($val) |
|
| 243 | expmon=!char 5 to 6 of $($val) |
244 | expmon=!char 5 to 6 of $($val) |
| 244 | expday=!char 7 to 8 of $($val) |
245 | expday=!char 7 to 8 of $($val) |
| 245 | expyear=!char 1 to 4 of $($val) |
246 | expyear=!char 1 to 4 of $($val) |
| 246 | expmon=!char 2,3 of $[abs(floor($expmon))+100] |
247 | expmon=!char 2,3 of $[abs(floor($expmon))+100] |
| 247 | expday=!char 2,3 of $[abs(floor($expday))+100] |
248 | expday=!char 2,3 of $[abs(floor($expday))+100] |