Visual Basic - consulta

Life is soft - evento anual de software empresarial
   
Vista:

consulta

Publicado por antonioi (62 intervenciones) el 29/11/2009 15:51:51
Dim Fecha1 As Date
Dim Fecha2 As Date
Dim AÑOS As Integer

Private Sub Command1_Click()

Fecha1 = DTPicker1.Value
Fecha2 = DTPicker2.Value
AÑOS = DateDiff("yyyy", Fecha1, Fecha2)
Text3 = Format(AÑOS, "###0")
Text4 = Format(AÑOS / 3, "###0")


hola mi duda es que quisiera que la informacion del text3.text (es decir los años),
cuando este fuera igual o inferior <= 20 en un text5.text se expresara " X"

si fuese igual a 21 o 22 o 23 o 24 o 20 o 26 then
el texto del text5.text fuese " Y"
o
si fuese igual a 27 o 28 o 29 o 30 el resusltado del text5 fuese "z"

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:consulta

Publicado por Christian (666 intervenciones) el 30/11/2009 00:05:02
Podes hacerlo con un SELECT CASE

Select Case CInt(Text3.Text)
Case Is <= 20
text5.Text = "x"
Case Is = 21, 22, 23, 24, 25, 26
text5.Text = "y"
Case Is = 27, 28, 29, 30
text5.Text = "z"
End Select

saludos.-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:consulta

Publicado por Antonio (62 intervenciones) el 30/11/2009 15:10:36
Muchas gracias, asi lo hare.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar