我选择了2009-01月份，我想知道怎样代码或函数写可以成2009-02

Question

我选择了2009-01月份，我想知道怎样代码或函数写可以成2009-02

Answer 1

  procedure   StrToStrings(S:   AnsiString;   Sep:   AnsiString;   const   List:   TStrings);   
  var   
      I,   L:   Integer;   
      Left:   AnsiString;   
  begin   
      Assert(List   <>   nil);   
      List.Clear;   
      L   :=   Length(Sep);   
      I   :=   Pos(Sep,   S);   
      while   (I   >   0)   do   
      begin   
          Left   :=   LeftStr(S,   I   -   1);   
          List.Add(Left);   
          Delete(S,   1,   I   +   L   -   1);   
          I   :=   Pos(Sep,   S);   
      end;   
      if   S   <>   ''   then   
          List.Add(S);   
  end;   可以用这个函数，将指定的日期分解到一个TSTRINGS类型的对象中，再把月份取出来，加1，再重新组合成日期即可

Answer 2

用MonthOf()函数返回该日期的月份，根据结果组合新的
需要注意的是当月份为12月时候不能加1组合了，年份也要加1了

Answer 3

FormatDateTime('yyyy-mm', DateTimePicker1.Date);

Answer 4

uses DateUtils;IncMonth(Date1, 1);