如何取得分别日期的年月日时分秒。

Question

使用DECODEDATE、DECODETIME函数就可以实现你的要求。
procedure decodedate(date : Tdatetime;var year,month,day :word);
procedure decodetime(date : Tdatetime;var hour,min,sec,msec :word);

Answer 1

uses DateUtils;Hourof
Minuteof
secondsof

Answer 2

你用F1帮助看看或按住ctrl点TXSCustomDateTime就能出现详细声明了.

Answer 3

TXSCustomDateTime = class(TRemotableXS)
使用TRemotableXS类，可帮助程序员串行化自定义数据类型为Soap支持的
数据封装格式。
TRemotableXS提供两个虚方法
NativeToXS和XSToNative
对于TXSCustomDateTime，可以调用这两个方法。

Answer 4

考，我帮你贴
var
  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 := IntToStr(sec)+'The time is Minute ' + IntToStr(Min) + ' of Hour '
    + IntToStr(Hour);
end;

Answer 5

我来晚了!
……………………………………………………………………………………
     .--,       .--,
    ( (  \.---./  ) )
     '.__/o   o\__.'
        {=  ^  =}
         >  -  <
        /       \
       //       \\
      //|   .   |\\
      "'\       /'"_.-~^`'-.
         \  _  /--'         `
       ___)( )(___
      (((__) (__)))
……………………………………………………………………………………

Answer 6

procedure decodedate(date : Tdatetime;var year,month,day :word);
procedure decodetime(date : Tdatetime;var hour,min,sec,msec :word);