WIN API функции в Delphi

[Артур31]

Узнать текущие время и дату за Гринвичем с помощью функии GetLocalTime или GetSystemTime

[Mad_Cat]

var 
lt : TSYSTEMTIME; 
st : TSYSTEMTIME; 
S:string;
begin 
GetLocalTime(lt); 
GetSystemTime(st); 
s:='LocalTime = ' + IntToStr(lt.wmonth) + '/' + IntToStr(lt.wDay) ;
s:=s+ '/' + IntToStr(lt.wYear) + ' ' + IntToStr(lt.wHour) ;
s:=s+ ':' + IntToStr(lt.wMinute) + ':' + IntToStr(lt.wSecond)); 
Memo1.Lines.add(s);
s:='UTCTime = ' + IntToStr(st.wmonth) ;
s:=s+ '/' + IntToStr(st.wDay) + '/' + IntToStr(st.wYear) + ' ' + IntToStr(st.wHour) + ':' ;
s:=s+ IntToStr(st.wMinute) + ':' + IntToStr(st.wSecond)); 
Memo1.Lines.add(s);
end;

[Артур31]

спасибо!!!!