如何求一个日期值的年、月、日值？

Question

比如说“2004-1-23”，
       StrNewYear:=IntToStr(YearOf(NewDate));
        StrNewMonth:=IntToStr(MonthOf(NewDate));
求年月不会有问题，但求“日”23用下面的语句就不行，请问该怎么办？
        StrNewDate:=IntToStr(DateOf(NewDate));

Answer 1

var
  yyyy,mm,dd :word;
begindeccodedate(date,yyyy,mm,dd)
....

Answer 2

求日：
StrNewDate:=IntToStr(DayOf(NewDate));