|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Calcular quantos dias tem num determinado mês
|
 |
|
|
|
Postada em 25/6/2002 por SergIO
ctachagas@msn.com
"Criar um Formulário e objetos para as respectivas entradas e saída, bem como um botão comando para executar o processo no seu evento click
Entradas - Mes
- Ano
Saída - QtdDeDiasNoMes"
Private Sub btnOK_Click()
Dim QtdDeDiasNoMes As Byte
Dim Data As Date
Dim Mes As String
Dim Ano As String
Data= "1/"& Mes "/" & Ano
Do While Format(Month(Data), "#00") = Mes
Data=DateAdd("d", 1, Data)
If Format(Month(Data), "#00") = Mes Then
QtdDeDiasNoMes = Day(Data)
End IF
Loop
End Sub
|
|
|
|
|
