10 de septiembre de 2004

Meses entre 2 fechas

Con esta simple rutina puedes determinar cuantos meses hay entre 2 fechas.
FUNCTION MesesEntreFechas(pdFecha2, pdFecha1)
  LOCAL lnAnio AS INTEGER, lnMes AS INTEGER
  lnAnio = YEAR(pdFecha2) - YEAR(pdFecha1)
  lnMes = MONTH(pdFecha2) - MONTH(pdFecha1)
  RETURN ((lnAnio * 12) + lnMes)
ENDFUNC
Jose Matute

No hay comentarios. :

Publicar un comentario