时间/日期函数的问题.

1:先结取系统的日期,然后把月份再结取出来负值于EDIT1.TEXT.
2:跟据当前结取系统日期的月份,再得到当前月份的天数负值于EDIT2.TEXT.
请各们大仙多多指教了,不知该用那些函数呀.

解决方案 »

  1.   

    //uses dateutils;
      Edit1.Text:=FormatDateTime('mm',now);
      Edit2.Text:=IntToStr(DaysInAMonth(YearOf(now),MonthOf(now)));
      

  2.   

    Edit2.Text:=IntToStr(DaysInAMonth(YearOf(now),MonthOf(now)));
    上面这句好像不行呀,那位大哥要以解释一下呀.谢了.
      

  3.   

    可以查一下Delphi帮助手册，里面有这方面的资料。
      

  4.   

    肯定要先写一下DaysInAMonth的Function的吧，有谁告诉我怎么写啊
      

  5.   

    取天数
     edit2.text:= formatdatetime('dd',incmonth(date,1)-1)
      

  6.   

    介绍一个结构类型给你，TSystemTime，关于他的详细信息请参考Delphi的帮助。
    辅助该类型应用的函数为：SystemTimeToDateTime()和DateTimeToSystemTime()。
      

  7.   

    看看帮助中的time,date什么的，这个可是个msdn一样的东西啊
      

  8.   

    我想知道当前月的总天数,应该怎样写.edit2.text:= formatdatetime('dd',incmonth(date,1)-1)这个是当前系统天数呀.
    我看了HELP但是没有详细的说明呀!又是E文,那位大哥有没有中文的呀.
      

  9.   


    Edit2.Text:=IntToStr(DaysInAMonth(YearOf(now),MonthOf(now)));
    需要增加单元：
      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.