Problema con datetime

[MacStreet]

Empezado por ecfisa

Hola.

Código Delphi [-]
...
implementation

uses IdSNTP;

function iNetDateTime(const aHost: string) : TDateTime;
var
  idSNTP: TIdSNTP;
begin
  idSNTP:= TIdSNTP.Create(nil);
  try
    idSNTP.Host := aHost;
    Result := idSNTP.DateTime;
  finally
    idSNTP.Free;
  end;
end;
...

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  dt: TDateTime;
begin
  try
    dt := iNetDateTime('time.windows.com');
    ShowMessage( DateToStr(dt) );
  except // manejar el problema...
    ShowMessage('Error obteniendo la fecha');
  end;
end;

En el siguiente enlace tenes una lista con servidores horarios:

Saludos

No me funciona osea si obtiene la fecha y todo, pero lo que yo quiero hacer es que mi aplicacion al detectar el dia "10/09/2017" se cierre .
espero que me entiendas :/

[Casimiro Noteví]

Empezado por MacStreet

espero que me entiendas :/

http://www.clubdelphi.com/foros/guiaestilo.php

[mamcx]

Esa fecha la pones TU o el USUARIO?

Porque si la pones TU, estas auto-infligiendote el problema. Es muy simple: Utiliza formatos no ambiguos, y se EXPLICITO en como serializas y deserializas la informacion.

En el caso de las fechas, se usa el formato ISO. Y cuando lees DEBES ESPECIFICAR EN QUE FORMATO!

Tipo:

Código Delphi [-]
LeerFecha('2001-01-01T01:05:01', FormatoISO)

[ecfisa]

Hola.

Empezado por MacStreet

No me funciona osea si obtiene la fecha y todo, pero lo que yo quiero hacer es que mi aplicacion al detectar el dia "10/09/2017" se cierre .
espero que me entiendas :/

Ah, pero yo había entendido que el problema era que no querías tomar la hora del sistema por que la podian cambiar y no que ignorabas como comparar las dos fechas.

En ese caso:

Código Delphi [-]
uses IdSNTP;

function ExpiredDate(const vto: TDateTime; const aHost: string): Boolean;
var
  idSNTP: TIdSNTP;
  dt: TDateTime;
begin
  idSNTP:= TIdSNTP.Create(nil);
  try
    idSNTP.Host := aHost;
    dt := idSNTP.DateTime;
  finally
    idSNTP.Free;
  end;
  Result := dt >= vto;
end;

Ejemplo de uso:

Código Delphi [-]
...
begin
  if ExpiredDate( StrToDate('10/09/2017'), 'time.windows.com' ) then
    Application.Terminate
  else
    ShowMessage('Todo ok');
  ...

Saludos