Visual Basic - Tengo un problemita sobre el calculo de fechas

Life is soft - evento anual de software empresarial
 
Vista:

Tengo un problemita sobre el calculo de fechas

Publicado por Lidia (13 intervenciones) el 13/05/2003 20:32:35
Hola!! a ver si me podeis ayudar, quiero calcular el numero de dias entre una fecha que le meto al programa, y la fecha actual del sistema, teniendo en cuenta el calculo de los meses que tienen 28, 30 y 31 dias.
Hay alguna rutina ya hecha o utiliza alguna funcion o...??? ¿Como puedo hacerlo?
Muchas 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:Tengo un problemita sobre el calculo de fechas

Publicado por Cecilia Colalongo (3116 intervenciones) el 13/05/2003 20:39:44
Restando las fechas obtenés el número de días entre una y otra, con el operador -
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:Tengo un problemita sobre el calculo de fechas

Publicado por lidia (13 intervenciones) el 13/05/2003 21:09:50
Te pongo el codigo que he utilizado, funciona pero cuando me tiene que dar el calculo de la fecha pero de meses diferentes no sale, por ejemplo:
si pongo 11/05/03 y se lo tengo que restar al 13/05/03, funciona, pero si por ejemplo es el 25/04/03 - 13/05/03, me da -12, creo que me resta los dias, sin tener en cuenta los meses:
te pongo el codigo, a ver si me puedes ayudar:
Dim fecha1 As VbDateTimeFormat
Dim fecha2 As VbDateTimeFormat

Private Sub Command1_Click()

fecha2 = Format(Val(Text2.Text))
fecha1 = Format(Val(Text1.Text))
Text3.Text = fecha2 - fecha1

'Text3.Text = Format(Val(Text2.Text)) - Format(Val(Text1.Text))
End Sub

Private Sub Form_Load()
Text2.Text = Date
End Sub

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

RE:Tengo un problemita sobre el calculo de fechas

Publicado por Marco Santis (265 intervenciones) el 13/05/2003 21:17:29
Este problema se soluciona con el DATEDIFF
Prueba esto:

Text3.Text = DATEDIFF("d", Text1.Text, Text2.Text)

Si quieres restar meses solo cambias la "d" por una "m"

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

Muchas gracias

Publicado por Lidia (13 intervenciones) el 14/05/2003 10:57:39
Si Marcos me ha funcionado es justo lo que queria hacer muchas gracias por tu ayuda. ;)
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