Saltar al contenido

fecha pago 30 dias recepcion factura

publicado

Hola estimados, aqui nuevamente solicitando ayuda de esas magicas..que uds. tienen

les comento tengo textbox1(donde ingreso fecha de recepcion factura ); 1 combobox ( que es para seleccionar dias) y y textbox2 ( que es donde automaticamente debe cargar la fecha de pago, segun la cantidad de dias seleccionado )

por favor, no es flojera sino el no saber..uds. podrian a yudarme con la sintaxis 

atte.

Milton 

fecha de pago.xlsm

Featured Replies

publicado

@meduvilla

¿te sirve si te digo que mires ayuda sobre la funcion DateAdd ?;)

Si no vuelve a preguntar

publicado
  • Autor

Buenos días a todos...

Busque...pero no precisamente lo que necesito... Estimado

publicado

Añade esto a tu código:

Private Sub ComboBox1_Change(): CalcularVencimiento: End Sub
Private Sub TextBox1_Change():  CalcularVencimiento: End Sub
'--
Private Sub CalcularVencimiento()
If IsDate(TextBox1) And Not ComboBox1.ListIndex = -1 Then
   TextBox2 = CDate(TextBox1) + Val(LTrim(ComboBox1))
End If
End Sub

 

publicado
En 22/2/2019 at 17:15 , Antoni dijo:

Añade esto a tu código:


Private Sub ComboBox1_Change(): CalcularVencimiento: End Sub
Private Sub TextBox1_Change():  CalcularVencimiento: End Sub
'--
Private Sub CalcularVencimiento()
If IsDate(TextBox1) And Not ComboBox1.ListIndex = -1 Then
   TextBox2 = CDate(TextBox1) + Val(LTrim(ComboBox1))
End If
End Sub

 

¿Lo has probado al menos?

publicado
  • Autor

muchas gracias Estimado Antonio .. ya estamos listos con esta ayudita 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.