请教一个简单的问题(DateTimePicker)

78product 2003-01-07 10:42:49
怎样把 TDateTimePicker中的年月日分别
放到Label1、Label2、Label3的caption中去
...全文
47 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
78product 2003-01-08
  • 打赏
  • 举报
回复
oracle_lover先生:

在XP下怎样安装 8i ????????我无法成功呀!
78product 2003-01-08
  • 打赏
  • 举报
回复
我的办法

s:=formatFloat('yyyy-m-d',DateTimePicker1.Datetime)

然后再分别读出来,哈哈
78product 2003-01-08
  • 打赏
  • 举报
回复
s1:=formatFloat('yyyy',DateTimePicker1.Datetime)
s2:=formatFloat('m',DateTimePicker1.Datetime)
s3:=formatFloat('d',DateTimePicker1.Datetime)
oracle_lover 2003-01-07
  • 打赏
  • 举报
回复
var
wyear,wmonth,wday:word;
begin
DecodeDate(DateTimePicker1.Date,wyear,wmonth,wday);
Label1.Caption:=IntToStr(wyear)+'年';
Label2.Caption:=IntToStr(wmonth)+'月';
Label3.Caption:=IntToStr(wday)+'日';
end;
halibut 2003-01-07
  • 打赏
  • 举报
回复

DateTimePicker1.Date().Decode()
将年月日解出来,解到三个变量里,再给Label的caption赋值!

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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