var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
NewTime :TTime;
begin
Present:= Now;
DecodeTime(Present, Hour, Min, Sec, MSec);
if Min = 0 then
begin
Min := 59;
Hour := Hour -1;
end
else
begin
Min := Min -1;
end;
NewTime := EncodeTime(Hour,Min,Sec,MSec);end;
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
NewTime :TTime;
begin
Present:= Now;
DecodeTime(Present, Hour, Min, Sec, MSec);
if Min = 0 then
begin
Min := 59;
Hour := Hour -1;
end
else
begin
Min := Min -1;
end;
NewTime := EncodeTime(Hour,Min,Sec,MSec);end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货