简单问题100分

解决方案 »

  1.   

    算时间在delphi中是最容易的,如下:  
      
    var  ss : TDateTime  
      
    其实Tdatetime是一个双精度的浮点数,它的小数点前表示天数:   
      
    如,  ss := ss + 20 表示从ss开始向后20天,如果 ss = 234.567    
    它就表示 234.567天,当然是从公元0年开始计算的!  
    --------------------------------------------------------------------------------
    时间处理的秘密
    TDateTime类型实际上就是一个double(双精度数). 整数部分是日期小数部分是时间。例如var
      DateTime : TDateTime;
      Date : TDateTime;
      Time : TDateTime;
    begin
      DateTime := now;
      //获得日期
      Date := Trunc( DateTime );
      //获得时间
      Time := Frac( DateTime );
    end;日期运算
    如果你想增加几天,只需要加一个天数就可以了var
      DateTime : TDateTime;
    begin
      DateTime := now;
      //七天以后
      DateTime := DateTime + 7;
    end;想要知道两个日期的差距,只需要互相减一下就可以了。var
      StartTime, StopTime, Difference : TDateTime;
    begin
      Difference := StopTime - StartTime;
    end;
      

  2.   

    var
     Date1,Date2,Date3:TDate;
    begin
     Date1:=Date; //当天的日期
     Date2:=Date1-7; //一周前的日期
     Date3:=incmonth(Date1,-1); //一个月前的日期
     Edit1.Text:=DateToStr(Date1);
     Edit2.Text:=DateToStr(Date2);
     Edit3.Text:=DateToStr(Date3);
    end;注意TDate与TDateTime之间的区别:前者只有日期,后者是日期+时间
    Date是Delphi常数,表示当天日期,是TDate类型;
    Now也是Delphi常数,表示当天前日期+时间,是TDateTime类型;
      

  3.   

    呵呵,我自己做了个unit,较全,可以给你当参考。