[Resolvido]Prazo de Pagamento Fixo

Mais uma vez caros colegas, tenho uma dificuldade em definir um prazo fixo de pagamento. gostaria que o campo data, colocasse em automático o dia 28 de cada mês.
Só sei para ultimo dia de cada mês: DateSerial(Year(Date()), Month(Date()) + 1, 0)
Obrigado pela atenção!

Dia 28 do mês anterior ao atual:

Código:

DateSerial(Year(Date());Month(Date())-1;28)

Dia 28 do corrente mês:

Código:

DateSerial(Year(Date());Month(Date());28)

Dia 28 do Mês seguinte ao atual:

Código:

DateSerial(Year(Date());Month(Date())+1;28)

Pode ver mais no link da minha assinatura "102 Códigos VBA Gratuitos"
Link = "Datas no Access"

.

Ilustre Moderador João Paulo, mais uma vez muito obbrigado. Consegui adaptar os códigos a minha necessidade.

Fico feliz.

Obrgado pelo retorno o forum agradece.