PEGAR OS DIAS DO MES
amigos, como faço para pegar todos os dias das semanas de um mes e colocar em um list por ex:....???
seria algo assim, o usuário informa o mês, tipo janeiro, e abaixo sairia o dia do mes e da semana..tem como ?
01 terça
02 quarta
03 quinta
etc...até o ultimo dia do mes...
seria algo assim, o usuário informa o mês, tipo janeiro, e abaixo sairia o dia do mes e da semana..tem como ?
01 terça
02 quarta
03 quinta
etc...até o ultimo dia do mes...
a função abaixo retorna o dia da semana correspondente a data informada no parametro
Function DiaDaSemana(Data As String) As String
[ô]Parametro data no formato dd/mm/yyyy
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
Function DiaDaSemana(Data As String) As String
[ô]Parametro data no formato dd/mm/yyyy
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
ok, acho q ja ajuda, mas antes de pegar o dia da semana, eu preciso achar quantos dias ha no mes, se são 30,31 ou fevereiro (28-29)...para montar a primeira coluna:
dia do mês da semana
01 segunda
02 terça
03 ..........
04
05
....
vou jogar em um listview, para procurar arquivos geados pelo ecf em uma pasta.....
dia do mês da semana
01 segunda
02 terça
03 ..........
04
05
....
vou jogar em um listview, para procurar arquivos geados pelo ecf em uma pasta.....
segue um projeto com o que você deseja
Ou Segue a função ai
Private Sub ListaDias(List As ListBox, Mes As Integer)
[ô]Luiz Comino 06/02/2013 - 11:35:00
Dim MtZ As Variant
Dim I As Integer
List1.Clear
For I = 1 To 31
If IsDate(Format(I, [Ô]00[Ô]) & [Ô]/[Ô] & Format(Mes, [Ô]00[Ô]) & [Ô]/[Ô] & Format(Date, [Ô]yyyy[Ô])) Then
MtZ = Split(Format(Format(I, [Ô]00[Ô]) & [Ô]/[Ô] & Format(Mes, [Ô]00[Ô]) & [Ô]/[Ô] & Format(Date, [Ô]yyyy[Ô]), [Ô]Long Date[Ô]), [Ô],[Ô])
List.AddItem Format(I, [Ô]00[Ô]) & [Ô] - [Ô] & MtZ(0)
End If
Next
End Sub
Private Sub ListaDias(List As ListBox, Mes As Integer)
[ô]Luiz Comino 06/02/2013 - 11:35:00
Dim MtZ As Variant
Dim I As Integer
List1.Clear
For I = 1 To 31
If IsDate(Format(I, [Ô]00[Ô]) & [Ô]/[Ô] & Format(Mes, [Ô]00[Ô]) & [Ô]/[Ô] & Format(Date, [Ô]yyyy[Ô])) Then
MtZ = Split(Format(Format(I, [Ô]00[Ô]) & [Ô]/[Ô] & Format(Mes, [Ô]00[Ô]) & [Ô]/[Ô] & Format(Date, [Ô]yyyy[Ô]), [Ô]Long Date[Ô]), [Ô],[Ô])
List.AddItem Format(I, [Ô]00[Ô]) & [Ô] - [Ô] & MtZ(0)
End If
Next
End Sub
Luiz, aparentemente perfeito, só que pega do ano corrente apenas ?, por ex:, se eu quiser pegar de dezembro do ano anterior o q teria que mudar ?, vai ocorrer em algumas situações...
Grata..
Grata..
segue
perfeito, muito obrigado..
Tópico encerrado , respostas não são mais permitidas