delphi7,已知生产日期，保质期（按月算）怎样才能计算出到期时间? 求好心人贴个代码学习学习
答案:1 悬赏:70 手机版
解决时间 2021-12-03 10:33
- 提问者网友：放下
- 2021-12-03 04:14
delphi7,已知生产日期，保质期（按月算）怎样才能计算出到期时间? 求好心人贴个代码学习学习
最佳答案
- 五星知识达人网友：迟山
- 2021-12-03 05:14
给你写了个函数
你用用吧
function GetShelfLifeDate(dateOfManufacture: TDateTime;imonth:integer): TDateTime;
var
Year, Month, Day: Word;
begin
DecodeDate(dateOfManufacture, Year, Month, Day);
Result := EncodeDate(Year, Month+iMonth, Day);
end;
比如说
showmessage(DateTimeTostr(GetShelfLifeDate(Now,4)));
就取得了保质期的最后一天是 距离现在4个月后的那一天
本人专业代做各类delphi java软件，接受各类软件项目，回扣巨大。
你用用吧
function GetShelfLifeDate(dateOfManufacture: TDateTime;imonth:integer): TDateTime;
var
Year, Month, Day: Word;
begin
DecodeDate(dateOfManufacture, Year, Month, Day);
Result := EncodeDate(Year, Month+iMonth, Day);
end;
比如说
showmessage(DateTimeTostr(GetShelfLifeDate(Now,4)));
就取得了保质期的最后一天是 距离现在4个月后的那一天
本人专业代做各类delphi java软件，接受各类软件项目，回扣巨大。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯