Время и даты

// для получения текущей даты и времени воспользуйтесь функцией

// Now() из модуля Sysutils.hpp . Отобразить полученные дату и

// время можно следующим образом (Button1 - кнопка на форме):
void __fastcall TForm1::Button1Click(TObject *Sender)

{

Form1->Caption = DateTimeToStr(Now());

}

// для получения текущего времени воспользуйтесь функцией Time()

// из модуля Sysutils.hpp . Отобразить полученную дату можно

// следующим образом (Button1 - кнопка на форме):
void __fastcall TForm1::Button1Click(TObject *Sender)

{

Form1->Caption = DateTimeToStr(Time());

}

// для получения дня недели воспользуйтесь функцией DayOfWeek()

// из модуля Sysutils.hpp, передав ей текущую дату. DayOfWeek

// возвращает значение от 1 до 7, где 1 - воскресенье,

// 2 - понедельник, и т. д.
int Day = DayOfWeek(Date());

Напишите следующий код:

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

Label1->Caption = FormatDateTime("hh:nn",Time());

Timer1->Interval=10000;// меньше число, больше точность

}

Напишите следующий код:

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

Label1->Caption=Time().FormatString("hh:mm:ss:zz");

Timer1->Interval=1;

}

Автор:

Напишите следующий код:

DWORD start=GetTickCount();

// тут ваша функция или как-либо действия

Edit1->Text=FloatToStr((GetTickCount()-start)/1000.);

// Для того чтобы узнать время в процессорных тактах

// напишите следующую функцию:

#pragma warn -8070

__int64 Ticks()

{

asm .586

asm RDTSC

}

#pragma warn +8070

// вызов функции

__int64 i = Ticks();