Ver Mensaje Individual
  #1 (permalink)  
Antiguo 26/05/2014, 08:10
Jvnto
 
Fecha de Ingreso: mayo-2014
Mensajes: 2
Antigüedad: 10 años, 6 meses
Puntos: 0
Información Calculo de fechas fuera de rango

Les explico, dado que no puedo subir el excel.

Hay rango de fechas (Inicio y Fin)

Supongan que la Fecha Inicio es 17/01/2013 - Fecha Fin 20/02/0213

y tres columnas ( Periodo Anterior, Lo que se Calculo, Periodo Posterior) y Total de días.

Sino que realize una macro para que me contaran desde el día 19 del primer mes al día 18 del segundo mes. Y eso es la celda "Lo que se calculo", lo cual seria 31 días.

Pero hay días que no se entraban en ese rango, osea que no los tomaba en cuenta o contaba, ya que son días antes o después de la restricción. Ya que si hacen un SIFECHA(Inicio,Fin) el total son 35 dias.

Esos días que no se cuentan serian por ejemplo,

Los días antes de ese 19 (<19) pertenecerían al "periodo anterior", seria igual a 2 días.

Los días después de este 18 (>18) pertenecerían al "periodo posterior".

Que finalmente sumando todos te resultaban la celda "Total de días".

Bueno lo que deseo es contar esa cantidad de días antes y después de la restricción en vba. Pero no me sale

La macro que les comente fue esta, pero solo me calcula los 31 días que mencione arriba.

Function perfecha(inicio, fin)
contador = 0
If Month(inicio) <> Month(fin) Then
If Day(inicio) < 19 Then
inicio = CDate("19-" & Month(inicio) & "-" & Year(inicio))
End If
If Day(fin) > 18 Then
fin = CDate("18-" & Month(fin) & "-" & Year(fin))
End If
Else
If Day(inicio) < 19 And Day(fin) > 18 Then
fin = CDate("18-" & Month(fin) & "-" & Year(fin))
End If
End If
perfecha = (fin - inicio) + 1

End Function