Method code for $time.dhms()

[Turn off line numbering]

---

  1: arg secs, @long;
  2: var ret_str, x;
  3: 
  4: if (long)
  5:     long = 1;
  6: if (secs > 86400) {
  7:     x = secs / 86400;
  8:     ret_str = x + (long ? " day" + (x < 2 ? "" : "s") : "d");
  9: } else if (secs > 3600) {
 10:     x = secs / 3600;
 11:     ret_str = x + (long ? " hr" + (x < 2 ? "" : "s") : "h");
 12: } else if (secs > 60) {
 13:     x = secs / 60;
 14:     ret_str = x + (long ? " min" + (x < 2 ? "" : "s") : "m");
 15: } else {
 16:     ret_str = secs + (long ? " sec" + (secs < 2 ? "" : "s") : "s");
 17: }
 18: return ret_str;

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit