[VB.NET] Costrutto Select Case e comparazione dei valori

[Trustdesa]

Spero che stavolta il titolo sia giusto......


Dim TR, Conto As Integer
Dim Notaio As Double
Dim Parcella As Integer

Notaio = txtDichiarato.Text
TR = txtValore.Text
Conto = TR / 100 * 3 * 115

Select Case Parcella
Case Notaio > 74500 < 93000
Parcella = 1968.8

Case Notaio > 93000 < 140000
Parcella = 2421.6

End Select

MsgBox("La tassa di registro per questo rogito sarà di € " & Conto & " Mentre la parcella sarà Notarile sarà di € " & Parcella, MsgBoxStyle.Information)

End Sub


______________________________

Questo sopra è il codice non capisco dove sbaglio in quanto se faccio partire l'applicazione se scrivo un valore tra 74500 e 9300 mi da sempre &parcella come valore 2421.6. L'applicazione dovrebbe in base al valore inserito nel TextBox "txtDichiarato.Text" che diventa la variabile "notaio" confrontarlo è se il valore è tra 74500 e 9300 assegnare un valore mentre se è tra 93000 e 14000 un'altro....ma non funge

Ho provato anche con >= e <= ho provato facendo una serie di if al posto di select case....ma non va

[pietro09]

ma non è che sia così? :master:

Dim TR, Conto As Integer
Dim Notaio As Double
Dim Parcella As Double

Notaio = CDbl(txtDichiarato.Text)
TR = CInt(txtValore.Text)
Conto = CInt(TR / 100 * 3 * 115)

Select Case Notaio
	Case 74500 To 93000
		Parcella = 1968.8

	Case 93000 To 140000
		Parcella = 2421.6

End Select

e poi come fai a dichiarare parcella integer, e gli assegni un double? :master:

[Trustdesa]

grazie no quello lo avevo corretto perchè ho fatto varie prove...


come si dice "to" non ci avevo pensato, grazie mille per la risposta