|
|
Postada em 24/10/2005 17:19 hs
Prezados amigos, Como eu devo fazer para que uma data seja digitada e o sistema me dizer que dia da semana é. Ex: 24/10/2005 = segunda |
|
|
|
|
|
|
|
Postada em 24/10/2005 18:47 hs
Flavio era só vc dar uma pesquisada no site que vc encontrava, tente esse link que isso irá resolver seui problema: Se registre no site para ficar mais fácil de responder suas dúvidas. T+
João Carlos Junior Administrador de Redes - Windows 2003 Srv, Linux Desenvolvedor Visual Basic 6.0 com Access, SQL Server, VB .Net e Crystal Reports X Iniciante em C# e ASP .NET
|
|
|
|
|
|
Postada em 25/10/2005 06:39 hs
naum sei se da certo mais tenta WeekDay(date), ele retorna de 1 a 8, se naum me engano, 1=domingo e 8=sabado
"Quando estou fraco, aí então é que sou Poderoso"
|
|
|
|
|
|
Postada em 25/10/2005 10:32 hs
Muito obrigado. Funcionou mesmo! segue abaixo o exemplo para quem precisar futuaramente. If Weekday(TXT_DATA.Text) = 1 Then
TXT_DIA_SEMANA.Text = "Domingo"
End If
If Weekday(TXT_DATA.Text) = 2 Then
TXT_DIA_SEMANA.Text = "Segunda"
End If
If Weekday(TXT_DATA.Text) = 3 Then
TXT_DIA_SEMANA.Text = "Terça"
End If
If Weekday(TXT_DATA.Text) = 4 Then
TXT_DIA_SEMANA.Text = "Quarta"
End If
If Weekday(TXT_DATA.Text) = 5 Then
TXT_DIA_SEMANA.Text = "Quinta"
End If
If Weekday(TXT_DATA.Text) = 6 Then
TXT_DIA_SEMANA.Text = "Sexta"
End If
If Weekday(TXT_DATA.Text) = 7 Then
TXT_DIA_SEMANA.Text = "Sábado"
End If |
|
|
|
Marcos Leandro
não registrado
|
|
Postada em 25/10/2005 20:00 hs
Cara...não compliquem as coisas... dim datinha
datinha = Format(Text1.Text, "dddd")
MsgBox "O dia da semana é: " & datinha Pronto!!! seus problemas com dia da semana acabam por aí.....falow!! |
|
|
|
