Verificar status de cliente baseado em dia de vencimento

Delphi

Banco de Dados

Firebird

29/05/2017

Olá senhores,

Estou desenvolvendo um sistema para um cliente onde, no ato do cadastro do cliente, ele preenche um radio button que possui 3 valores relacionados a data de vencimento(por exemplo, todo dia 5). Ele quer que implemente algo que quando passasse desse dia de vencimento o status mudasse, informando que o cliente está em débito. Não tenho a mínima ideia de como fazer isso pois só tenho o dia, não uma data completa. Poderiam me ajudar? Desde já obrigado.
Yuri Neves

Yuri Neves

Curtidas 0

Respostas

Cesar Azeredo

Cesar Azeredo

29/05/2017

Tente if DayOf(date)>Seu_dia then Muda_status
GOSTEI 0
Yuri Neves

Yuri Neves

29/05/2017

Tente if DayOf(date)>Seu_dia then Muda_status


Não deu certo.

:(
GOSTEI 0
Yuri Neves

Yuri Neves

29/05/2017

O código está assim:

    if DayOf(date) > FDCadPadraoCL_DIA_VENCIMENTO.Value then
    begin
        lblStatus.Caption := 'Atrasado';
        lblStatus.Color := clRed;
    end
    else
    begin
        lblStatus.Caption := 'Em dia';
        lblStatus.Color := clGreen;
    end;
GOSTEI 0
POSTAR