zhangyuqing
/
CodeSnippet
mirror of https://github.com/aborn/CodeSnippet
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

update kit.el

This commit is contained in:
aborn 2014-01-22 19:11:17 +08:00
parent fd16f0fcb2
commit 64b2dc47b1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
elisp/kit.el
View File

@ -24,11 +24,11 @@
(interactive "p")
(setq total (* iday 180))
(if (> total 800)
(setq value (+ 800 (* 0.8 (- (* iday 180) 800)))
tvalue (- (* iday 180) value)) ;; if true
(setq value total ;; else part
(setq value (+ 800 (* 0.8 (- total 800)))
tvalue (- total value)) ;; if true
(setq value total ;; else part
tvalue 0))
(message "You have worked %d day(s), and salary is %d, tax is %d." iday value tvalue)
)
(cal-salary (string-to-number (elt argv 0)))
(cal-salary (string-to-number (elt argv 0)))