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.
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
0