Access - Cálculos (comparaciones)

 
Vista:

Cálculos (comparaciones)

Publicado por Alejandro A. Llerandi (6 intervenciones) el 29/09/2001 04:29:50
Hola:
Necesito realizar un cálculo que puede resultar un poco confuso y para mi es complicado, consiste en:
Tengo 3 campos: "FechaNac", "FechaIngreso" y "FechaVigencia"
Necesito sacar la cant. de días que hay entre "FechaIngreso" y "FechaNac", con el resultado quiero hacer una "condición" que realize la siguitente comparación: Ej. si la cant. de días es =<365 , que a la "FechaIngreso" le sume 3 meses y me coloque el resultado (si es posible) en el campo "FechaVigencia", si no es así que pregunte de nuevo, si la cant. de días es =<10000, que a la "FechaIngreso" le sume 6 meses y me coloque el resultado (si es posible) en el campo "FechaVigencia", si no es así que pregunte de nuevo...
Espero que me hayan comprendido, les agradesco su tiempo invertido en la lectura de esta nota.
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:Cálculos (comparaciones)

Publicado por Israel (7 intervenciones) el 01/10/2001 13:20:36
el código que necesita es este... Espero que te sirva.
Si necesitas al go ya sabes.

Un saludo


If DateDiff("d", FechaIngreso, FechaNac) <= 365 Then
FechaVigencia = DateAdd("m", 3, FechaIngreso)
ElseIf DateDiff("d", FechaIngreso, FechaNac) <= 10000 Then
FechaVigencia = DateAdd("m", 6, FechaIngreso)
Else
''Pregunta otra vez
End If
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:Cálculos (comparaciones)

Publicado por Israel (7 intervenciones) el 01/10/2001 13:21:01
el código que necesita es este... Espero que te sirva.
Si necesitas al go ya sabes.

Un saludo


If DateDiff("d", FechaIngreso, FechaNac) <= 365 Then
FechaVigencia = DateAdd("m", 3, FechaIngreso)
ElseIf DateDiff("d", FechaIngreso, FechaNac) <= 10000 Then
FechaVigencia = DateAdd("m", 6, FechaIngreso)
Else
''Pregunta otra vez
End If
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