MOSTRAR MES

IRENKO 20/03/2014 09:44:17
#436282
Tenho uma data, supondo: 21/01/2014.

Como pegar somente o nome do mes mostrando em um label?

exemplo:

Janeiro
ou
Janeiro/2014

ou os dois.
SERGIOPASCOAL 20/03/2014 09:52:59
#436283
eu faço assim:
no campo vData informe a data que será consultada

if DatePart([Ô]m[Ô], vData) = 1 then vMes = [Ô]Janeiro[Ô]
if DatePart([Ô]m[Ô], vData) = 2 then vMes = [Ô]Fevereiro[Ô]

assim você pode montar uma função e ela retorna o mês desejado.
FBGSYSTEMS 20/03/2014 09:56:26
#436284
Segue uma function minha que retorna o nome do mês. 

Public Function pf_RetornaMes(mes As Integer)
Dim varMes As String
varMes = [Ô][Ô]
Select Case mes

    Case 1
        varMes = [Ô]JANEIRO[Ô]
    Case 2
        varMes = [Ô]FEVEREIRO[Ô]
    Case 3
        varMes = [Ô]MARÇO[Ô]
    Case 4
        varMes = [Ô]ABRIL[Ô]
    Case 5
        varMes = [Ô]MAIO[Ô]
    Case 6
        varMes = [Ô]JUNHO[Ô]
    Case 7
        varMes = [Ô]JULHO[Ô]
    Case 8
        varMes = [Ô]AGOSTO[Ô]
    Case 9
        varMes = [Ô]SETEMBRO[Ô]
    Case 10
        varMes = [Ô]OUTUBRO[Ô]
    Case 11
        varMes = [Ô]NOVEMBRO[Ô]
    Case 12
        varMes = [Ô]DEZEMBRO[Ô]
    
End Select

pf_RetornaMes = varMes
End Function


Ai voce chama assim

msgbox pf_RetornaMes(month(21/03/2014))

Espero ter ajudado.
MARCELO.TREZE 20/03/2014 10:22:09
#436286 Resposta escolhida
ou simplesmente

MsgBox MonthName(Month([Ô]10/01/2014[Ô]))
KIMH 20/03/2014 11:03:26
#436287
MsgBox Format(vData, [Ô]mmmm[Ô])
Tópico encerrado , respostas não são mais permitidas
Voltar