|
|
|
|
|
|
|
|
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
|
|
|
|
|
