[risolto] gb.Year e date bisestili

[dex]

ciao raga

oggi il mio programma è andato in titlt mentre registravo una data bisestile 29/02/1984

ho fatto varie prove e ho scoperto che è gb.Year ha creare problemi.

con il seguente codice controllo se la persona è maggiorenne

Data = DateAdd(ValueBox2.value, gb.Year, 18)

inserendo una data bisestile mi da invalid.date

come posso risolvere?

[milio]

Adesso non so se uno compie gli anni il 28 di febbraio o il 1° di marzo negli anni non bisestili, pero' potresti risolverla in questo modo:

Codice: gambas [Seleziona]

  TRY Data = DateAdd(Data, gb.Year, 18)
    IF ERROR THEN 
      Data -= 1
      Data = DateAdd(Data, gb.Year, 18)
    ENDIF 

Ovviamente la parte da cambiare per quanto descritto sopra e' Data += 1

[dex]

grazie milio

risolto