[risolto]calcolo per maggiorenni

[dex]

ciao raga

mi serve una mano con un piccolo calcolo fra date per determinare se una persona è maggiorenne oppure no.
Nel mio programma avevo calcolato i giorni fra le due date aggiunto 1 giorno ogni 4 anni e diviso per 365.
Fino ad ora ha funzionato ma oggi 13/08/10 nel registrare un cliente nato il 12/08/92 il programma si bloccava, evidentemente gli anni bisestili incidono in base al periodo.

Mi serve una formula esatta che allo scadere della mezzanotte mi dice se la persona è maggiorenne o meno.

[Ceskho]

ciao raga

mi serve una mano con un piccolo calcolo fra date per determinare se una persona è maggiorenne oppure no.
Nel mio programma avevo calcolato i giorni fra le due date aggiunto 1 giorno ogni 4 anni e diviso per 365.
Fino ad ora ha funzionato ma oggi 13/08/10 nel registrare un cliente nato il 12/08/92 il programma si bloccava, evidentemente gli anni bisestili incidono in base al periodo.

Mi serve una formula esatta che allo scadere della mezzanotte mi dice se la persona è maggiorenne o meno.

Scusa che bisogno c'è di vedere se l'anno è bisesestile. Prima compari gli anni. Se già da questo vedi che la differenza è minore di 18 allora esci dalla funzione ok? se invece vedi che la differenza tra gli anni è maggiore di 18 è sicuramente maggiorenne (un 19enne è sicuramente maggiorenne). Se, ultimo caso, vedi che la differenza tra i due anni è 18 allora confronti mese e giorno. Prima confronti il mese e vedi che se il mese dell'utente è maggiore di quello trascorso allora è sicuramente maggiorenne e toppi qui. In caso contrario confronti anche il giorno. Sono stato chiaro?

[milio]

Puoi anche fare in questo modo:

 

Codice: gambas [Seleziona]

  Data = DateAdd(DataDiNascita, gb.Year, 18)
  IF Data <= Now() THEN 
    PRINT "Maggiorenne"
  ELSE 
    PRINT = "Minorenne"
  ENDIF

[dex]

risolto con il codice di milio