Display `size-byte' in various units

byte-in-various-units.el

(defun my:byte-to-various-units (size-byte)
  "Display `size-byte' in various units."
  (interactive "nBytes: ")
  (let ((size size-byte)
        (size-kib size-byte))
    (with-output-to-temp-buffer "*unit*"
      (princ (format "%d B\n-----------\n" size-byte))
      (dolist (unit '("K" "M" "G" "T" "P"))
        (setq size (/ size 1000.0))
        (setq size-kib (/ size-kib 1024.0))
        (princ (format (concat "%g %siB"
                               "\t\t"
                               "%g %sB"
                               "\n")
                       size-kib unit
                       size unit))))))