|
|
Postada em 17/03/2006 07:51 hs
Pessoal, como faço para ter um retorno do mês atual, abraço
Argemiro Aguiar da Silva Criativa Produtos e Serviços 5511 2135-9600
|
|
|
|
|
|
|
|
Postada em 17/03/2006 08:07 hs
mes = month(now) ele retorna um integer |
|
|
|
|
|
Postada em 17/03/2006 08:10 hs
dim mes as integer mes = datepart("m",date) |
|
|
|
|
|
Postada em 17/03/2006 13:03 hs
|
|
|
|
|
|
Postada em 18/03/2006 16:41 hs
Private Sub Form_Load()
MesCorrente = Format(Date, "mmmm")
DiaSemana = Format(Date, "dddd")
End Sub |
|
|
|
|
|
Postada em 21/03/2006 16:51 hs
OLHA SI ISSO VAI TE AJUDAR MyDate = Date ' Atribui uma data.
MyMonth = Month(MyDate) ' MÊS.
mes = MyMonth If mes = "1" Then 'AGOSTO
mes = "JANEIRO"
ElseIf mes = "2" Then 'FEVEREIRO
mes = "FEVEREIRO"
ElseIf mes = "3" Then 'MARÇO
mes = "MARÇO"
ElseIf mes = "4" Then 'ABRIL
mes = "ABRIL"
ElseIf mes = "5" Then 'MAIO
mes = "MAIO"
ElseIf mes = "6" Then 'JUNHO
mes = "JUNHO"
ElseIf mes = "7" Then 'JULHO
mes = "JULHO"
ElseIf mes = "8" Then 'AGOSTO
mes = "AGOSTO"
ElseIf mes = "9" Then 'SETEMBRO
mes = "SETEMBRO"
ElseIf mes = "10" Then 'OUTUBRO
mes = "OUTUBRO"
ElseIf mes = "11" Then 'NOVEMBRO
mes = "NOVEMBRO"
ElseIf mes = "12" Then 'DEZEMBRO
mes = "DEZEMBRO"
End If
lblMes.Caption = mes
|
|
|
|
