IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

/echo : $amtopm(06:40) -> 18:40
/echo : $pmtoam(23:00) -> 11:00

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;A.M to P.M , P.M to A.M cevirici
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Kod:

alias amtopm {

  var %hH = $gettok($1,1,58)

  var %nN = $gettok($1,2,58)

  if (%hH <= 12 && %hH <= 12) {

    var %rslt = $calc(%hH + 12)

    return $+(%rslt,:,%nN) 

  }  

}

alias pmtoam {

  var %hH = $gettok($1,1,58)

  var %nN = $gettok($1,2,58)

  if (%hH >= 12 && %hH <= 24) {

    var %rslt = $calc(%hH - 12)

    if ($len(%rslt) == 1) { return $+(0,%rslt,:,%nN) } 

    else { return $+(%rslt,:,%nN) }

  } 

}