Visual Basic - sumar fechas pero restar sabados y domingos

Life is soft - evento anual de software empresarial
 
Vista:

sumar fechas pero restar sabados y domingos

Publicado por juan torres (4 intervenciones) el 08/05/2018 04:23:15
hola amigos gusto en saludarlos, podrian decirme por favor como sumar fechas utilizando el control de visual basic 6 dtpicker pero restando sabados y domingos, por ejemplo que quisiera calcular cuantos dias han pasado desde 4 de enero hasta 7 de marzo sin contar repito sabados y domingos

si pudieran decirme el código desde visual basic 6.0 seria maravillos
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 Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

sumar fechas pero restar sabados y domingos

Publicado por Andres Leonardo (1798 intervenciones) el 08/05/2018 16:37:48
Hola!!

Sinceramente haria alguna funcion o procedimiento donde mande como parametro los dos valores de las fechas

Luego sacaria la diferencia y esa la generaria como un limite

haria un recorrer desde la fecha inicio hasta la fecha fin y contaria solo si el weekday de esa fecha es <= 5

**Tema importante no se de que pais eres y si vas a considerar feriados los cuales deberan ser validados en alguna tabla de feriados locales si lo necesitas

al ultimo retornaria el numero de dias sin considerar sabados domingo y/o feriados......

que te parece?



1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
Label1 = 1
Dim var1 As Date
var1 = dtp1.value
 
 
Do While var1 < CDate(dtp2.value)
If Weekday(var1) > 1 And Weekday(var1) < 7 Then Label1 = Val(Label1) + 1
var1 = var1 + 1
Loop
 
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

sumar fechas pero restar sabados y domingos

Publicado por juan torres (4 intervenciones) el 08/05/2018 23:00:11
hola muchas gracias por tu respuesta estuvo muy bien
saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar