使用控件Datetimepicker,然后截取前四位.前四位就是年份.
快给分...
快给分...
解决方案 »
- Delphi中数据库两表之间的数据一致性问题
- 求在网格里显示图片的方案
- 关于时间字段的处理!!!!急!~!!!
- 50分在线等.高手来.SaveToStream使用方法?
- IWServerController中设置port的端口号好像不起作用,每次运行时产生端口号不同
- 在98下运行在2000下编译的程序,有时在内存中没法释放程序,导致非法操作?
- 求stringGrid控件的详细用法????????????????????????????????????
- 如何连续监视远程屏幕(不用抓屏方法,太慢)谢谢!
- 如果让程序执行时可以获得参数
- 这个日期的格式的问题怎么办啊?大家可不可以帮帮我啊!!!
- 高手来看看啊,我想在Delphi里面实现Asm,但是怎么也不能成功!
- 进来瞧瞧吧
YearStr: String;
begin
YearStr := FormatDateTime('yyyy', Now);
ShowMessage(YearStr);
end;
再用DecodeDate()取年份::procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
+ IntToStr(Hour);
end;
begin
s:=formatdatetime('yyyy',now);
end;