Vba excel - fechas
Quisiera saber el código para hacer una macro en donde reste una fecha de otra y me de el total de semanas transcurridas, tomando en cuenta que si sobran 4 días o más en la resta se tome como semana completa.
Gracias por su ayuda.
Gracias por su ayuda.
1 Respuesta
Respuesta de Cadipas spain
1
Prueba con estas líneas, las dos fechas las he colocado en A1 Y A2, y sobre entiendo que A1>A2 y lanzo en mensaje con la resta. Si necesitas otra cosa, se puede modificar a gusto del consumidor...
Dim valor1 As Date, valor2 As Date
Dim semana As Byte, resto As Byte
valor1 = Range("a1")
valor2 = Range("a2")
resto = (valor1 - valor2) Mod 7
semana = Fix((valor1 - valor2) / 7)
If resto >= 4 Then semana = semana + 1
MsgBox semana
Dim valor1 As Date, valor2 As Date
Dim semana As Byte, resto As Byte
valor1 = Range("a1")
valor2 = Range("a2")
resto = (valor1 - valor2) Mod 7
semana = Fix((valor1 - valor2) / 7)
If resto >= 4 Then semana = semana + 1
MsgBox semana
