MES ANTERIOR

WEBIER 13/01/2005 23:30:57
#60637
eu tenho a seguinte rotina:

Label1.Caption = UCase(MonthName(Month(rsFatura!DATA_LEITURA))) & "/" & Year(rsFatura!DATA_LEITURA)

se no DAT_LEITURA tiver 20/12/04 então no label aparecerá DEZEMBRO/2004

O que eu quero é que apareça o mês anterior, ou seja, se no campo DATA_LEITURA tiver 20/12/2004 ele deverá mostrar no label assim NOVEMBRO/2004
CAPITAO.GARCIA 13/01/2005 23:50:28
#60638 Resposta escolhida
Label1.Caption = UCase(MonthName(Month(rsFatura!DATA_LEITURA) - 1)) & "/" & Year(rsFatura!DATA_LEITURA)

deve funcionar
Tópico encerrado , respostas não são mais permitidas
Voltar