exemplo procedure .... var ano, mes, dia : word; begin DecodeDate((TabelaFeriadosDtFeriado.AsDateTime), ano, mes, dia); .... .... aqui tu digita o q tu quer fazer. mas agora a data já ta separada em ano, mes, dia. quando tu quiser o mes. e só indicar a variavel mes. end; entendeu? vlw