OBTER O NÊMERO DOS DIA DA SEMANA.

ADHEL 24/04/2014 11:10:22
#437567
Pessoal bom dia.
Preciso obter os dias da semana de acordo com o número da semana no ano.
Estamos na semana de número 17.
Precisava pegar os dias de segunda a sexta feira dessa semana, que seriam esses 21,22,23,24,25.

Consigo pegar o numero da semana com esse código baixo.




Citação:

Dim data As DateTime = Now()
Dim cultura As System.Globalization.CultureInfo = System.Globalization.CultureInfo.CurrentCulture
Dim Semana As Integer = cultura.Calendar.GetWeekOfYear(data, System.Globalization.CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)

txtData.Text = data
txtSemana.Text = Semana



A partir do número da semana gostaria de obter o número dos dias.
Desde já agradeço pela atenção.
NILSONTRES 24/04/2014 14:27:05
#437577
Private Function DIA_SEMANA(ByVal WEK As Date) As String
Select Case WEK.DayOfWeek
Case 1
DIA_SEMANA = [Ô]Segunda[Ô]
Case 2
DIA_SEMANA = [Ô]Terça[Ô]
Case 3
DIA_SEMANA = [Ô]Quarta[Ô]
Case 4
DIA_SEMANA = [Ô]Quinta[Ô]
Case 5
DIA_SEMANA = [Ô]Sexta[Ô]
Case 6
DIA_SEMANA = [Ô]Sábado[Ô]
Case Else
DIA_SEMANA = [Ô]Domingo[Ô]
End Select
Return DIA_SEMANA
End Function

MSGBOX(DIA_SEMANA(TODAY))
ADHEL 24/04/2014 15:05:19
#437580
Nilson, obrigado pela atenção.
Mas preciso dos números dos dias da semana.
Com o número da semana do ano eu pego o números dessa mesma semana, ou seja estamos na semana de numero 17 , teria que obter os dias 21,22,23,24,25.
Já na semana que vem que é a de número 18 eu obteria os dias 28,29,30,1,2.
KERPLUNK 24/04/2014 17:58:03
#437595 Resposta escolhida 

Dim hoje As DateTime = DateTime.Now
Dim delta As Integer = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.FirstDayOfWeek - hoje.DayOfWeek
Dim primeiroDia As DateTime = hoje.AddDays(delta)

Dim datas As New List(Of DateTime)()
For i As Integer = 0 To 6
	datas.Add(primeiroDia.AddDays(i))
        txtSemana.Text = txtSemana.Text + primeiroDia.AddDays(i).Day + [Ô] [Ô] 
Next


Depois do for...next completo, você terá uma lista de datas da semana corrente e txtSemana, conterá os dias da semana.
ADHEL 25/04/2014 10:38:54
#437608
Obrigado Kerplunk.
Ficou perfeito.
Tópico encerrado , respostas não são mais permitidas
Voltar