|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Função que retorna a semana em extenso
|
 |
|
|
|
Postada em 10/6/2005 por ATS
Function ExtensoSemana(DATA)
SEMANA = Array("Domingo", "Segunda-Feira", "Terça-Feira", "Quarta-Feira", _
"Quinta-Feira", "Sexta-Feira", "Sabado")
ExtensoSemana = SEMANA(WeekDay(DATA) - 1)
End Function
Exemplo:
text1.text = ExtensoSemana("16/03/2001")
ou
text1.text = ExtensoSemana(Date)
|
|
|
|
|
