un Registrio que empiece de 1 cada mes!!

[Yun-i]

Gracias por responder tu solucion me ayudo mucho pero ahora estoy en algo:

Código Delphi [-]
ADOQyNoEv.Close;
ADOQyNoEv.SQL.Clear;
ADOQyNoEv.SQL.Add('select max(numero)from SIES_NombreEvento');
ADOQyNoEv.SQL.Add('where fecha between :a and :b');
ADOQyNoEv.Parameters.ParamByName('a').Value:=datetimepicker1.Date;
ADOQyNoEv.Parameters.ParamByName('b').Value:= //aqui debe ir el mismo mes y año
// de datatimepicker.data de arriba pero con el ultimo dia del mes
ADOQyNoEv.Open;

como poder decirle que sea el mimo mes y año pero el ultimo dia
creo que hay algo de delphi de dateutiles pero no se cual metodo me sirva me imagino que el DayOfTheMoth
pero nunca lo he usado

Gracias por tu ayuda muchas gracias en verdad gracias!!!!