Visual Basic - algun chico que me ayude pls

Life is soft - evento anual de software empresarial
 
Vista:

algun chico que me ayude pls

Publicado por elizabeth (1 intervención) el 15/11/2002 23:04:15
tengo 3 textbox para entrar la fecha de ingreso una para el dia otros para el mes y otros para el año
y tanbien tengo 3 mas textbox para entrar la fecha de salidad una para el dia otro para el mes y otro para el año
como puedo saber la diferencia de dias de mes o de años de esa dos fecha
recuerden que hay 6 textbox

gracias se lo agradeceres
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:algun chico que me ayude pls

Publicado por Aircop (5 intervenciones) el 16/11/2002 03:52:59


Yo haria lo siguiente

Public Function CuantosDias() as Integer
Dim FechaUno as Date
Dim FechaDos as Date

FechaUno = CVDate(text1 & "/" & text2 & "/" & text3)
FechaDos = CVDate(text4 & "/" & text5 & "/" & text6)
'CVDate es una funcion de basic para convertir cadenas a fechas

If FechaUno = FechaDos Then
CuantosDias = 0
Exit Function
End If

If FechaUno < FechaDos Then
CuantosDias = FechaDos - FechaUno
Else
CuantosDias = FechaUno - FechaDos
End If

End Function

Evidentemente faltan algunas validaciones para que no capturen letras o que no dejen textos vacios... pero lo principal ahi lo tienes...

Saludos!!

Espero te sirva!!

Atte.

LALO
[email protected]
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