Ayuda con Saber si una fecha es menor a la fecha del Servidor

[microbiano]

bien resulta que quiero comparar la fecha que tengo registrada en el sistema conla fecha del servidor, y si es menor entonces modifique una columna de pago tardio, pero no logro ahcer que funcione. lo hago de la isguiente manera.

obtengo la fecha del Servidor asi.

WFechaServidor:TDate;

Código Delphi [-]
procedure TFmodulo.FechaServidor;
var I:Integer;
begin
 with Fmodulo.QryTemp do
  begin
   close;
   sql.Clear;
   SQL.Add('SELECT CONVERT(VARCHAR(10), GETDATE(), 103) AS [Fecha]');
   try
    Open;
    if (not Eof) then
     begin
      wfechaservidor:=StrToDate(FieldByname('Fecha').AsString);//aqui pongo la fecha del servidor
      DecodeDate(Wfechaservidor,anio,Mes,Dia);
      if Anio<>0 then
       begin
        wanioString:=IntToStr(Anio);
       end;
     end;
   except
    on E:EOleException do
     begin
       MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
     end;      
   end;
  end;
end;

y entonces despues genero 12 recibos en un modulo de cuentas por cobrar y para poder modificar la situacion de cada recibo lo hago de la siguiente manera.

Código Delphi [-]
function tfrmrecibos.CargaMeses(IdContrato:string):string;
var wStatus:string;
    WfechaRegistro:TDate;
begin
 with fmodulo.QryTemp do
  begin
   Close;
   sql.Clear;
   sql.Add('select * from sap_prerecibos');
   sql.Add('where nocontrato=:Pnocontrato and fechaPago is null');
   Parameters.ParamByName('Pnocontrato').Value:=Idcontrato;
   try
    Open;
    while (not Eof) do
    begin
     cbb_1.Items.Add(FieldByname('concepto').AsString);
     WfechaRegistro:=(FieldByName('fechafinpago').AsDateTime);
     if Trunc(WfechaRegistro) < trunc(Fmodulo.WFechaServidor) then //aqui es donde hago la validacion pero no funciona me cambia la columna de todos los registros aqui valida la fecha de fin de pago que son 12 recibos de enero a diciembre y fechafin de pago es el 30 de cada mes
      wStatus:='S';
      begin
       with Fmodulo. QryTemporal do
        begin
         SQL.Clear;
         SQL.Add('update sap_prerecibos set interes=status');
         SQL.Add('where nocontrato=contrato and FechaPago is null');
         Parameters.ParamByName('Pcontrato').Value:=Idcontrato;
         Parameters.ParamByName('Pstatus').Value:=Trim(wStatus);
         ExecSQL;
        end;
      end;
     Next;
    end;
    
   except
    on e:eoleException do
     begin

     end;  
   end;
  end;   
end;

alguna sugerencia? de antemano muchas gracias

[Casimiro Notevi]

Si usas firebird, puedes extraer la fecha directamente desde la base de datos:

Código SQL [-]
select CURRENT_DATE from RDB$DATABASE

Sólo la fecha: CURRENT_DATE
Sólo la hora: CURRENT_TIME
Fecha y hora: CURRENT_TIMESTAMP

Supongo que en otras bases de datos tendrás posibilidad de hacer algo parecido.

[microbiano]

hola amigo casimiro la verdad ya intente y lo unico que encuentro es la funcion

Código SQL [-]
SELECT GETDATE() AS 'Fecha'

pero sigue sin funcionar alguna tra sugerencia?
por cierto la base de datos es Sql Server 2000

[ecfisa]

Hola microbiano.

No uso SQL Server, pero revisá si te sirve este enlace: Date and Time Conversions Using SQL Server , al final de la página hay algunos ejemplos y comentarios.

Saludos.