delphi.net日期處理的錯誤

發文回覆瀏覽次數：913

推到 Plurk!

推到 Facebook!

尚未結案

kartan_01
一般會員

發表：42
回覆：60
積分：20
註冊：2004-12-08

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-12-13 12:23:36

IP:61.221.xxx.xxx 未訂閱

[Error] Unit1.pas(111): Incompatible types: 'Borland.Delphi.System.TDateTime' and 'Borland.Delphi.System.TDateTime' [Error] Unit1.pas(111): Types of actual and formal var parameters must be identical 類似這樣的錯誤 gstart_date:=strtodatetime(edityymm.Text '/01'); 改成 gstart_date:=convert.ToDateTime(edityymm.Text '/01'); 錯誤就消失了請問這兩個應該怎麼改? decodedate(gend_date,vyy,vmm,vdd); gend_date:=encodedate(vyy,vmm,1)-1;

Brian77
中階會員

發表：8
回覆：114
積分：94
註冊：2002-05-17

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-12-15 10:04:49

IP:61.61.xxx.xxx 未訂閱

在 .NET 中日期時間型態有兩種... .NET 的 System.DateTime 和 Delphi 的 Borland.Delphi.System.TDateTime 請見下面範例...

var
  mDT1:System.DateTime;
  mDT2:Borland.Delphi.System.TDateTime;
begin
  Response.Output.Write(''#13);
  //
  Response.Output.Write(''#13);
  mDT1:=System.Convert.ToDateTime('2004/12/05');
  Response.Output.Write(''#13);
  mDT1:=System.DateTime.Create(2004,12,16);
  Response.Output.Write(''#13);
  mDT1:=mDT1.AddDays(-1);
  Response.Output.Write(''#13);
  // 需 uses Borland.Vcl.SysUtils
  Response.Output.Write(''#13);
  mDT2:=StrToDateTime('2004/12/05');
  Response.Output.Write(''#13);
  mDT2:=EncodeDate(2004,12,16);
  Response.Output.Write(''#13);
  mDT2:=mDT2-1;
  Response.Output.Write(''#13);
  //
  Response.Output.Write('採用 System.DateTime
System.Convert.ToDateTime(''2004/12/05'') ' mDT1.ToString '
System.DateTime.Create(2004,12,16) ' mDT1.ToString '
mDT1.AddDays(-1) ' mDT1.ToString '
採用 Borland.Delphi.System.TDateTime
StrToDateTime(''2004/12/05'') ' mDT2.ToString '
EncodeDate(2004,12,16) ' mDT2.ToString '
mDT2-1 ' mDT2.ToString ''#13);
end;

系統時間：2024-05-17 13:26:58

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！