Data
Ciao Marco, questo il comando per inserire una data nel TextBox ed il controllo dell'anno
Sub TextBox1_AfterUpdate()
'formatta la data
textbox1 = format(TextBox1,"dd/mm/aaaa")
'controlla l'anno
if year(Cdate(Texbox1)) <> year(date) then msgbox"Anno Diverso"
end sub
cosa diversa riconoscere la data scrivendo ad esempio "112216", la seguente data può essere interpretata in 2 modi "1/12/2016" oppure "11/2/2016", qual'è quella esatta?, excel non lo riconosce.
potrebbe andare per esclusione diciamo che la data precedente sia 1/3/2016 allora essendo consecutive non sarà mai una data inferiore a Marzo, quindi sarà 1/12/2016, oppure avendo come data precedente tipo 12/1/2016 potrà prendere in considerazione la successiva 11/2/2016, ma sempre con la prerogativa che potrebbe essere anche l'altra se non ci fossero date intermezzo.
potresti usare un controllo.calendario per inserire la data quindi non si avrebbero problemi di digitazione o altro, e la data scelta sarebbe quella.
Ciao By Sal
P.S. la macro per il textbox l'ho scritta al volo quindi controllala.