Access - Mostrar meses y dias transcurridos

   
Vista:

Mostrar meses y dias transcurridos

Publicado por navigator (4 intervenciones) el 20/06/2008 07:01:34
Tengo un formulario que lee de una consulta.

En esta consulta tengo un campo de una tabla " Puesta en Marcha" el formato es dd/mm/yyyy.

En este formulario tengo un campo de texto que me calcula los meses transcurridos desde que se puso en marcha un aparato con la formula

=Ent((DifFecha("m";[ PUESTA EN MARCHA];Ahora())))

con lo que me da el resultado en meses, pero quisiera que me lo diera en meses y dias con algo parecido a 10,22, o sea 10 meses y 22 dias.

le doy vueltas y no se como hacerlo.

gracias por anticipado.

Ramon
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:Mostrar meses y dias transcurridos

Publicado por mario (7 intervenciones) el 24/06/2008 20:37:26
si aun no encontraste la solucion yo creo que una manera segura de conseguir el resultado que buscas es con una funcion aramada que realize con un bucle While ... Wend, si no sabes muy bien como decime y te lo armo
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:Mostrar meses y dias transcurridos

Publicado por navigator (6 intervenciones) el 04/07/2008 01:54:50
Pues te lo agradeceria porque no se armarla con While.... y Wend.

Un saludo y gracias por anticipado..

Ramon
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:Respuesta

Publicado por Mario (7 intervenciones) el 07/07/2008 22:11:22
deberias incluir en el codigo la siguiente funcion

Function fech_trans(tmp_desde, tmp_hasta)
aux = tmp_desde
meses = 0
While aux <= tmp_hasta
meses = meses + 1
aux = DateSerial(Year(aux), Month(aux) + 1, Day(aux))
Wend
meses = meses - 1
aux = DateSerial(Year(aux), Month(aux) - 1, Day(aux))
''
dias = 0
While Day(aux) <> Day(tmp_hasta)
aux = DateSerial(Year(aux), Month(aux), Day(aux) + 1)
dias = dias + 1
Wend
fech_trans = "(" & tmp_desde & "-" & tmp_hasta & ") Meses " & meses & " - Dias " & dias
End Function

y desde donde necesites el resultado deberias poner algo como:
MsgBox fech_trans(#1/15/2008#, #2/16/2008#)

y el resultado de esto seria (15/01/2008-17/02/2008) Meses 1 - Dias 2

si necesitas modificar el resultado final o algo no dudes en contactarme
Saludos y espero que te sirva
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