Visual Basic - Ayuda Con Horarios (IF anidado)

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda Con Horarios (IF anidado)

Publicado por Alexander Camacho alex.cam.mol@gmail.com (1 intervención) el 23/04/2013 20:42:47
Hola estoy realizando un programa de control de asistencia a lo que me piden que el usuario administrador de alguna forma pueda marcar cuando es fin desemana o feriado a final del mes para los calculos por otro lado y sin sber que ahcer se me ocurrio:

Poner un If :

'La función se llama es_Fin_de_Semana si es falso realize calculos
If es_Fin_de_Semana(Fecha) = False Then
'los calculos funcionan fino no les pongan atencion
exthora = Mid(labeltotal.Caption, 1, 2)
extmin = Mid(labeltotal.Caption, 4, 5)
extmind = extmin / 60
extmind = Mid(extmind, 1, 3)
exthora = exthora + extmind
' desde aqui radica el problema cuano le pregunto si exthora es mayor a 8 me realiza todo ahora lo que nunca pasa es que si es fin de semana me haga los otros calculos si pueden ayudarme lo agradeceria
If exthora > 8 Then
exthora = exthora - 8
labelsuplem.Caption = exthora
Dim totalfix As Double
totalfix = Val(labeltotal3.Caption) - Val(labelsuplem.Caption)
labeltotalv.Caption = totalfix
Else
If exthora < 8 And es_Fin_de_Semana(Fecha) = True Then
labelextras.Caption = Format(dDiferencia, "HH:mm")
Else
totalfix = Val(labeltotal3.Caption) - Val(labelsuplem.Caption)
labeltotalv.Caption = Format(dDiferencia, "HH:mm")

End If
End If
End If
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

Ayuda Con Horarios (IF anidado)

Publicado por Pedro Luis (57 intervenciones) el 24/04/2013 13:48:51
En cuanto a los fines de semana si Format(fecha,"w")=1 es domingo y si es igual a 7 es sabado.
Los feriados se pueden poner en una tabla y comparar con ella la fecha.
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