Sumar dias !!!

[carlos79]

Buenos dias estimados foristas :

Apelo a su acostumbrada colaboración ya que tengo un par de dudas con respecto al manejo de fechas.

Tengo un DTPicker con el cuál selecciono la fecha. Ahora bien, como puedo hacer para que cuando ingrese un numero entero en un textbox se lo sume a la fecha seleccionada por el DTPICKER.

Por ejemplo... selecciono el 02 de enero en el dtpicker, en el textbox escribo 10... Entonces el sistema debe ser capaz de sumar 10 dias "EXCLUYENDO" sabados y domingos....

Espero de su acostumbrada colaboración !!!

Saludos.

Carlos.

P.D. Estoy desarrollando en Visual Basic 6 con base de datos Mysql.

[pkj]

Ignoro si habrá un modo automático para hacer eso, ya que no he usado el DTPicker, pero el modo de hacer eso siguiendo el método de "la cuenta de la vieja" sería:

Código vb:

Dim F As Long
  Dim Dias As Long
  Dim Dia As Date
  Dias = 10 ' cargar contenido del textbox
  Dia = Date ' cargar fecha del DTPicker
  For F = 1 To Dias
    If Weekday(Dia, vbMonday) = 6 Then Dia = Dia + 1
    If Weekday(Dia, vbMonday) = 7 Then Dia = Dia + 1
    Dia = Dia + 1
  Next F
  MsgBox Dia  ' actualizar DTPicker
 

El manejo del DTPicker te lo dejo a ti.

Saludos

[carlos79]

muchisimas gracias... dejame probar el código y te comento !!!

nuevamente gracias por tu tiempo !!!

[Gaiking]

Creo que es todavia mas facil que ese codigo anterior. Seria asi:

Código vb:

Dim Dias as Integer
DTPicker.value = Date + Dias
 

Eso es todo :P