Fecha de Vencimiento
Publicado por albert (5 intervenciones) el 03/05/2017 03:09:01
buenas amigo quisiera saber si me pueden ayudar con la correccion de un codigo en vba
soy nuevo en esto
el problema es que estoy creando un formulario en vba excel para fechas de vencimiento con solo el mes y el año,
la fecha actual cuando se compara con la fecha de vencimiento, deberia dar si el producto esta vigente o vencida
el problema es que si la fecha de vencimiento es por ejemplo:
fecha actual: 05/2017 fecha vencimiento: 06/2017 = vigente (hasta aqui esta bien)
pero cuando coloco fecha de vencimiento: 01/2018 deberia dar = vigente pero asume el mes actual y lo declara = vencido, esto me imagino porque esta por debajo del mes de fecha actual, se que mi codigo esta mal declarado a ver si puedes darme una ayuda, te envio los codigos:
soy nuevo en esto
el problema es que estoy creando un formulario en vba excel para fechas de vencimiento con solo el mes y el año,
la fecha actual cuando se compara con la fecha de vencimiento, deberia dar si el producto esta vigente o vencida
el problema es que si la fecha de vencimiento es por ejemplo:
fecha actual: 05/2017 fecha vencimiento: 06/2017 = vigente (hasta aqui esta bien)
pero cuando coloco fecha de vencimiento: 01/2018 deberia dar = vigente pero asume el mes actual y lo declara = vencido, esto me imagino porque esta por debajo del mes de fecha actual, se que mi codigo esta mal declarado a ver si puedes darme una ayuda, te envio los codigos:
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
35
Private Sub UserForm_Initialize()
Me.TextBox2 = Format(Now(), "mm/yyyy")
Me.TextBox2.Enabled = False
Me.TextBox3.Enabled = False
End Sub
Private Sub TextBox1_Change()
Sheets("hoja3").Select
Range("b5").Select
ActiveCell.FormulaR1C1 = TextBox1
Select Case Len(TextBox1.Value)
Case 2
TextBox1.Value = TextBox1.Value & "/20"
End Select
End Sub
Private Sub CommandButton1_Click()
If Me.TextBox1 >= Me.TextBox2 Then
Me.TextBox3 = "Vigente"
Else
Me.TextBox3 = "Vencida"
End If
Selection.EntireRow.Insert
TextBox1 = Empty TextBox3 = Empty TextBox1.SetFocusEnd Sub
Private Sub TextBox3_Change()
Sheets("hoja3").Select
Range("c5").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Valora esta pregunta
0
