我用Dayofthemonth()没取成功
是用这函数吗??

解决方案 »

  1.   

    uses DateUtils
    DaysInAMonth(year,day)
      

  2.   

    var
      Str_Month:String;
    begin
      Str_Month:=FormatDateTime('MM',Date);
    end;
      

  3.   

    uses DateUtils
    DaysInAMonth(year,day)
      

  4.   

    uses DateUtils
    …………
    procedure TForm1.Button1Click(Sender: TObject);
    var
     year,month,day :word;
    begin
    decodedate(now,year,month,day);
    Edit1.Text :=inttostr(DaysInAMonth(year,day));
    end;
      

  5.   

    uses DateUtils;
    function DaysInAMonth(const AYear, AMonth: Word): Word;
      

  6.   

    用DaysInAMonth(年,月),但需要增加单元:
      uses DateUtils如:
    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation
    //在这加下面一条语句
    uses DateUtils;
    {$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
    begin
       Edit1.Text:=IntToStr(DaysInAMonth(YearOf(now),MonthOf(now)));
    end;end.