Problema con tiempo de expiracion

[MacStreet]

Hola, cuento con un problema con el tiempo de vencimiento de mi aplicacion por servidor.
Estoy usando este codigo, funciona perfectamente, pero he notado que en algunas computadoras su fecha es "25-11-2018" en la mia es "25/11/2018"
Lo cual yo programo para que mi aplicacion deje de funcionar hasta el dia "25/11/2018" pero en las otras computadoras que su fecha es "25-11-2018" , solo le sale un error y la aplicacion sigue funcionando, lo cual me perjudica, el codigo es este :
function Server(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;

if ExpiredDate( StrToDate('10/09/2017'), 'time.windows.com' ) then
begin
Application.Terminate();
end;

Y lo que hice hasta ahora fue esto, pero no funciono :
if ExpiredDate( StrToDate('25/11/2018'), 'time.windows.com' ) OR ExpiredDate( StrToDate('25-11-2018'), 'time.windows.com' ) then
begin
Application.Terminate();
end;
Porfavor quisiera que me den una pequeña ayuda en esto o ayudandome con ejemplos, gracias.

[luisgutierrezb]

Y si usas el encodedate o encodedate algo así...

[ecfisa]

Hola.

¿ Que hace la función ExpiredDate, lo mismo que la función Server ?

Si trataras las fechas como TDate no tendrías que tener problemas.

Pero, tratada como cadena supongo que en algun punto tenes en alguna variable el valor de la fecha de vencimiento. Por ejemplo:

...
var
Plazo : string;
begin
Plazo := '25-11-2018'; // (Aquí es donde obtendrás la fecha de algún lado...)

Plazo := StringReplace(Plazo, '-', '/', [rfReplaceAll]); // Ahora Plazo contiene : '25/11/2018'
...


Saludos :)

[mamcx]

La unica razon para convertir fechas a texto es para serializar (escribir en archivos), pasar a un componente visual, etc.

De resto, operar en fechas como texto es tan ilogico como hacer sumas con texto:

"1" + "2"

No tiene sentido, verdad? Igual fechas.

[MacStreet]

Tema solucionado, muchas gracias por ayudar Ecfisa :)