• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ridelight

[VB6] Converter o dia da semana para extenso

5 mensagens neste tópico

Private Function ConverterDia(nr%) As String
Select Case nr%
Case 1
ConverterDia = "Domingo"
Case 2
ConverterDia = "Segunda-Feira"
Case 3
ConverterDia = "Terça-Feira"
Case 4
ConverterDia = "Quarta-Feira"
Case 5
ConverterDia = "Quinta-Feira"
Case 6
ConverterDia = "Sexta-Feria"
Case 7
ConverterDia = "Sábado"
End Select
End Function

Utilizar o dia na Caption da Form

Form1.Caption = ConverterDia(DatePart("w", Now))

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tipo podias ir buscar o dia da semana ao relogio do sistema... não???

não sei, so uma pergunta...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tipo podias ir buscar o dia da semana ao relogio do sistema... não???

não sei, so uma pergunta...

Mas se o Windows estiver em Inglês, a data também irá ficar assim de certeza...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

E não é assim que deve ser? A data não deve aparecer na lingua do s.o.?

E acho que ha um pequeno prob neste método, experimenta no sistema, mudar o primeiro dia da semana para segunda. Ainda assim é bom.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora