BotMan4

Функция ФорматДаты1С( Знач ДатаКассы ) Экспорт
   
   МесяцДаты = Новый Соответствие();
   МесяцДаты.Вставить("Jan","01");
   МесяцДаты.Вставить("Feb","02");
   МесяцДаты.Вставить("Mar","03");
   МесяцДаты.Вставить("Apr","04");
   МесяцДаты.Вставить("May","05");
   МесяцДаты.Вставить("Jun","06");
   МесяцДаты.Вставить("Jul","07");
   МесяцДаты.Вставить("Aug","08");
   МесяцДаты.Вставить("Sep","09");
   МесяцДаты.Вставить("Oct","10");
   МесяцДаты.Вставить("Nov","11");
   МесяцДаты.Вставить("Dec","12");
   
   ДатаКассы = СтрЗаменить(ДатаКассы , ",", "");
   
   МассивСтрок = СтрРазделить(ДатаКассы , " ");
   
   Месяц = МесяцДаты.Получить(МассивСтрок[0]);
   День  = Формат(МассивСтрок[1], "ЧЦ=2; ЧВН=");
   Год   = МассивСтрок[2];
   Время = МассивСтрок[3];
   АМПМ  = ?(МассивСтрок[4]="PM", 12, 0);
   
   ЧасыМинусыСекунды = СтрРазделить(Время, ":");
   Часы = Число(ЧасыМинусыСекунды[0]);
   
   Если Часы <> 12 Тогда
      ЧасыМинусыСекунды[0] = Часы + АМПМ;
   КонецЕсли;
   
   Дата1С = Дата(""+День+"."+Месяц+"."+Год+" " + ЧасыМинусыСекунды[0] + ":"+ЧасыМинусыСекунды[1]+":"+ЧасыМинусыСекунды[2]+"");
   
   Возврат Дата1С;
КонецФункции