Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.20;
Скачать: CL | DM;

Вниз

Чайниковский вопрос, хм, как получить системное время   Найти похожие ветки 

 
Leeechhhh   (2005-03-05 19:19) [0]

Да, и вывести его на форму.
ЗЫ: тока не смейтесь, я только начал юзать делфи


 
Knight ©   (2005-03-05 19:36) [1]

Label1.Caption:=TimeToStr(Now);


 
Checist [root]   (2005-03-05 19:40) [2]

Или TimeToStr(Time). Кстати чем они отличаются?


 
Knight ©   (2005-03-05 19:45) [3]

Сам сравни...

function Date: TDateTime;
var SystemTime: TSystemTime;
begin
 GetLocalTime(SystemTime);
 with SystemTime do Result := EncodeDate(wYear, wMonth, wDay);
end;

function Time: TDateTime;
var SystemTime: TSystemTime;
begin
 GetLocalTime(SystemTime);
 with SystemTime do
   Result := EncodeTime(wHour, wMinute, wSecond, wMilliSeconds);
end;

function Now: TDateTime;
var  SystemTime: TSystemTime;
begin
 GetLocalTime(SystemTime);
 with SystemTime do  
   Result := EncodeDate(wYear, wMonth, wDay) + EncodeTime(wHour, wMinute, wSecond, wMilliseconds);
end;


 
Leeechhhh   (2005-03-05 19:49) [4]

Благодарности =))


 
Anatoly Podgoretsky ©   (2005-03-05 19:54) [5]

Ответ не прозвучал, ну тогда переведу первое слово
Получить - get
системное -
время  -

Остальное настолько тривиально, что справишься без словаря.


 
Knight ©   (2005-03-05 19:56) [6]


> [5] Anatoly Podgoretsky ©   (05.03.05 19:54)

Смотри [3] там и как получить и как энкодить... :)

С уважением...


 
Anatoly Podgoretsky ©   (2005-03-05 20:01) [7]

Knight ©   (05.03.05 19:56) [6]
Смотрел, но вижу только локальное время, кстати тоже переводится без словаря :-)
Пойдет как пример для нужной функции, синтаксис одинаковый.



Страницы: 1 вся ветка

Текущий архив: 2005.03.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.036 c
1-1110033485
ПроНыРа
2005-03-05 17:38
2005.03.20
ToolBar


1-1110184861
atruhin
2005-03-07 11:41
2005.03.20
Редактор XML по XSD шаблону


3-1108493039
mefisto
2005-02-15 21:43
2005.03.20
Правильная инсталяция Oracle 8i (2)


14-1109635650
GanibalLector
2005-03-01 03:07
2005.03.20
Интересные книжки читают медики !!!


1-1109861170
Yuri Btr
2005-03-03 17:46
2005.03.20
не отображается русский шрифт