ITPub博客

首页 > Linux操作系统 > Linux操作系统 > DELPHI COMBOBOX 显示最近几个月份

DELPHI COMBOBOX 显示最近几个月份

原创 Linux操作系统 作者:zaorv 时间:2019-02-19 15:24:05 0 删除 编辑
想了解DELPHI COMBOBOX 显示最近几个月份,如当前是20090103,在COMBOBOX.ITEMS里显示'200810、200811、200812、200901'等四个选项。不对数据库访问。

//返回最近几个年月
procedure TForm1.Button1Click(Sender: TObject);
var
num,mon,i:integer;
mm,yearMonth:string;
begin //返回最近几个年月
memo1.Clear;
yearmonth:=formatDateTime('yyyymm',date) ;
mon:=strToInt(copy(yearMonth,5,7));
num:=3;
for i:=0 to num-1 do
begin
if mon>i then
begin
mm:=intTostr(mon-i ) ;
if StrToInt(mm)<10 then
begin
mm:='0'+ mm ;
end
else
begin
mm:= mm ;
end;
memo1.Lines.Add(copy(yearMonth,1,4)+ mm ) ;
end

else
if mon<=i then
begin
mm:=intToStr(12+ mon -i);
if StrToInt(mm)<10 then
begin
mm:='0'+ mm ;
end
else
begin
mm:= mm ;
end;
memo1.Lines.Add(intTostr(strToInt(copy(yearMonth,1,4))-1)+ mm ) ;
end;
end;
end;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/729024/viewspace-564886/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2018-09-12

  • 博文量
    163
  • 访问量
    119987