Ti ringrazio tanto, adesso sperimento il codice che mi hai fornito... cmq a prima vista mi sembra perfetto!!!
cmq vorrei chiederti ancora una cosa... se nn è troppo disturbo.
io nel frattempo ho provato a sperimentare, trovando una piccola soluzione.. che comunque nn so se è proprio giusta. (ho provato ad applicare alcune regole di matematica finanziaria, anche se così facendo non tengo conto degli anni bisestili in maniera corretta.)
potresti dargli un'occhiata e dirmi cosa ne pensi?
Accetto critiche di buon grado , penso che sl così posso imparare bene!
ti ringrazio tanto. ti passo qui sotto il codice.
codice:
 
Dim nasc As Date
Dim today As Date
Dim eta As Date
Dim nomisegni(1 To 12) As String
Dim segni(1 To 12) As Date
Dim i As Integer


Private Sub cmd_eta_Click()
Dim temp1, temp2 As Double
Dim prova As Integer

    txt_anni.Text = DateDiff("yyyy", nasc, today)
    txt_mesi.Text = DateDiff("m", nasc, today) - (txt_anni * 12)
    txt_giorni.Text = DateDiff("d", nasc, today) / 365
    temp1 = (txt_giorni - txt_anni) * 12
    temp2 = (temp1 - txt_mesi) * 365 / 12
    prova = Int(temp2)
    txt_giorni.Text = prova
    cmd_eta.Enabled = False
    cmd_today.Enabled = False

End Sub

Private Sub cmd_inserisci_Click()
    nasc = InputBox("inserisci la tua data di nascita")
    txt_nasc.Text = nasc
    cmd_today.Enabled = True
    cmd_zody.Enabled = True
End Sub

Private Sub cmd_today_Click()
    today = Format(Now, "dd/mm/yyyy")
    txt_today.Text = today
    cmd_eta.Enabled = True
End Sub

Private Sub cmd_zody_Click()
Dim j As Integer

    For j = 1 To 12
        If (nasc >= segni(j)) & (nasc <= segni(j + 1)) Then
            txt_zody.Text = nomisegni(j)
        End If
    Next j
End Sub

Private Sub form_load()
   nomisegni(1) = "Ariete"  'quest'ultimo pezzo serve per poi trovare
   nomisegni(2) = "Toro"    'il segno zodiacale dell'utente, sapendo
   nomisegni(3) = "Gemelli" 'la data di nascita... sl che non riesco
   nomisegni(4) = "Cancro"  'bene a fare i confronti tra date xkè 
   nomisegni(5) = "Leone"   'in quella di nascita ho gli anni, nelle altre no.
   nomisegni(6) = "Vergine"
   nomisegni(7) = "Bilancia"
   nomisegni(8) = "Scorpione"
   nomisegni(9) = "Saggitario"
   nomisegni(10) = "Capricorno"
   nomisegni(11) = "Acquario"
   nomisegni(12) = "Pesci"
      
   segni(1) = 21 / 3
   segni(2) = 21 / 4
   segni(3) = 21 / 5
   segni(4) = 22 / 6
   segni(5) = 23 / 7
   segni(6) = 24 / 8
   segni(7) = 23 / 9
   segni(8) = 23 / 10
   segni(9) = 23 / 11
   segni(10) = 22 / 12
   segni(11) = 21 / 1
   segni(12) = 20 / 2
End Sub
Cosa ne pensi?
Devo trovare una maniera per ricavare il segno zodiacale, avevo pensato a una cosa del tipo
codice:
For j = 1 To 12
        If (nasc >= segni(j)) & (nasc <= segni(j + 1)) Then
            txt_zody.Text = nomisegni(j)
        End If
    Next j
SOLTANTO che non funziona, credo perchè in Nasc ho una data del tipo 13/4/88
in segni(j) ho una data del tipo 23/11
dunque nn riesce a fare il confronto .. c'è mica qualche modo, per riuscire a farlo? un modo per dire, controlla se i mesi e i giorni che ci sono in una variabile sono compresi in questo intervallo?
Grazie