Ajuda Com Pesquisa por mes

#1

Bom Dia Estou fazendo uma pesquia ao banco de dados sql server o qual preciso pegar todos os dados do mes anterior, mas o mesmo me retorna zero, alguem poderia me dar uma ajuda?

Table = xc_ic_Display_Pulso.Fonte.Item("HistPulso_Minutos").TableName

Set Consulta = xc_ic_Display_Pulso.Item("Consulta1")

Consulta.SQL  =  "Select SUM(Valor)as soma7D FROM " &Table& _
                " WHERE E3TimeStamp >= #<%DataInicial%># AND E3TimeStamp <= #<%DataFinal%># "
Consulta.SetVariableValue "DataInicial",  Month(now) -1
Consulta.SetVariableValue "DataFinal",   Month(now) -1

    Set rec = Consulta.GetADORecordset()
    
    
 If IsNull(rec.Fields.Item("soma7D").Value) then
 
 Value = 0 
 
 else

Value = CStr(rec.Fields.Item("soma7D").Value /1000)+ " " + xc_ic_Display_Pulso.Unidade

end if

para o dia simplesmente coloco assim:

Consulta.SetVariableValue “DataInicial”, now
Consulta.SetVariableValue “DataFinal”, now

#2 
Sub button_Click()
	Dim e3Browser
	Dim field
	Dim firstDay, lastDay
	Dim strCriteria

	' Defina aqui o nome do E3 Browser.
	Set e3Browser = Screen.Item("E3Browser1")
	
	' Degfina aqui o campo data/hora a ser filtrado.
	Set field = e3Browser.Fields.Item("E3TimeStamp")
	
	firstDay = DateSerial( Year(Date), Month(Date) - 1, 1 )
	lastDay = DateSerial( Year(Date), Month(Date), 0 )
	
	strCriteria = " >= " & CStr(CDbl( FirstDay )) & " AND <= " & CStr(CDbl( LastDay ))
 	strCriteria = Replace(strCriteria, ",", ".")
	field.Criteria = strCriteria
End Sub