Italian Inserimento dell'anno con Date Dialog

Ciao a tutti,
Sono bloccato sull'inserimento dell'anno con il Date Dialog.
Non riesco a fare l'inserimento senza che mi venga anche richiesto il giorno e il mese.
Ecco il codice che uso normalmente.

Sub Inserimentodata_FocusChanged (HasFocus As Boolean)
Dim DataOdierna As Long
bmp.Initialize(File.DirAssets, "icona50.gif")
DateTime.DateFormat = "dd/MM/yyyy"
DataOdierna = DateTime.Now
dd.DateTicks=DataOdierna
If HasFocus Then
ret = dd.show("Inserire la data", "i", "OK", "", "Annulla", bmp)
If ret = DialogResponse.CANCEL Then Return
Datacheck1.Text = DateTime.Date(dd.DateTicks)
End If
End Sub


Come posso cambiarlo per avere solo l'input dell'anno ? :BangHead:

Grazie

Federico

Ciao Federico
Per richiesto intendi visualizzato ?
Ho provato il codice sul galaxy note ii e non mi sembra abbia problemi

maxware said:

Ciao Federico
Per richiesto intendi visualizzato ?
Ho provato il codice sul galaxy note ii e non mi sembra abbia problemi

Click to expand...

Ciao Max,
Si in effetti così com'è funziona.
A me però interesserebbe solo l'input dell'anno. (Non la data completa)
Forse dovrei usare un altro metodo.
Grazie
Ciao

Ciao fede
In alfadesksb ho usato questo

ciaooo
Mamo

Ottimo.
Grazie mille stasera provo.
:icon_clap: