Visual Basic - soy novato y necesito ayuda porfavor!

Life is soft - evento anual de software empresarial
 
Vista:

soy novato y necesito ayuda porfavor!

Publicado por HUGO (13 intervenciones) el 29/10/2002 21:27:41
necesito sumar una fecha
el text1 que es la fecha digamos 29/10/02 le sume 75 dias y que me de la fecha fina digamos 14/01/03 automaticamente osea que yo slo de la primer fecha y que me de la operacion automaticamente.
el otro problema que tengo esque

necesito desactivar una serie de text 1y activar otros text2 por medio de un text3 que me de un descuento si tiene descuento que me desative text1 y me active text2 o al contrario si no tiene descuento que sea al contrio yo lo estava asiendo asi pero no sale:
y=val (text3.text)
if y =o then
text1.enabled=f
text2.enabled=t
else
text1.enabled=t
text2.enabled=f
endif
pero me desactiva las dos automaticamente ayudenme porfavor 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:soy novato y necesito ayuda porfavor!

Publicado por Juan. R. (36 intervenciones) el 29/10/2002 23:45:57
'Prueba asi
y=val (text3.text)
if y =0 then
text1.enabled=false
text2.enabled=true
else
text1.enabled=true
text2.enabled=false
endif

y en cuanto a la fecha, si usas un control llamado DtPicker que esta en el archivo MSCOMCT2.OCX, puedes hacer lo de la siguiente manera
fecha_proxima = DTPicker1 + 75
y fecha_proxima tendra la fecha futura que tu deseas
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:soy novato y necesito ayuda porfavor!

Publicado por hugo (13 intervenciones) el 04/11/2002 16:10:07
gracias eh solucionado el problema muchas gracias gracias
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
sin imagen de perfil

RE:soy novato y necesito ayuda porfavor!

Publicado por Josetxu (75 intervenciones) el 30/10/2002 00:05:25
En cuanto al primer problema yo no conozco ningun sistema rapido de sumar fechas, pero en una ocasión tenía que calcular el vencimiento de unos cheques, que el cálculo no tenia que ser muy exacto, y lo que hice fué lo siguiente:

Dim Fecha as Date
...
Fecha = "29/10/2002"
Vencimiento = 75
Fecha.Month = Fecha.Month + Vencimiento \ 30
Fecha.Day = Fecha.Day + Vencimiento Mod 30
if Fecha.Day > 30 then
Fecha.Day = Fecha.Day - 30
Fecha.Month = Fecha.Month + 1
end if
if Fecha.Month > 12 then
Fecha.Month = Fecha.Month - 12
Fecha.Year = Fecha.Year + 1
end if

Cuando el cálculo no tiene que ser muy exacto esto funciona.

En cuanto al segundo problema, tal como lo describes debería funcionar, así que pienso que debe haber algun error de sintaxis que no sale en tu explicación, o alguna instruccion rara en el evento Text1_Change que hace que cambie el otro tambien... sinceramente no se me ocurre otra cosa.

Suerte
Josetxu
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