Access - Respuesta

   
Vista:

Respuesta

Publicado por Mario (7 intervenciones) el 07/07/2008 22:09:49
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 pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder