Come conoscere il numero dei
giorni trascorsi da una certa data

A cosa serve
Questa funzione ci permette di conoscere il numero dei giorni trascorsi da una certa data ad oggi oppure il numero dei giorni trascorsi tra due date.

Dove va messo il Lingo
Essendo una funzione può essere inserito in un movie script e resa accessibile a tutto il movie.

===>

Come conoscere il numero dei giorni trascorsi da una certa data

Qui di seguito riportiamo due funzioni che ci permettono di conoscere il
numero dei giorni trascorsi da una certa data e il numero di giorni
trascorsi tra due date.

Primo esempio: conoscere i giorni trascorsi da una certa data. In questo
esempio la data di riferimento è il 1999 per cui possiamo conoscere il
numero dei giorni fino a questa data.

La sintassi della funzione da chiamare è:

convertiDataInGiorni(unaData) -- unaData deve essere un valore gg/mm/aaaa

es. put convertiDataInGiorni(the date) e put
convertiDataInGiorni("12-3-1999") sono corrette

on convertiDataInGiorni unaData

  delimitatore = the itemDelimiter
  the itemdelimiter = "-"
  giorno = value(item 1 of unaData)
  mese = value(item 2 of unaData)
  anno = value(item 3 of unaData)
  the itemDelimiter = delimitatore

  giorni = 0
  annoDiRiferimento = 1999
  giorniDeiMesi = [31,28,31,30,31,30,31,31,30,31,30,31]

  repeat while annoDiRiferimento  > anno
    if annoDiRiferimento mod 4 = 0 and annoDiRiferimento mod 100 <> 0 then
      giorni = giorni + 366
      setAt(giorniDeiMesi,2,29)
    else
      giorni = giorni + 365
    end if
    anno = anno + 1
  end repeat

  unMese = 1
  repeat while unMese < mese
    giorni = giorni + getAt(giorniDeiMesi,unMese)
    unMese = unMese + 1
  end repeat

  giorni = giorni + giorno - 1
  return giorni
end


Questa seconda funzione ci permette di conoscere il numero dei giorni
trascorsi tra due date.
La sintassi è: calcolagiornitrascorsi dataInizio,datafine

es: calcolagiornitrascorsi("3-5-1987",the date)
ritornerà il numero dei giorni trascorsi dal 3 marzo del 1987 alla data odierna

on calcolagiornitrascorsi dataInizio,datafine
  return convertiDataInGiorni(datafine) - convertiDataInGiorni(dataInizio)
end

By Tonino - digitaly.com 1999