EU TENHO ISSO JÁ ALGUM TEMPO V SE AJUDA :
Private Function WorkDays(ByVal dtBegin As Date, ByVal dtEnd As Date) As Long
Dim dtMinSunday As Date
Dim dtMaxSaturday As Date
Dim lngWorkDays As Long
dtMinSunday = dtBegin + ((8 - Weekday(dtBegin)) Mod 7)
dtMaxSaturday = dtEnd - (Weekday(dtEnd) Mod 7)
lngWorkDays = (((dtMaxSaturday - dtMinSunday) + 1) / 7) * 5
If dtMinSunday <> dtBegin Then
lngWorkDays = lngWorkDays + (7 - Weekday(dtBegin))
End If
If dtMaxSaturday <> dtEnd Then
lngWorkDays = lngWorkDays + (Weekday(dtEnd) - 1)
End If
WorkDays = lngWorkDays
End Function
==========================================================================
Dim I As Integer
Dim cont As Integer
Dim resultado As Integer
cont = 0
'
For I = 1 To Len(Text1.Text)
If Mid(Text1.Text, I, 1) = IsNumeric(Mid(Text1, I, 1)) Then
cont = cont + 1
If cont = 2 Then
resultado = Mid(Text1, I, 1)
Text2.Text = resultado
End If
End If
Next End If
Next
=====================================================================
Function DiaDaSemana(Data As String) As String
If IsDate(Data) Then
Select Case Format(Data, "w")
Case 1
DiaDaSemana = "Domingo"
Case 2
DiaDaSemana = "Segunda-feira"
Case 3
DiaDaSemana = "Terça-feira"
Case 4
DiaDaSemana = "Quarta-feira"
Case 5
DiaDaSemana = "Quinta-feira"
Case 6
DiaDaSemana = "Sexta-feira"
Case 7
DiaDaSemana = "Sábado"
End Select
Else
DiaDaSemana = "Data Inválida!"
End If
End Function
=======================================================================
Public Function DiaSemana(ByVal Semana As Integer, Optional ByVal Ano As Integer = -1) As Date
'Função criada por Matheus de Oliveira (MATIOLI)
Dim pDia As Date, uDia As Date
If Ano < 0 Then Ano = Year(Date)
DiaSemana = DateAdd("WW", Semana - 1, DateSerial(Ano, 1, 1)) - (Weekday(DateSerial(Ano, 1, 1)) - 1)
End Function
'Para usar:
'Dim pDia As Date, uDia As Date
''Se não informar o ano, será usado pela função o Ano da data atual do sistema
'pDia = DiaSemana([Semana], [Ano])
'uDia = DateAdd("d", 6, pDia)
'
'MsgBox "A semana " & Semana & " vai de " & pDia & " até " & uDia
=======================================================================
'Coloque esta função em um módulo
Public Function DiaSemana(vDia As Date) As String
Select Case weekday(vDia)
Case 1
DiaSemana = "Domingo"
Case 2
DiaSemana = "Segunda"
Case 3
DiaSemana = "Terça"
Case 4
DiaSemana = "Quarta"
Case 5
DiaSemana = "Quinta"
Case 6
DiaSemana = "Sexta"
Case 7
DiaSemana = "Sábado"
End Select
End Function
'Para chamar a função é simples
txtdiadasemana.Text = DiaSemana(date)
ME AVISE SE FUNCIONA,.,,,,,,rsrsrsrsrsr
BOA SORTE
