Loading ...
Sorry, an error occurred while loading the content.

RE: [PBML] Time Module

Expand Messages
  • Smith, Eric - WPAFB/YSXOI
    Slight change to Tom Barron s sub... (put $ampm and added CST in the sprintf line)... sub get_time { #
    Message 1 of 3 , Nov 1, 2000
    • 0 Attachment
      Slight change to Tom Barron's sub...

      (put $ampm and added "CST" in the sprintf line)...

      sub get_time {
      # --------------------------------------------------------
      # Returns the time in the format "hh-mm-ss [a|p]m".
      #
      ($S,$M,$H) = localtime;
      $ampm = ($H <= 12) ? "am" : "pm";
      $H = (($H-1) % 12) + 1;
      $rval = sprintf("%02d:%02d:%02d %s", $H, $M, $S, $ampm);
      }

      - Eric D. Smith
    Your message has been successfully submitted and would be delivered to recipients shortly.