Datetostr в Windows 10 выводит день недели

Posted by obzor under Delphi

Есть программа и пользователи Windows 10 (не все, зависимости пока не нашел) сталкиваются с множественными ошибками в работе этой программы. Опытным путем выяснилось, что при инструкции записи в базу данных и даже просто отображения текущий даты с помощью «DateToStr(now)» результат получается не совсем ожидаемым. А именно, к примеру: «Пт 12.01.00». Соответственно, при попытке обратного преобразования «StrToDate» возникает ошибка: «Пт 12.01.00 is not a valid date».

Может, кто сталкивался с подобным и знает как можно с этим бороться? Не хотелось бы пилить костыль преобразования строки в нужную дату путем удаления лишних «Пт «, «Чт » и так далее.

northener

Не надо записывать ни в какую базу дату в строковом формате! От слова совсем.

Аватар

Вот именно ) А DateToStr при преобразовании использует ShortDateFormat. Туда настройки из винды попадают. Возможно программа их уже и изменила. Можно FormatDateTime использовать, там самому можно формат задать.

IliaIT

Во-первых, надо определить что тебе надо от датытайма. Реши какой формат тебе удобнее и используй только его. при необходимости меняй на выгрузку.
например удобнее тебе «2018-11-16 08:00:00» так и запиши в переменную во все места.

d_par:TFormatSettings;

      d_par.DateSeparator:='-';
      d_par.TimeSeparator:=':';
      d_par.ShortDateFormat:='yyyy-mm-dd';
      d_par.LongDateFormat:='yyyy-mm-dd';
      d_par.ShortTimeFormat:='hh:MM:ss';
      d_par.LongTimeFormat:='hh:MM:ss';
      d_par.DecimalSeparator:='.';

//используй

S1:=DateToStr(now,d_par);
//и обратно
StrToDate(S1,d_par);

про остальное читай справку по дельфи. главное тут маленькие «m» это месяц, большие «M» это часы.

а есть ещё такая фигня как

FormatDateTime('dd.mm.yyyy hh:nn:ss', Now);

где «n» это часы.

тема на форуме

Случайные статьи

• Как программно отправить CTRL+V?
• Средства тестирования для С++
• Свой компилятор (С++’о подобный)
• Как сделать в DNS CNAME редирект на группу вконтакте
• Сравнение языков по скорости
• Как сделать чтобы TEdit стал браузерной строкой TWebBrowser?
• Рассылка. Выпуск 221
• Эпсилон — это не то, что о нем думают
• Windows Driver Framework — подпись драйвера
• Присвоить уникальное значение (макрос в Microsoft Office Excel)