USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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)
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página