Kako promeniti sistemski datum u MonthCalendar komponenti (BCB)

[ X Files @ 24.01.2007. 11:41 ] @

Citat:

Kako promeniti sistemski datum u MonthCalendar komponenti ?

Menjanjem TMonthCalendar::Date osobine koja je tipa TDate;

Citat:

(Kada promeim dan , mesec ,godinu na kalendaru program IPAK ostavi staro sistemsko vreme.

Nisi rekla KAKO si menjala... Kad kažeš da nešto ne radi, to ništa ne govori o samom problemu,
moraš dati i detalje (korake) koji dovode do toga.

Citat:

Da li postoji neka f-ja koja to menja?

Menjanje TMonthCalendar::Date osobine koja je tipa TDate, je identično kao
i menjanje bilo kog drugog TDate objekta. Dakle, funkcije potrebne da se promeni datum
nisu specijalne za TMonthCalendar, nego su univerzalne za klasu TDate.

Prouči u Helpu: TDate, TTime, TDateTime i pripadajuće funkcije i metode. Ima puno primera.

U sledećem primeru korišćena je funkcija EncodeDate da celobrojne vrednosti spakuje
u objekt TDate.

Code:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TDate MojNoviDatum;

   Word Godina = 1973;
   Word Mesec  = 5;
   Word Dan    = 11;

   try
   {
      MojNoviDatum = EncodeDate( Godina, Mesec, Dan );
      MonthCalendar1->Date = MojNoviDatum;
   }
   catch( const Exception &e )
   {
      ShowMessage( "Podaci nisu ispravni." );
   }
}

Baš je zgodan ovaj VCL, nije mi jasno kako je propao...

EDIT: Jedino ako nisi mislila na menjanje SISTEMSKOG vremena OS-a ?

_{[Ovu poruku je menjao X Files dana 24.01.2007. u 13:09 GMT+1]}