怎样从Tdatetime 中仅将年、月、日取出？？马上给分！！

pwp 2004-01-02 10:07:59

...全文

55 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

pwp 2004-01-02

打赏
举报

thank you!

getit911 2004-01-02

打赏
举报

var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
year是年，month是月,day是日

经常遇到需要从一个日期时间中提取年、月、日，三个函数搞定。

第一行 Ttime now的值 timetostr时间显示为15:08:50 双浮点数double类型，8字节小数点部分记录时间 0.6311428009 *24=15.1474272216 取整为15， 0.1474272216*60=8.845633296 取整8为分， 0.845633296*60=50.73799776 取整为50为为秒，0.73799776

TDateTime TForm1::time_t2TDateTime(time_t T_Time)//time_t转化为TDateTime{ SYSTEMTIME SystemTime; struct tm *temp_time = localtime(&T_Time); SystemTime.wYear

六.Borland C++ Builder VCL的时间函数　　1. Date 　　返回TDateTime对象,包含当前的年月日信息,函数原型如下：　　System：：TDateTime __fastcall Date(void)；　　2. Time 　　返回TDateTime对象,包含当前的时间信息,函数原型如下：　　System：：TDateTime __fast...

procedure TFrmLltj.FormActivate(Sender: TObject); var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec:Word; begin Present:= Now; DecodeDate(Present, Year, Month, Day);

数据库相关

2,507

社区成员

88,447

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章

怎样从Tdatetime 中 仅将年、月、日取出？？马上给分！！

怎样从Tdatetime 中仅将年、月、日取出？？马上给分！！