Rango de fechas
Publicado por Angel (1 intervención) el 02/04/2015 05:48:44
Estoy intentando hacer calculo de meses transcurridos entre dos fechas, donde la fecha inicial se toma de una base de datos. Igualmente intento hacer que los calculo se hagan a partir de la segunda fila de la BD. Todo se hace en un modulo y libro tiene varias hojas.
El codigo que tengo es este
El codigo que tengo es este
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub VUT()
Dim fchAdq As Date 'Fecha de adqusición
Dim fchDep As Date 'Fecha de inicio de depreciación
Dim fchAct As Date 'Fecha de Cierre actual
Dim fchAnt As Date 'Fecha de cierre anterior
Dim WS As Worksheet
Dim X As Single
Dim nFila As Single
Set WS = Worksheets("data")
fchAct = Range("CierreAct").Value
fchAnt = Range("CierreAnt").Value
nFila = Range("A2", Range("A2").End(xlDown)).Rows.Count
For X = 1 To nFilafchDep = Cells(X + 1, 9).Value
If Cells(X + 1, 1) <> "" Then
Cells(X + 1, 13).Value = DateDiff("m", fchDep, fchAct)
End If
ActiveCell.Offset(1, 0).Select
Next
End Sub
Valora esta pregunta
0