(Resolvido) Formatar Data

[VB6DeveloperJr]

Bom Dia,

Estou precisando encontrar uma função em VB6 que receba uma data dd/mm/yyyy e retorne o nome do dia da semana por exemplo:

Segunda

Alguém poderia me ajudar com isso?

Obrigado!

[Jonathan Queiroz]

Tente assim:

dia_semana=weekday(data)

[VB6DeveloperJr]

Jonathan,

Com esta função o retorno é em Inteiro, Segunda = 2, eu precisaria do nome da semana em string!

[Jonathan Queiroz]

O VB não possui função nativa para isso...

Você pode simplesmente fazer um select case

dim dia_semana_num as byte
dim dia_semana_nome as string
dia_semana_num=weekday(data)
select case dia_semana_num
case 1
dia_semana_nome="Domingo"
case 2
dia_semana_nome="Segunda"
case 3
dia_semana_nome="Terça"
case 4
dia_semana_nome="Quarta"
case 5
dia_semana_nome="Quinta"
case 6
dia_semana_nome="Sexta"
case 7
dia_semana_nome="Sábado"
end select

[VB6DeveloperJr]

Obrigado Jonathan!!!

Era exatamente isso que precisava.

[kuroi]

na verdade a funcao WeekDayName() já faz isso.

exemplo:

MsgBox WeekdayName(Weekday(Now()))

ele retorna o nome do dia de acordo com o sistema instalado. se for o windows em ingles, ele trara o nome em ingles.