微慑信息网

[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;

赞(0) 打赏
转载请附本站链接,未经允许不得转载,,谢谢:微慑信息网-VulSee.com » [Delphi] 在delphi中分别获取当前年月日

评论 抢沙发

微慑信息网 专注工匠精神

微慑信息网-VulSee.com-关注前沿安全态势,聚合网络安全漏洞信息,分享安全文档案例

访问我们联系我们

觉得文章有用就打赏一下文章作者

非常感谢你的打赏,我们将继续提供更多优质内容,让我们一起创建更加美好的网络世界!

支付宝扫一扫打赏

微信扫一扫打赏

登录

找回密码

注册