引言: 請教白癡的笨問題: ShortDateFormat = "YYYY/MM/DD"; ShowMessage(DateToStr(StrToDate("2003/01/01") StrToDate("1/01/01"))); 答案 = 2104/01/04 這樣對嗎? 應是2004/02/05吧! 小弟不知日期格式相加時,還要設定啥東西? 與我想的邏輯不同 望各位教導一下? < face="Verdana, Arial, Helvetica">

HomeSound 你好:
(1)我沒有用這種方式做過日期、時間的相加或相減，因此，我不打算猜測你的
   做法的問題所在
( >
   >>>>>>
備註:
(
        

引言: RaynorPao 大大小弟的BCB5找不到IdDateTimeStamp.hpp 您的方法很棒,小弟卻無緣TEST, 小弟是希望若2004/02/29 23:59 2分鐘後=2004/03/01 00:01 或2003/12/31 23:59 2分鐘後=2004/01/01 00:01 跨年怕會出錯,我只有笨方法把年.月.日.時.分.通通拆開 算成60進位,24進位,30&31進位,12進位,潤年2月又不一樣 這種的東西進銷存應該會常常用到才對,有寫好的函數吧! 一定有比小弟更好的方法. ddy大大那分解開來再相加,會自動跨年跨月嗎?? 感謝兩位前輩的指導. 謝謝您喲!

HomeSound 你好:
(1)最新版的 Indy 元件及其說明文件，可以到以下連結下載
   http://www.indyproject.org/dowload/Indy9.html
(2)如果安裝有問題的話，可以參考以下的連結文章
   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25182

引言: RaynorPao 大大小弟的BCB5找不到IdDateTimeStamp.hpp 您的方法很棒,小弟卻無緣TEST, 小弟是希望若2004/02/29 23:59 2分鐘後=2004/03/01 00:01 或2003/12/31 23:59 2分鐘後=2004/01/01 00:01 跨年怕會出錯,我只有笨方法把年.月.日.時.分.通通拆開 算成60進位,24進位,30&31進位,12進位,潤年2月又不一樣 這種的東西進銷存應該會常常用到才對,有寫好的函數吧! 一定有比小弟更好的方法. ddy大大那分解開來再相加,會自動跨年跨月嗎?? 感謝兩位前輩的指導. 謝謝您喲!

    implementation    uses DateUtils;    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
var
    d:TDate;
begin
    d:=StrToDate('2002/1/1');
    d:=IncYear(d,2);
    d:=IncDay(d,5);
    d:=IncMonth(d,30);
    self.Caption :=datetostr(d);   //2006/7/6
end;

const
  DaysPerWeek = 7;
  WeeksPerFortnight = 2;
  MonthsPerYear = 12;    function IncDay(const AValue: TDateTime;
  const ANumberOfDays: Integer): TDateTime;
begin
  Result := AValue + ANumberOfDays;
end;    procedure IncAMonth(var Year, Month, Day: Word; NumberOfMonths: Integer = 1);
var
  DayTable: PDayTable;
  Sign: Integer;
begin
  if NumberOfMonths >= 0 then Sign := 1 else Sign := -1;
  Year := Year + (NumberOfMonths div 12);
  NumberOfMonths := NumberOfMonths mod 12;
  Inc(Month, NumberOfMonths);
  if Word(Month-1) > 11 then    // if Month <= 0, word(Month-1) > 11)
  begin
    Inc(Year, Sign);
    Inc(Month, -12 * Sign);
  end;
  DayTable := @MonthDays[IsLeapYear(Year)];
  if Day > DayTable^[Month] then Day := DayTable^[Month];
end;    function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer): TDateTime;
var
  Year, Month, Day: Word;
begin
  DecodeDate(DateTime, Year, Month, Day);
  IncAMonth(Year, Month, Day, NumberOfMonths);
  Result := EncodeDate(Year, Month, Day);
  ReplaceTime(Result, DateTime);
end;    function IncYear(const AValue: TDateTime;
  const ANumberOfYears: Integer): TDateTime;
begin
  Result := IncMonth(AValue, ANumberOfYears * MonthsPerYear);
end;