[vb] mese/anno datemi un consiglio..

[dops]

ciao.. devo fare in modo che vengano visualizzati tutti i mesi dell'anno in corso a mò di elenco tipo:

Gennaio 2003
Febbraio 2003
Marzo 2003
etc..

e fino a qui.. però il problema nasce quando arriverà il 2004.. come faccio a far cambiare l'anno automaticamente?
aaa.. scrivo questi mesi in una label.. se qualcuno ha un'altra soluzione..

[amodio]

..una if che vede che sei arrivato a dicembre del mese?


-->mah io avrei risolto cosi'

[Sky75]

Se usi la data di sistema dovrebbe aggiornartele automaticamente le label...al primo avvio dopo la mezza notte del 31/12/2003
Se ho capito il tuo problema.....

[amodio]

si ..
hai provato a cambiare la data di sistema=
funziona?

[dops]

scusate ma non ho capito cosa intendete vi posto un pò di codice spero che facciate altrettanto

Private Sub Form_Load()
Dim miadata, mioanno
miadata = Date
mioanno = Year(miadata)
data.List(0) = mioanno
End Sub

ho provato così.. ma mi scrive solo il 2003 come faccio afar scrivere gli anni precedenti? cioè che iniziano dal 1990..

[Sky75]

No...nn puoi farlo...nn con il codice come e' ora.
L'istruzione date torna la data di sistema, quindi year(date())
tornera' solo e solamente 2003 visto ke siamo nel 2003....il prossimo anno sempre 2004 e via dicendo. Per gli anni passati nulla da fare.
Devi proprio cambiare la routine, cioe'....impostarti tu la data.
Caricare la variabile mioanno con 1990 e incrementarla di 1 quando desideri passare di anno, insomma...la gestisci interamente tu.
E' la cosa migliore vista la tua esigenza

[dops]

ok.. manono lo sò fare... me lo sapresti fare tu?

[xegallo]

Private Sub Form_Load()
   Dim mesi(1 To 12) As String
   Dim i As Integer
   mesi(1) = "Gennaio"
   mesi(2) = "febbraio"
   'continua per tutti i mesi
   For i = LBound(mesi) To UBound(mesi)
      List1.AddItem mesi(i) & " " & Year(Date)
   Next i
   
End Sub

[dops]

no xegallo.. forse mi sono spiegato male.. a me non serve visualizzare i mesi con l'anno corrente vicino.. ma tutti gli anni che partono dal 1990 fino al 2003 e poi ovviamente gli anni sucessivi al 2003 quando questi arrivano..cioè:
1990
1991
1992
etc..

[ladyBlu]

Originariamente inviato da dops
no xegallo.. forse mi sono spiegato male.. a me non serve visualizzare i mesi con l'anno corrente vicino.. ma tutti gli anni che partono dal 1990 fino al 2003 e poi ovviamente gli anni sucessivi al 2003 quando questi arrivano..cioè:
1990
1991
1992
etc..

e per sapere gli anni ti serve una funzione particolare? scusa basta che aggiungi 1 ad ogni anno... ma forse non nemmeno questo che vuoi fare!...
puoi essere un po' più chiaro... mica ti ho capito...