我在表中定义日期为smalldatetime,分别怎么取其中的年、月、日?

解决方案 »

  1.   

    uses DateUtilsprocedure TForm1.Button1Click(Sender: TObject);
    var
      Present: TDateTime;
      Year, Month, Day,: Word;
     begin
      Present:= Now;
      DecodeDate(Present, Year, Month, Day);
      Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
        + IntToStr(Month) + ' of Year ' + IntToStr(Year);
     
    end;
      

  2.   

    var
      mydate:TDateTime;
      Year,Month,Day:Word;
    begin
      mydate:=Query1.fieldbyname('smalldate').AsDate;
      Year:=FormatDateTime('yyyy',mydate);
      Month:=FormatDateTime('mm',mydate);
      Day:=FormatDateTime('Day',mydate);
    end;
      

  3.   

    var
       date:tdatetime;
       year,month,day:word;
    begin
      date:=now;
      decodedate(date,year,month,day);
      panel1.Caption:=format('今天是%d年%d月%d日',[year,month,day]);
    end;
      

  4.   

    mydate:=Query1.fieldbyname('smalldate').AsDate;
      Ymd:=FormatDateTime('yy-mm-dd',mydate);
      

  5.   

    mydate:=Query1.fieldbyname('smalldate').AsDate;
      Ymd:=FormatDateTime('yyyy-mm',mydate);