Retornar mes

Delphi

03/06/2003

Preciso que o sistema me retorne somente um determinado mes.
Ex: Lista todos clientes que fazem aniversário no mes de Junho.


Rubens Junior

Rubens Junior

Curtidas 0

Respostas

Fred

Fred

03/06/2003

use a funcao decodedate
var d, m, a,d1,m1,a1 : word;
decodeDate(date,a,m,d);//m pega o numero do mes atual
decodedate(tabela.datanascimento,a1,m1,d1)// m1 mes de aniversario

depois e so comparar if m = m1 then
é o mes de aniversario 8)


GOSTEI 0
POSTAR