微慑信息网

[Delphi] 在delphi中分别获取当前年月日

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
转载请附本站链接,未经允许不得转载,,谢谢:微慑信息网-VulSee.com » [Delphi] 在delphi中分别获取当前年月日
分享到: 更多 (0)

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

微慑信息网 专注工匠精神

访问我们联系我们