PEGAR O íNDICE DE UM MêS PELO NOME DO MêS

 Tópico anterior Próximo tópico Novo tópico

PEGAR O íNDICE DE UM MêS PELO NOME DO MêS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#496539 - 24/03/2021 06:52:55

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Testou isso.



#496582 - 28/03/2021 18:07:18

AMELINHACODE
SAO PAULO
Cadast. em:Junho/2019


Citação:
:
Public Function NUMERODATA(ByVal monthName As String) As Integer
    Select Case monthName.ToLower
        Case Is = 'JANEIRO'
            Return 1
        Case Is = 'FEVEREIRO'
            Return 2
        Case Is = 'MARÇO'
            Return 3
        Case Is = 'ABRIL'
            Return 4
        Case Is = 'MAIO'
            Return 5
        Case Is = 'JUNHO'
            Return 6
        Case Is = 'JULHO'
            Return 7
        Case Is = 'AGOSTO'
            Return 8
        Case Is = 'SETEMBRO'
            Return 9
        Case Is = 'OTUBRO'
            Return 10
        Case Is = 'NOVENBRO'
            Return 11
        Case Is = 'DEZEMBRO'
            Return 12
        Case Else
            Return 0
    End Select
End Function


nunca usei o 'return'...
Coloquei assim:
Public Function NUMERODATA(ByVal monthName As String) As Integer
    Select Case monthName.ToLower
        Case Is = 'JANEIRO'
            Return 1


porem 'Return 1' ficou vermelho... onde errei

como vou usar esse 'Return' nesse caso abaixo:
SELECT * FROM TABELAX WHERE (MONTH(DataEmissao) = ' & cboMes.ListIndex + 1 & ') AND (YEAR(DataEmissao) = ' & cboAno& ')








#496586 - 29/03/2021 09:13:11

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Código não aplicável o Vb6.
Não da Certo.
Use isto e veja.
Text1.Text = Month(Date).



#496591 - 29/03/2021 22:23:58

AMELINHACODE
SAO PAULO
Cadast. em:Junho/2019


Citação:
:
EPISCOPAL e SAMUKA isso não é o que ela quer.
Se tem apenas um mês no combo porque listcount.
Acho mais sensato usar caixa de texto.
Uma ideia mais ou menos assim,
If Combo2.Text = 'março' Then
Text1.Text = Combo2.ListIndex + 4
ElseIf Combo2.Text = 'abril' Then
Text1.Text = Combo2.ListIndex + 5
End If


Tirei minha base daqui....

Vamos lá! minha ideia é para quando eu abrir o form, ele me mostre a consulta por mês já aberta com mês atual... sem ter q fazer nada.... só abrir o form

no form_load
cboFiltroNota_GotFocus
cboFiltroNota.ListIndex = 4  'aqui escolho o tipo de consulta, nesse caso 'Mensal'
cboConNotaMes.Text = Format(Date, 'mmmm')   'aqui ele preenche o combo com o mês atual
cboConNotaAno.Text = Year(Date)  ''aqui ele preenche o combo com o ano atual
cmdExibirConNotas_Click  'aciono o botão que faz a consulta


'botão cmdexibirconnotas
Dim vIndMes As Integer
Dim vWhere As String

If cboConNotaMes.ListCount = 0 Then
    If cboConNotaMes.Text = 'janeiro' Then
        vIndMes = cboConNotaMes.ListIndex + 2
    ElseIf cboConNotaMes.Text = 'fevereiro' Then
        vIndMes = cboConNotaMes.ListIndex + 3
    ElseIf cboConNotaMes.Text = 'março' Then
        vIndMes = cboConNotaMes.ListIndex + 4
    ElseIf cboConNotaMes.Text = 'abril' Then
        vIndMes = cboConNotaMes.ListIndex + 5
    ElseIf cboConNotaMes.Text = 'maio' Then
        vIndMes = cboConNotaMes.ListIndex + 6
    ElseIf cboConNotaMes.Text = 'junho' Then
        vIndMes = cboConNotaMes.ListIndex + 7
    ElseIf cboConNotaMes.Text = 'julho' Then
        vIndMes = cboConNotaMes.ListIndex + 8
    ElseIf cboConNotaMes.Text = 'agosto' Then
        vIndMes = cboConNotaMes.ListIndex + 9
    ElseIf cboConNotaMes.Text = 'setembro' Then
        vIndMes = cboConNotaMes.ListIndex + 10
    ElseIf cboConNotaMes.Text = 'outubro' Then
        vIndMes = cboConNotaMes.ListIndex + 11
    ElseIf cboConNotaMes.Text = 'novembro' Then
        vIndMes = cboConNotaMes.ListIndex + 12
    ElseIf cboConNotaMes.Text = 'dezembro' Then
        vIndMes = cboConNotaMes.ListIndex + 13
    End If
    
    vWhere = '(MONTH(DataEmissao) = ' & vIndMes & ') '
Else
    vWhere = '(MONTH(DataEmissao) = ' & cboConNotaMes.ListIndex + 1 & ') '
End If

SQL = 'Select * from TabelaX WHERE ' & vWhere & ' AND (YEAR(DataEmissao) = ' & cboConNotaAno & ')'


Obrigado pessoal... obg OMAR2011








 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por AMELINHACODE em 29/03/2021 22:24:12