在delphi中有无只取年、月、日函数(100分)

  • 主题发起人 主题发起人 zhouzr
  • 开始时间 开始时间
Z

zhouzr

Unregistered / Unconfirmed
GUEST, unregistred user!
在delphi中有否取年,取月,取日的函数,如何实现。
 
FormatDateTime('yyyy',now);
 
procedure DecodeDate(Date: TDateTime
var Year, Month, Day: Word);
 
i'm late。
楼上“两位”的方法都可以。
但是窃以为第二种方法更好一些。
 
同意:)[:D]
 
dayof
monthof
yearof
 
利用Procedure DecodeDate(Date:TDateTime, var Year, Month, Day: Word);
例如:
var
Present: TDateTime;
Year, Month, Day, Hour : Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
+ IntToStr(Month) + ' of Year ' + IntToStr(Year);
end;
另外用:FormatDateTime('yyyy',now);也可以

 
如果你是用Delphi6的话有直接的函数来取
年:yearof()
月:monthof()
天:dayof()
小时:hourof()
其它的就不用再说了吧
 
取今天的
yearof(date)
Monthof(date)
dayof(date)
now = date + time
你看一下yearof的帮助,有一组关于日期的函数
 
yearof(date)
Monthof(date)
dayof(date)
 
谢谢,我用的是delphi5,用yzhshi的方法解决。
 
我用的是D6,为什么没有yearof,dayof,monthof,帮助也找不到相关
 
在D6中使用yearof(date),Monthof(date),dayof(date)请先
uses DateUtils;
 
DecodeDate

这个好使。。。。
 
datetimetostring(resultstr, 'yyyymmdd', date);
 
明白了,谢谢大家
 
后退
顶部