1:pdate的type是datatime時如何如何取出年,月,日 2:OR年 月 OR年 月 日

var
    P: PDate;
    YY,MM,DD: word;
    {...}
    DecodeDate(P^,YY,MM,DD);

你是要問從資料庫帶出欄位的資料嗎? 可以這樣作:    

var
  y, m, d: Word;
begin
  DecodeDate(Query1.FieldByName('pdate').AsDateTime, y, m, d);
  //其中 y, m, d 為年月日!!      //另外有 FormatDateTime 可以用如
  ShowMessage(FormatDateTime('yyyy/mm/dd', Query1.FieldByName('pdate').AsDateTime));
end;

引言: 你是要問從資料庫帶出欄位的資料嗎? 可以這樣作:

var
  y, m, d: Word;
begin
  DecodeDate(Query1.FieldByName('pdate').AsDateTime, y, m, d);
  //其中 y, m, d 為年月日!!      //另外有 FormatDateTime 可以用如
  ShowMessage(FormatDateTime('yyyy/mm/dd', Query1.FieldByName('pdate').AsDateTime));
end;

APPRICE是:NUMERIC 如何將 floattostr(QRep1.DataSet.FieldByName('APPRICE').AsFloat)取出的金額前面補0,固定9位 例:結果是 .....1234是APPRICE的值,如何得到000001234 結果是 .....12345是APPRICE的值,如何得到000012345

麻請配合一下規定. 本問題結束, 請先結案, 若有其他的問題, 請再開另外主題.    這次先回答你後面的問題, 下次要麻煩你配合哦!    RightStr('000000000'+floattostr(QRep1.DataSet.FieldByName('APPRICE').AsFloat), 9) 即可!    RightStr 在 StrUtils unit 中, 若使用 delphi 5 可以參考下面 RightStr 的定義:

function RightStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;
begin
  Result := Copy(WideString(AText), Length(WideString(AText))   1 - ACount, ACount);
end;

引言: 麻請配合一下規定. 本問題結束, 請先結案, 若有其他的問題, 請再開另外主題. 這次先回答你後面的問題, 下次要麻煩你配合哦! RightStr('000000000' floattostr(QRep1.DataSet.FieldByName('APPRICE').AsFloat), 9) 即可! RightStr 在 StrUtils unit 中, 若使用 delphi 5 可以參考下面 RightStr 的定義:

function RightStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;
begin
  Result := Copy(WideString(AText), Length(WideString(AText))   1 - ACount, ACount);
end;

我下次會改進,我改成 sL811:=RightStr('000000000' floattostr(QRep1.DataSet.FieldByName('APPRICE').AsFloat), 9); 出現 Undeclared identifier ?

引言: 麻請配合一下規定. 本問題結束, 請先結案, 若有其他的問題, 請再開另外主題. 這次先回答你後面的問題, 下次要麻煩你配合哦! RightStr('000000000' floattostr(QRep1.DataSet.FieldByName('APPRICE').AsFloat), 9) 即可! RightStr 在 StrUtils unit 中, 若使用 delphi 5 可以參考下面 RightStr 的定義:

function RightStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;
begin
  Result := Copy(WideString(AText), Length(WideString(AText))   1 - ACount, ACount);
end;

我下次會改進,謝謝妳的回答...問題已完成了,要use StrUtils ..^-^