Access - Fechas validadas

 
Vista:

Fechas validadas

Publicado por Josè Alexis (1 intervención) el 13/11/2002 15:16:01
Tengo otra pregunta el la gual espero puedas ayudarme nuevamente sucede que estoy comparando dos fechas o validando como quieras que sucede que las fechas tienen formato de fecha corta ocea "00/00/0000 " y en el momento que ago la comparaci`n ya sea en codigo de visual o en macros se compara dia/mes/año realmente lo que quiero es que mecompare mes/año y no tengo idea de como se hace te explico que fue lo que hice en el macro y en codigo:
Codigo:
If Forms!fdespacho!Fec_Desp <> Forms!fdespacho!Tratamiento!fech_Trat Then
Macro:
[Formularios]![Fdespacho]![Tratamiento]![fech_Trat ]<>[Formularios]![Fdespacho]![Fec_Desp ]

de cualquerea de las dos formas funciona pero como ya te dige comparando todo el campo sera que se puede hacer lo que te explique anteriormente que solo tome en la comparacion el mes y año.
si puedes ayudarme nuvamente te lo agradesco nuevamente .
deigualmanera muchas gracias de antemano
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:Fechas validadas

Publicado por Pancho (149 intervenciones) el 13/11/2002 19:00:30
Hola

Bueno puedes probar con una funcion como esta:

Function ComparaFecha(ByVal Fecha1 As Date, ByVal Fecha2 As Date) As Boolean
Dim mm1 as integer ,mm2 as integer
Dim yy1 as integer, yy2 as integer

mm1=Month(Fecha1) : mm2=Month(Fecha2)
yy1=Year(Fecha1) : yy2=Year(Fecha2)
'Devuelve Verdadero sin mes y año son iguales
if mm1=mm2 and yy1=yy2 then
ComparaFecha=True
Exit Function
end if
End Function

en el codigo

if ComparaFecha(Forms!fdespacho!Fec_Desp ,Forms!fdespacho!Tratamiento!fech_Trat ) then ...
en el macro
=ComparaFecha(Forms!fdespacho!Fec_Desp ,Forms!fdespacho!Tratamiento!fech_Trat )

Espero que te sirva

Saludos

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