Autore: blacksword Data: 2005-05-21 Modificato: Documento non modificato Letture: 266 Torna indietro

utilizzo identificatore $yesterday(dd/mm/yyyy)

alias yesterday {
  ;sviluppo della regex per validare la giusta sintassi della data inserita
  var %re = [1-9]{2}/[1-9]{2}/[1-9]{4}
  ;controllo necessario per il proseguimento dell'operazione
  if (!$regex($1,%re)) { echo 2 -a La sintassi corretta della data è: dd/mm/yyyy | halt }
  tokenizazzione dei parametri dell'alias
  tokenize 47 $1
  variabile contenente il numero di giorni dei singoli mesi
  inserimento di una condizione necessaria per vedere se febbraio in quel determinato anno è bisestile
  tutto ciò è possibile farlo dividendo l'anno per 4. E se il numero è perfettamente divisibile
  per 4 allora l'anno è bisestile,nel caso contrario febbraio è di 28 giorni.
  var %giorni = 31 $iif(*.* iswm $calc($3 / 4),28,29) 31 30 31 30 31 31 30 31 30 31 

  if ($1 > 1) {
    var %giorno = $calc($1 -1)
    $iif($len(%giorno) == 1,%giorno = $+(0,%giorno))
    return $+(%giorno,/,$2,/,$3)
  }
  else {
    if ($2 == 01) return $+($gettok(%giorni,12,32),/,12,/,$3)
    elseif ($2 != 01) {
      var %mese = $calc($2 -1)
      return $+($gettok(%giorni,%mese,32),/,$iif($len(%mese) == 1,$+(0,%mese),%mese),/,$3)
    }
  }