NÃO CARREGA PESQUISA

Citação:

[ô]Devolve o ultimo dia do mes
Function ULTIMO_DIA_MES(ano, mes) As Integer
ULTIMO_DIA_MES = Day(DateSerial(ano, mes + 1, 1) - 1)
End Function

  
[ô]poe num button, com um datetimepicker no form.....
MessageBox.Show(Func_Ultimo_Dia_Mes(DateTimePicker1.Value))
    
    Public Function Func_Ultimo_Dia_Mes(paramDataX As Date) As Date
[ô]a primeira linha pega o primeiro dia do mês e soma um mês
[ô]a segunda subtrai um dia da data formada na primeira linha.....         
        Func_Ultimo_Dia_Mes = DateAdd([Ô]m[Ô], 1, DateSerial(Year(paramDataX), Month(paramDataX), 1))
        Func_Ultimo_Dia_Mes = DateAdd([Ô]d[Ô], -1, Func_Ultimo_Dia_Mes)
    End Function
 

  
DateTime mes = DateTime.Now;
DateTime primeiroDia = Convert.ToDateTime(“01/” + mes.ToString(“MM/yyyy”));
DateTime ultimoDia = primeiroDia.AddMonths(1).AddDays(-1);
 

Citação:

Public Class frmPesqMes
Dim diaInicial, diaFinal As Date
Public Function Func_Ultimo_Dia_Mes(paramDataX As Date) As Date
[ô]a primeira linha pega o primeiro dia do mês e soma um mês
[ô]a segunda subtrai um dia da data formada na primeira linha.....
Func_Ultimo_Dia_Mes = DateAdd([Ô]m[Ô], 1, DateSerial(Year(paramDataX), Month(paramDataX), 1))
Func_Ultimo_Dia_Mes = DateAdd([Ô]d[Ô], -1, Func_Ultimo_Dia_Mes)
diaFinal = Func_Ultimo_Dia_Mes
End Function
Private Sub btnPesquisar_Click(sender As Object, e As EventArgs) Handles btnPesquisar.Click
Dim data, data2 As String
data = [Ô]01/[Ô] & txtMes.Text
diaInicial = CDate(data)
Func_Ultimo_Dia_Mes(diaInicial)
data2 = diaFinal
End Sub
End Class