procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day:Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
showmessage('今天是'+inttostr(Year)+'年'+inttostr(Month)+'月'+inttostr(Day)+'日');
end;
本文标题: | [Delphi] 在delphi中分别获取当前年月日 |
本文链接: (转载请附上本文链接) | http://vulsee.com/archives/vulsee_2008/0922_574.html |