왜냐하면요.. 한 달이라는 것이 28~31일까지 가변적이기 때문입니다.

만약 1주일 전을 계산한다면

TDateTime dtWeekAgo = Now() - 7;

이렇게 간단하게 계산할 수 있지만 한 달 전이라면 얘기가 달라지죠.

TDateTime을 보시면 Decode로 시작하는 함수들이 있습니다. 이 함수를 쓰면 년월일 요소를 분리할 수 있죠. 이 함수를 써서 하면 될까요?
가령 월에 대해 증감시키는 것으로 해결이 되느냐.. 당연히 안되겠죠?
1월에서 1을 빼면? 그 전 년도로 가야 하니까요.. 이런식으로 처리하려한다면 알고리즘이 상당히 복잡해 집니다.
제 생각에 가장 간단하고 정확한 방법은..

1. 계산 대상월이 2월인지 먼저 검사(빼는 경우 전월, 더하는 경우 현재월)
- 2월인 경우 윤년인지 계산 (윤년 계산은 그리 어렵지 않습니다.) - 28일인지 29일인지 판별
- 2월이 아닌 경우 미리 만들어 놓은 테이블에서 그 달의 일수를 얻어옴(알고리즘상으로 간단하겠죠.. char[] = {31,29,31,30,31,30,31,31,30,31,30,31};

2. 기준일로부터 1에서 얻은 날짜를 단순 계산으로 빼거나 더함.

한 달이 며칠인지 계산하는 방법은 윤년,테이블 없이도 가능하지만 오히려 꽁수에 가깝고 실제 계산량은 위의 방법으로 한 것 보다 훨씬 많습니다.

대충 이런 식으로 하시면 되구요, 만약 음력까지 써야 한다면 엄청 복잡해집니다. ^^
수고하세여