diff options
-rw-r--r-- | global-functions.rsc | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/global-functions.rsc b/global-functions.rsc index fa8b767..c2c01ea 100644 --- a/global-functions.rsc +++ b/global-functions.rsc @@ -687,12 +687,18 @@ :set ParseDate do={ :local Date [ :tostr $1 ]; + :if ([ :pick $Date 4 5 ] != "-") do={ :local Months { "jan"=1; "feb"=2; "mar"=3; "apr"=4; "may"=5; "jun"=6; "jul"=7; "aug"=8; "sep"=9; "oct"=10; "nov"=11; "dec"=12 }; :return ({ "year"=[ :tonum [ :pick $Date 7 11 ] ]; "month"=($Months->[ :pick $Date 0 3 ]); "day"=[ :tonum [ :pick $Date 4 6 ] ] }); + } + + :return ({ "year"=[ :tonum [ :pick $Date 0 4 ] ]; + "month"=[ :tonum [ :pick $Date 5 7 ] ]; + "day"=[ :tonum [ :pick $Date 8 10 ] ] }); } # parse key value store |