|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Dias úteis entre duas datas
|
 |
|
|
|
Postada em 7/7/2003 por Darlan Oliveira
Public Function DiasUteis(dtInicio As Variant, dtFinal As Variant) As Integer
Dim intSemanas As Integer
Dim varDataCont As Variant
Dim intFimDias As Integer
dtInicio = DateValue(dtInicio)
dtFinal = DateValue(dtFinal)
intSemanas = DateDiff("w", dtInicio, dtFinal)
varDataCont = DateAdd("ww", intSemanas, dtInicio)
intFimDias = 0
Do While varDataCont < dtFinal
If Format(varDataCont, "ddd") <> "Sun" And _
Format(varDataCont, "ddd") <> "Sat" Then
intFimDias = intFimDias + 1
End If
varDataCont = DateAdd("d", 1, varDataCont)
Loop
DiasUteis = intSemanas * 5 + intFimDias
End Function
'NO FORMULARIO
Me.Text1.Text = Format(Now, "dd/mm/yyyy")
Me.Text2.Text = "25/12/2003"
Me.Text3.Text = DiasUteis(Me.Text1.Text, Me.Text2.Text)
Original AdrianoFaria
|
|
|
|
|
