Программистский шедевр на индусском форуме на тему "как узнать завтрашнюю дату" остался непревзойденным:
Code:

void get_tomorrow_date( struct timeval *date )
{
   sleep( 86400 ); // 60 * 60 * 24
   gettimeofday( date, 0 );
}

   if (var == true)
       return true;
   else if (var == false)
       return false;
   else
       return (!false && !true);

procedure TfNastr.FormCreate(Sender: TObject);
begin  try  if fDmNadz.takod_progr.Active=False then
fDmNadz.takod_progr.Active:=True;  except
 begin    ShowMessage(OnErrorMessage);    Close;   end;  end;
end;

procedure TfNastr.btnOdbClick(Sender: TObject);
var i,j:Integer;filNam,filNam1:String;F:TextFile;rrr:Boolean;
    NameOld,NameNew,Izm:String;
begin try i:=fdmNadz.taKod_ProgrKOL_INS.Value; fUdos.DBGrid_Udos.DataSource:=nil;
fUdos.DBGrid_UdosA.DataSource:=nil; fUdos.DBGrid_OUd.DataSource:=nil;
fUdos.DBGrid_OudA.DataSource:=nil;
fUdos.taUd_f.Active:=False; fUdos.taUd_Af.Active:=False;
fUdos.taUdos.Active:=False; fUdos.taUdos_A.Active:=False;
fUdos.taGur_Udos.Active:=False; fUdos.taOUdos.Active:=False;
fUdos.taOUdos_A.Active:=False;  if FileExists('c:\nadzor\ondz.gdb') then
begin   with  Qobl_del do
 begin    SQL.Clear;    SQL.Add('Delete From udos');
  ExecSQL;    SQL.Clear;
  SQL.Add('Delete From UDOS_A');
  ExecSQL;
  end;// with
end // if exis
 else
 begin
  ShowMessage('Создание БД области прекращено.Отсутствует файл ONDZ.GDB');
 Exit;
 // тут надо или завершить приложение или все восстановить сетки табл
 end; // not FileExist

// тут новый виток
begin
// ShowMessage('Начинаем переименованиие ');
 j:=1;
  NameNew:='c:\nadzor\ndz.gdb';
 //NameNew:='ndz.gdb';
// Добавим все записи
 while j<i+1 do
 begin
 Izm:=IntToStr(j);
 NameOld:='c:\nadzor\'+Izm+'ndz.gdb';
 if FileExists(NameOld) then
  begin
  // 3-  переименовать 1NDZ.GDB в NDZ.GDB
 if fdmNadz.DbNadzor.Connected then fdmNadz.DbNadzor.Close;
 fdmNadz.DbNadzor.Connected:=False;
   DeleteFile(NameNew);
  AssignFile(F,NameOld);
 Rename(F,NameNew);
 fdmNadz.DbNadzor.Connected:=True;
 fdmNadz.DbNadzor.Open;
         // SQL.Add('Insert INTO ": ODB: UDOS" select * from ": NADZOR: UDOS"');
      fUdos.Move_Ud.Execute;  // run the batchmove
      fUdos.Move_UdA.Execute;
      J:=J+1;
 end      // if
else  J:=J+1;
 end;// while
end;//
// новый 3 виток
begin
ShowMessage('Выполнено слияние '+IntToStr(j)+' - БД');
// восстановим табл
fUdos.taUd_f.Active:=True;
fUdos.taUd_Af.Active:=True;
fUdos.taGur_Udos.Active:=True;
fUdos.taUdos.Active:=True;
fUdos.taUdos_A.Active:=True;
fUdos.taOUdos.Active:=True;
fUdos.taOUdos_A.Active:=True;
// восстановим сетки
fUdos.DBGrid_Udos.DataSource:=fUdos.dsUdos;
fUdos.DBGrid_UdosA.DataSource:=fUdos.dsOUdos_A;
fUdos.DBGrid_OUd.DataSource:=fUdos.dsOUdos;
fUdos.DBGrid_OudA.DataSource:=fUdos.dsOUdos_A;
//fUdos.DBGrid_Gur.DataSource:=fUdos.dsGur_Udos;
end;
except
  MessageDlg('Ошибка!! при слиянии БД!',mtWarning,[mbOk],0);
end; // try
end; // вся процедура -конец

icq# 348-436-436 Играет silent

void set_tomorrow(  )
{
   sleep( 86400 ); // 60 * 60 * 24
}

S>

void get_yesterday_date(...)
{ 
gettimeofday( date, 0 );   
sleep( 86400 ); // 60 * 60 * 24
return...
}

А>a че? если ф-ция sleep() работает вне пространсвенно-временного континиума, то... это ж на каких компютерах работают индусы . уж не пришельцы ли они?

void get_tomorrow_date(struct timeval* date)
{
    sleep(86400);
    gettimeofday(date, 0);
    sleep(-86400);
}

RO>void get_tomorrow_date(struct timeval* date)
RO>{
RO>    sleep(86400);
RO>    gettimeofday(date, 0);
RO>    sleep(-86400);
RO>}
RO>

void get_tomorrow_date(struct timeval* date)
{
    paralelize(
    {   // first dimension              {   // second dimension                          {   // third dimension
        sleep(86400);                       gettimeofday(date, 0);                           sleep(-86400);
    }                                   }                                                }
    );
}

FS>>VOID Sleep(
FS>>  DWORD dwMilliseconds
FS>>);

ЕВ>так то лучше, а дата узнавалась, не завтрешняя, а только через 84,4 секунды

ЕВ>Вызов sleep( 86400 ); нужно проводить в цикле от 1 до 1000, тогда все будет нормально

        extern int              usleep(useconds_t);

        extern int              usleep(useconds_t);

int a(void) {
  sleep(1);
  return 0;
}
int b(void) {
  sleep(4);
  return 0;
}

Я изменил код таким образом, что вместо выполнения циклов функции a и b вызывают функцию библиотеки времени исполнения sleep для задержки работы на 1 и 4 секунды соответственно.