Visual Basic para Aplicaciones - Rango de fechas

Life is soft - evento anual de software empresarial
   
Vista:

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

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 nFila
    fchDep = 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder