关于DELPHI计算月份的问题。高手帮忙啊

发布网友发布时间：2024-10-02 17:12

共2个回答

热心网友时间：2024-10-26 15:36

function prvmonth(ADatetime : Tdatetime) : Tdatetime;
var
year,month,day : word
begin
decodedate(Adatetime,year,month,day);
if month = 1 then
begin
Year := year - 1;
month := 12;
end else
Month := Month - 1;

Result := Encodedate(year,month,day);
end;

热心网友时间：2024-10-26 15:39

if copy(month,5,2)='01' then
month:=inttostr(strtoint(copy(month,1,4))-1)+'12'
else
month:=copy(month,1,4)+formatfloat('00',strtoint(copy(month,5,2))-1);

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com