Статистика | Зарегистрировано на сайте: Всего: 51635
Онлайн всего: 5 Гостей: 5 Пользователей: 0
|
|
Каталог статей
Как получить универсальные дату и время?
В примере главную роль играет GetSystemTime()
procedure TForm1.Button1Click(Sender: TObject); var lt : TSYSTEMTIME; st : TSYSTEMTIME; begin GetLocalTime(lt); GetSystemTime(st); Memo1.Lines.Add('LocalTime = ' + IntToStr(lt.wmonth) + '/' + IntToStr(lt.wDay) + '/' + IntToStr(lt.wYear) + ' ' + IntToStr(lt.wHour) + ':' + IntToStr(lt.wMinute) + ':' + IntToStr(lt.wSecond)); Memo1.Lines.Add('UTCTime = ' + IntToStr(st.wmonth) + '/' + IntToStr(st.wDay) + '/' + IntToStr(st.wYear) + ' ' + IntToStr(st.wHour) + ':' + IntToStr(st.wMinute) + ':' + IntToStr(st.wSecond)); end;
|
|
Просмотров: 433
| Рейтинг: 1.0/
4
Оштрафовать
| Жаловаться на материал |
|
|