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

 

  Dicas

  Visual Basic    (Datas/Números/Strings)

Título da Dica:  Funcao de Natal
Postada em 27/12/2007 por Ivo Borges            
Função que avisa o dia de Natal

Function Natal() As String
Dim D As Date
Dim N As Integer
D = "25/12"
N = DatePart("W", D, vbUseSystemDayOfWeek)
Select Case N
Case 1
Natal = "O Natal vai cair no Domingo"
Case 2
Natal = "O Natal vai cair na Segunda-Feira"
Case 3
Natal = "O Natal vai cair na Terça-Feira"
Case 4
Natal = "O Natal vai cair na Quarta-Feira"
Case 5
Natal = "O Natal vai cair na Quinta-Feira"
Case 6
Natal = "O Natal vai cair na Sexta-Feira"
Case 7
Natal = "O Natal vai cair no Sábado"
End Select

End Function

Depois coloque no Timer


Private Sub Timer1_Timer()
If Day(Date) > 15 And Month(Date) = 12 Then
MsgBox Natal()

End If
End Sub
 


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