Převod minut na desetinné číslo

Funkce six2ten převádí počet minut na setiny.

Funkce ten2time naopak vypíše číslo v desítkové soustavě jako počet hodin a minut. Lze ji samozřejmě využít také pro převod čísla na úhly a minuty.

---

(defun six2ten(minutes / x)
	(/ minutes 60)
)

(defun ten2time(time / hrs mins)
	(setq hrs (fix time))
	(setq mins (- time hrs))
	(setq mins (* 60 mins))
	(setq mins (round mins 1))
	(princ (strcat (itoa hrs) " hours " (itoa mins) " minutes "))
	(princ)
)

---

Soubor ke stažení