Code:

procedure TForm1.Button4Click(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;

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить