Недавно добавленные исходники
• Animation Loaders 734 • DeLiKaTeS Tetris (Тетрис) 5 723 • TDictionary Custom Sort 7 683 • Fast Watermark Sources 7 365 • 3D Designer 10 580 • Sik Screen Capture 7 893 • Patch Maker 8 119 • Айболит (remote control) 8 175 • ListBox Drag & Drop 6 969 • Доска для игры Реверси 100 236 • Графические эффекты 8 247 • Рисование по маске 7 630 • Перетаскивание изображений 6 230 • Canvas Drawing 6 597 • Рисование Луны 6 527 • Поворот изображения 5 692 • Рисование стержней 4 620 • Paint on Shape 3 327 • Генератор кроссвордов 4 303 • Головоломка Paletto 3 450 • Теорема Монжа об окружностях 4 267 • Пазл Numbrix 2 763 • Заборы и коммивояжеры 3 673 • Игра HIP 2 481 • Игра Go (Го) 2 466 • Симулятор лифта 2 868 • Программа укладки плитки 2 303 • Генератор лабиринта 3 031 • Проверка числового ввода 2 529 • HEX View 2 940

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

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

Функция 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;