Приветствую Вас на своем сайте!
Главная Форум Полезные файлы Музыка Cофт Профиль Фото галерея Выход Вход
  Менюшка

  Мини-чат

  Cыграйка

  Бонус wmr


Получите WMR-бонус
от 0,01 до 0,20 WMR на свой кошелек!

  Проголосуй

Верите ли вы в привидения?
Всего ответов: 24

Главная » 2008 » Сентябрь » 21 » FAQ по работе со временем и датой
FAQ по работе со временем и датой
10:03:41

  1. Получение текущей даты и времени (VCL
    вариант)


    // для получения текущей даты и
    времени воспользуйтесь функцией
    // Now() из модуля Sysutils.hpp . Отобразить
    полученные дату и
    // время можно следующим образом (Button1 - кнопка на
    форме):
    void __fastcall TForm1::Button1Click(TObject
    *Sender)
    {
    Form1->Caption =
    DateTimeToStr(Now());
    }


  2. Получение текущего времени (VCL вариант)


    color=green>// для получения текущего времени воспользуйтесь функцией
    Time()
    // из модуля Sysutils.hpp . Отобразить полученную дату можно
    //
    следующим образом (Button1 - кнопка на форме):
    void __fastcall
    TForm1::Button1Click(TObject *Sender)
    {
    Form1->Caption =
    DateTimeToStr(Time());
    }


  3. Получение дня недели (VCL вариант)


    color=green>// для получения дня недели воспользуйтесь функцией
    DayOfWeek()
    // из модуля Sysutils.hpp, передав ей текущую дату.
    DayOfWeek
    // возвращает значение от 1 до 7, где 1 - воскресенье,
    // 2 -
    понедельник, и т. д.
    int Day =
    DayOfWeek(Date());


  4. Часы на форме с точностью до минут


    color=green>Напишите следующий код:
    void __fastcall
    TForm1::Timer1Timer(TObject *Sender)
    {
    Label1->Caption =
    FormatDateTime("hh:nn",Time());
    Timer1->Interval=10000;
    color=green>// меньше число, больше точность

    }


  5. Часы на форме с точностью до долей секунд


    color=green>Напишите следующий код:
    void __fastcall
    TForm1::Timer1Timer(TObject
    *Sender)
    {
    Label1->Caption=Time().FormatString("hh:mm:ss:zz");
    Timer1->Interval=1;
    }

    color=red>Автор:
    ant47



  6. Как подсчитать время выполнения функции


    color=green>Напишите следующий код:
    DWORD
    start=GetTickCount();
    // тут ваша функция или как-либо
    действия

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


  7. Время в процессорных тактах


    color=green>// Для того чтобы узнать время в процессорных тактах
    // напишите
    следующую функцию:
    #pragma warn -8070
    __int64
    Ticks()
    {
    asm .586
    asm RDTSC
    }
    #pragma warn +8070


    color=green>// вызов функции

    __int64 i = Ticks();

По материаллам сайта: www.realcoding.net

Категория: Интиресные статьи | Просмотров: 267 | Добавил: epidemic | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
  Личный кабинет

Привет: Зашедший

Сообщения:
$$$ для web-мастеров
Гость, мы рады вас видеть. Пожалуйста
зарегистрируйтесь или
авторизуйтесь!

  Календарь

  Наши Друзья

Effectt.com - система обмена ссылками. обмен ссылками: добавить ссылку, прямые ссылки

Получить WMR-бонус на свой кошелек!
Linq.RU - Обмен ссылками
  Статистика сайта

Всего connect: 1
Зашедших: 1
Зареганых: 0

статистика Top 100: Развлечения, игры, юмор Бесплатная раскрутка сайта
Copyright Epidemic © 2019Используются технологии uCoz