Maked
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 26/08/2004 16:13 hs
Como posso definir quantos dias tem os meses de acordo com o calendário do ano. ex.: abril - 30 dias... |
|
|
|
|
|
Xevious
|
PORTO ALEGRE
RS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/08/2004 17:21 hs
eu fiz isso uma vez pra saber abril por exemplo fazia assim botava o dia 1 do mes posterior 01/05/2004 tirava um dia e via que dia no mes dava |
|
|
|
Burro
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/08/2004 17:27 hs
Procure sempre o que precisa na seção dicas, em 90% dos casos vc encontra o que precisa lá. Essa foi extraida de lá. "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
|
|
|
|
Alfterra
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/08/2004 17:33 hs
Public Sub nDiasMes()
dim Mes, Ano as integer mes = month(now) ano = year(now)
'-----------------------
' tratamento de eventual Erro
'-----------------------
On Error GoTo nDiasMes
Select Case Mes
Case 2 'verifica se é bissexto
'Bissexto é ano múltiplo de 4 e não de 100; _
ou múltiplo de 400
If (Ano Mod 4 = 0 And Ano Mod 100 <> 0) Or (Ano Mod 400 = 0) Then
NumDias = 29
Else
NumDias = 28
End If
'calcula a quntidade de dias de cada mes
Case 1, 3, 5, 7, 8, 9, 10, 12
NumDias = 31
Case 4, 6, 9, 11
NumDias = 30
End Select
On Error GoTo 0
Exit Sub
nDiasMes:
MsgBox "Erro Inesperado " & CStr(Err.Number) & " - " & Err.Description & " - " & " Linha: " & Erl, vbCritical, "nDiasMes"
On Error GoTo 0 End Sub
|
|
|
|
Vaughyman
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/08/2004 08:02 hs
Função mais simples: Function ULTIMO_DIA_MES(ano, mes) As Integer
ULTIMO_DIA_MES = Day(DateSerial(ano, mes + 1, 1) - 1)
End Function
"IF FUNCIONOU = TRUE THEN  BLOQUEIE O POST ELSE  POST NOVAMENTE INFORMANDO O QUE ACONTECEU ENDIF 
|
|
|
|
