with DM.qyTemp0 do begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT DATEPART(YEAR,  GETDATE()) AS Year, ');
    SQL.Add('       DATEPART(MONTH, GETDATE()) AS Month, ');
    SQL.Add('       DATEPART(DAY,   GETDATE()) AS Day ');
    Open;
  end;
  Today := RightStr('00' + IntToStr(DM.qyTemp0.FieldByName('Year').AsInteger - 1911), 2) + '-' +
           RightStr('00' + IntToStr(DM.qyTemp0.FieldByName('Month').AsInteger), 2) + '-' +
           RightStr('00' + IntToStr(DM.qyTemp0.FieldByName('Day').AsInteger), 2);