如題,看了許多人在討論怎麼將2005/03/29下午1:15:15存成20040329 131515這種格式,而我自已本身也遇到這個問題,所以索性寫了一個相關程式,希望可以幫你們決解問題!
不好意思,由於我不知道怎麼上傳我的檔案,所以就把原始碼po上去,請多多包函:
//--------------------------------------------------------------------------- #include
#pragma hdrstop #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String Year , Mon , Day ,Am,Hr,Mm,Ss,Access_Date,Access_Time;
int x,y,z;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender)
{ Form1->Caption=Time();
Year=(DateToStr(Date())).SubString(1,4);
Mon=(DateToStr(Date())).SubString(6,1);
Day=(DateToStr(Date())).SubString(8,2);
Am=TimeToStr(Time()).SubString(1,4); if(StrToInt(Mon)>9 && StrToInt(Day)>9)
{
Access_Date=Year Mon Day;
}
else if(StrToInt(Mon)>9 && StrToInt(Day)<9)
{
Access_Date=Year Mon '0' Day;
}
else if(StrToInt(Mon)<9 && StrToInt(Day)>9)
{
Access_Date=Year '0' Mon Day;
}
else
{
Access_Date=Year '0' Mon '0' Day;
} Hour=TimeToStr(Time()).SubString(6,2);
Min=TimeToStr(Time()).SubString(9,2);
Ses=TimeToStr(Time() 5).SubString(12,2);
if(Am=="下午" && StrToInt(Hr)>=01)
{
Hour=StrToInt(Hr) 12;
} Access_Time=Hr Mm Ss; //----存成access----
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->Parameters->CreateParameter("checkDate",ftString,pdInput,30,Access_Date);
ADOQuery1->Parameters->CreateParameter("checkTime",ftString,pdInput,30,Access_Date);
ADOQuery1->SQL->Add("Insert Into 資料表1 Values(:checkDate,:checkTime)");
ADOQuery1->ExecSQL();
//---------------------------- }
//--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled=true;
}
//--------------------------------------------------------------------------- 我是ORIS,大家好
------
我是ORIS,大家好