Data do Setup

03/02/2003

2

Alguém sabe como capturar a Data do Setup?


Responder

Posts

03/02/2003

Db

funtion ObtemDataLocal: TDateTime;
var SystemTime: TSystemTime;
ano, mes, dia, hora, min, seg, mseg: word;
begin
GetLocalTime( SystemTime );
with SystemTime do
begin
ano := wYear;
mes := wMonth;
dia := wDay;
hora := wHour;
min := wMinute;
seg := wSecond;
mseg := wMilliseconds;
end;
Result := EncodeDateTime( ano, mes, dia, hora, min, seg, mseg );
end;


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar