Code:
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
AnsiString Upit = "SELECT * FROM Us WHERE Korisnik";
ADOQuery1->SQL->Add( Upit );
ADOQuery1->Open();
int pg,pd,pm;
AnsiString roden=Date().DateString();
AnsiString pom;
pom=roden.SubString(7,4);//pocetna godina
pg=atoi(pom.c_str());
pom=roden.SubString(4,2);//poceten mesec
pm=atoi(pom.c_str());
pom=roden.SubString(1,2);//poceten den
pd=atoi(pom.c_str());
int pocetak= pg*365+pm*31+pd-10219;
AnsiString Godini=pocetak;
ADOQuery2->Close();
ADOQuery2->SQL->Clear();
AnsiString Upit1 = "UPDATE Baza SET ImaNad29='1' WHERE datumbr< '" + Godini + "'";
ADOQuery2->SQL->Add( Upit1 );
ADOQuery2->ExecSQL();
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
AnsiString Upit = "SELECT * FROM Us WHERE Korisnik";
ADOQuery1->SQL->Add( Upit );
ADOQuery1->Open();
int pg,pd,pm;
AnsiString roden=Date().DateString();
AnsiString pom;
pom=roden.SubString(7,4);//pocetna godina
pg=atoi(pom.c_str());
pom=roden.SubString(4,2);//poceten mesec
pm=atoi(pom.c_str());
pom=roden.SubString(1,2);//poceten den
pd=atoi(pom.c_str());
int pocetak= pg*365+pm*31+pd-10219;
AnsiString Godini=pocetak;
ADOQuery2->Close();
ADOQuery2->SQL->Clear();
AnsiString Upit1 = "UPDATE Baza SET ImaNad29='1' WHERE datumbr< '" + Godini + "'";
ADOQuery2->SQL->Add( Upit1 );
ADOQuery2->ExecSQL();
[Ovu poruku je menjao sanivr dana 29.11.2012. u 17:06 GMT+1]