Преобразовать дату вида Jan 23, 2024 9:33:52 AM

Функция ФорматДаты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С;
КонецФункции