Visual Basic para Aplicaciones - Comparar Fechas macro?

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de miguel

Comparar Fechas macro?

Publicado por miguel (14 intervenciones) el 13/12/2017 03:51:08
Hola a todos tengo un gran problema y no lo puedo resolver ojala me puedan orientar

Tengo una columna en la cual existen solo fechas las cuales quiero comparar con la fecha actual
y posteriormente mostrarla en otra hoja donde en un MSGBOX o en un panel me muestra como resultado las fechas que ya pasaron a comparación del dia actual.

Este es mi código:

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
32
33
34
Private Sub CalibrationExpired_Click()
Sheets("sheet2").Select
Dim contador As Integer
Dim n As Integer
Dim fecha As Date
Dim pos As Integer
pos = 0
n = 1
Dim ID As Integer
Dim matrizDesc(477, 2) As Integer ' 477 es el numero de celda donde termina el listado, se crea una matriz de 477 filas, con dos columnas. Esta matriz sera la que mostrara la funcion "Msgbox"
Dim fechaActual As Date
fechaActual = Date
 
 
For contador = 2 To 478
fecha = Sheet2.Cells(contador, 5)
'fecha = CDate(Sheet2.Cells(contador, 5))
    MsgBox (fecha)
 
    If fecha < fechaActual Then
     ID = Sheet2.Cells(contador, 1)
    End If
 
matrizDesc(n, 1) = ID
matrizDesc(n, 2) = fecha
 
n = n + 1
contador = contador + 1
 
Next
 
MsgBox (matrizDesc)
 
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
Imágen de perfil de Antoni Masana

Comparar Fechas macro?

Publicado por Antoni Masana (174 intervenciones) el 13/12/2017 08:28:54
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Revisar política de publicidad