Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 639

•  TDictionary Custom Sort  6 643

•  Fast Watermark Sources  6 421

•  3D Designer  9 362

•  Sik Screen Capture  6 749

•  Patch Maker  7 138

•  Айболит (remote control)  7 149

•  ListBox Drag & Drop  6 006

•  Доска для игры Реверси  97 593

•  Графические эффекты  7 334

•  Рисование по маске  6 621

•  Перетаскивание изображений  5 491

•  Canvas Drawing  5 870

•  Рисование Луны  5 594

•  Поворот изображения  5 102

•  Рисование стержней  3 671

•  Paint on Shape  2 902

•  Генератор кроссвордов  3 800

•  Головоломка Paletto  3 052

•  Теорема Монжа об окружностях  3 860

•  Пазл Numbrix  2 544

•  Заборы и коммивояжеры  3 256

•  Игра HIP  2 226

•  Игра Go (Го)  2 160

•  Симулятор лифта  2 538

•  Программа укладки плитки  2 176

•  Генератор лабиринта  2 676

•  Проверка числового ввода  2 326

•  HEX View  2 660

•  Физический маятник  2 293
 
скрыть

Как преобразовать строку в дату


Функция StrToDate преобразует только числа, поэтому, если у Вас месяцы в виде имён, то прийдётся использовать VarToDateTime. 


var
  D1, D2, D3 : TDateTime;
begin
  D1 := VarToDateTime('December 6, 1969');
  D2 := VarToDateTime('6-Apr-1998');
  D3 := VarToDateTime('1998-Apr-6');
  ShowMessage(DateToStr(D1)+' '+DateToStr(D2)+' '+DateToStr(D3));
end;