Italian Inserimento dell'anno con Date Dialog

[Federico1968]

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

 

[maxware]

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

 

[Federico1968]

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

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

 

[maxware]

Ciao fede
In alfadesksb ho usato questo

ciaooo
Mamo

 

[Federico1968]

Ottimo.
Grazie mille stasera provo.
:icon_clap: