#include 
#pragma hdrstop    #include "Unit1.h"
#include 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TDateTime A;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    A = IncSecond(Time(),100);
    Edit1->Text = A;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    TDateTime B;        B = Time();
    Edit2->Text = B;
    if ( SecondsBetween(A,B) == 0)
    {//你要做的事放在這
        Edit2->Text = B;
        Timer1->Enabled = false;
    }
}
//---------------------------------------------------------------------------

引言: 我發現這個函數有bug 如現在是2005年2日晚上11點59分55秒我預計10秒後執行某些動作,理論上執行時間會是3日0點0分5秒,但當現在時間到達晚上12:00:00時,執行時間卻變成1899/12/31 上午12:00:05 請問各位大大是否有解決辦法或其他函數可用

    A = IncSecond(Now(),10);
    Edit1->Text = A;

    TDateTime B = Now();
    Edit2->Text = B;
    //if (!SecondsBetween(A,B))
    if (A.FormatString("hhnnss") == B.FormatString("hhnnss"))
    {  //你要做的事放在這
       A = IncSecond(Now(),10);
       Edit1->Text = B;
       MessageBeep(0);
       //Timer1->Enabled = false;
    }