Questo topic e' stato chiuso dal moderatore.
15/02/11 8:25
obinna21
Ho scritto questo codice in visual. dove dovevo immettere una data e ricevevo in risposta il segno zodiacale. ho usato una funzione suggerita da visual studio . Solo che mi da errore
ecco il codice
ecco il codice
Private Sub btnSegno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSegno.Click Dim Data As Date Dim Segno As String Data = txtData.Text Select Case Data Case Date.FromOADate(1 / 1) To Date.FromOADate(20 / 1) Segno = "Talpa" Case Date.FromOADate(21 / 1) To Date.FromOADate(20 / 2) Segno = "Puzzola" Case Date.FromOADate(21 / 2) To Date.FromOADate(20 / 3) Segno = "Suricato" Case Date.FromOADate(21 / 3) To Date.FromOADate(20 / 4) Segno = "Ramarro" Case Date.FromOADate(21 / 4) To Date.FromOADate(20 / 5) Segno = "Canguro" Case Date.FromOADate(21 / 5) To Date.FromOADate(20 / 6) Segno = "Cinghiale" Case Date.FromOADate(21 / 6) To Date.FromOADate(20 / 7) Segno = "Elefante" Case Date.FromOADate(21 / 7) To Date.FromOADate(20 / 8) Segno = "Scorpione" Case Date.FromOADate(21 / 8) To Date.FromOADate(20 / 9) Segno = "Serpentola" Case Date.FromOADate(21 / 9) To Date.FromOADate(20 / 10) Segno = "Caccola" Case Date.FromOADate(21 / 10) To Date.FromOADate(20 / 11) Segno = "Salipice" Case Date.FromOADate(21 / 11) To Date.FromOADate(31 / 12) Segno = "Tarantola" End Select MsgBox(Segno, MsgBoxStyle.Information, "IL TUO SEGNO") End Sub
aaa