Method code for $world_time.from_unit_list()

[Turn off line numbering]

---

  1: arg time, ulist;
  2: var t, s, i;
  3: 
  4: s = [];
  5: for i in (ulist) {
  6:     t = time / time_units[i][1];
  7:     if (t)
  8:         s += [t + " " + time_units[i][2] + (t != 1 ? "s" : "")];
  9:     time = time % time_units[i][1];
 10: }
 11: return s.to_english();
 12: 
 13: // $#Edited: 20 Feb 98 07:33 $user_bruce

---

["// Created 19-Nov-1996 as a part of ColdCore, see: @help Credit"]