FUNCAO PARA ACHA O MES

USUARIO.EXCLUIDOS 21/12/2006 07:54:50
#191347
Alguem sabe como se faz para achar a nomeclatura do mês?
tipo mês 12 = Dezembro
grato
USUARIO.EXCLUIDOS 21/12/2006 08:01:33
#191351
Carinha,
Acho que o mais fácil seria vc criar uma função que retorne o mês por extenso, tipo:

Public Function Mes_Extenso(X As Integer) As String
Select Case X
    Case 1: Mes_Extenso= "Janeiro"
    Case 2: Mes_Extenso= "Fevereiro"
    Case 3: Mes_Extenso= "Março"
    Case 4: Mes_Extenso= "Abril"
    Case 5: Mes_Extenso= "Maio"
    Case 6: Mes_Extenso= "Junho"
    Case 7: Mes_Extenso= "Julho"
    Case 8: Mes_Extenso= "Agosto"
    Case 9: Mes_Extenso= "Setembro"
    Case 10: Mes_Extenso= "Outubro"
    Case 11: Mes_Extenso= "Novembro"
    Case 12: Mes_Extenso= "Dezembro"
    Case Else: Mes_Extenso = "Inválido"
End Select
End Function
USUARIO.EXCLUIDOS 21/12/2006 08:02:33
#191352 
  


[c]Public Function gfDiaSemanaExtenso(ByVal datData As Date) As String
    '*****
    '*      Retornar por extenso o dia da semana
    '*****
    Select Case Weekday(datData, vbMonday)
        Case 1: gfDiaSemanaExtenso = "Segunda"
        Case 2: gfDiaSemanaExtenso = "Terça"
        Case 3: gfDiaSemanaExtenso = "Quarta"
        Case 4: gfDiaSemanaExtenso = "Quinta"
        Case 5: gfDiaSemanaExtenso = "Sexta"
        Case 6: gfDiaSemanaExtenso = "Sábado"
        Case 7: gfDiaSemanaExtenso = "Domingo"
    End Select

End Function


Public Function gfMesExtenso(ByVal datData As Date) As String
    '*****
    '*      Retornar por extenso o mes
    '*****
    Select Case Month(datData)
        Case 1: gfMesExtenso = "Janeiro"
        Case 2: gfMesExtenso = "Fevereiro"
        Case 3: gfMesExtenso = "Março"
        Case 4: gfMesExtenso = "Abril"
        Case 5: gfMesExtenso = "Maio"
        Case 6: gfMesExtenso = "Junho"
        Case 7: gfMesExtenso = "Julho"
        Case 8: gfMesExtenso = "Agosto"
        Case 9: gfMesExtenso = "Setembro"
        Case 10: gfMesExtenso = "Outubro"
        Case 11: gfMesExtenso = "Novembro"
        Case 12: gfMesExtenso = "Dezembro"
    
    End Select

End Function





[/c]
LIONHEART 21/12/2006 08:04:23
#191353 
Msgbox MonthName (3)







Se não quiser, tem essa aqui abaixo:

Public Function NomeMes(Mes As Integer) As String
    Dim aMes(1 To 12) As String
    
    aMes(1) = "Janeiro"
    aMes(2) = "Fevereiro"
    aMes(3) = "Março"
    aMes(4) = "Abril"
    aMes(5) = "Maio"
    aMes(6) = "Junho"
    aMes(7) = "Julho"
    aMes(8) = "Agosto"
    aMes(9) = "Setembro"
    aMes(10) = "Outubro"
    aMes(11) = "Novembro"
    aMes(12) = "Dezembro"
    

    NomeMes = aMes(Mes)
End Function


Chamada:
    MsgBox NomeMes(4)
ESLEYSANCHES 21/12/2006 08:06:46
#191354 Resposta escolhida
Como assim amigo ? Pelo número dizer o mês ? Poderia usar uma função que puxasse os valores da função Date usando o MID, olhe a função que eu criei, veja se é isso que você precisa:

Public Function QualMes(Data As String) As String

'Verifica se a data fornecida é valida
If IsNumeric(Mid(Date, "4", "2")) = False Then
    MsgBox ("A data fornecida é inválida"), vbCritical
    Exit Function
End If

'Puxa e retorna o mes
If Mid(Date, "4", "2") = "01" Then
    QualMes = "Janeiro"
End If
If Mid(Date, "4", "2") = "02" Then
    QualMes = "Fevereiro"
End If
If Mid(Date, "4", "2") = "03" Then
    QualMes = "Março"
End If
If Mid(Date, "4", "2") = "04" Then
    QualMes = "Abril"
End If
If Mid(Date, "4", "2") = "05" Then
    QualMes = "Maio"
End If
If Mid(Date, "4", "2") = "06" Then
    QualMes = "Junho"
End If
If Mid(Date, "4", "2") = "07" Then
    QualMes = "Julho"
End If
If Mid(Date, "4", "2") = "08" Then
    QualMes = "Agosto"
End If
If Mid(Date, "4", "2") = "09" Then
    QualMes = "Setembro"
End If
If Mid(Date, "4", "2") = "10" Then
    QualMes = "Outubro"
End If
If Mid(Date, "4", "2") = "11" Then
    QualMes = "Novembro"
End If
If Mid(Date, "4", "2") = "12" Then
    QualMes = "Dezembro"
End If

End Function

[c]Private Sub Command1_Click()
MsgBox (QualMes(Date))

End Sub

[/c]
ESLEYSANCHES 21/12/2006 08:07:48
#191355
Com a função que eu te passei acima basta indicar qualquer data no formato DD/MM/AAAA que ele retorna o mês que está naquela data por extenço. Tem um anexo,veja se ele te ajuda a entender melhor !!

Abraços !!
Tópico encerrado , respostas não são mais permitidas
Voltar