用法
评论
建议
取 消
确 定
(defun datetime:rfc1123-to-lisp (str) "将RFC1123格式转化为 autolisp 表格式" "list" "(datetime:rfc1123-to-lisp \"Mon, 12 Sep 2022 03:58:42 GMT\")" (setq mon (quote ("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"))) (setq week (mapcar (function (lambda (x) (substr x 1 3))) (quote ("Monday" "Tuesday" "Wednesday" "Thurday" "Friday" "Saturday" "Sunday")))) (setq res (string:parse-by-lst str (quote (" " ":")))) (list (atoi (nth 3 res)) (1+ (vl-position (nth 2 res) mon)) (1+ (vl-position (substr (nth 0 res) 1 3) week)) (atoi (nth 1 res)) (atoi (nth 4 res)) (atoi (nth 5 res)) (atoi (nth 6 res)) 0))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 747 个
函数库类别: 52 种
上传记录
刷新