Нужно получить разницу между датами 31.12.2009 и 10.01.2005 и отобразить ее как: 4 года 11 месяцев 21 день

Код 1C v 8.х

 Процедура ТЕСТ_ВыполнитьНажатие(Кнопка)

	ДатаНач = Дата(2009, 12, 31);

	ДатаКон = Дата(2005, 1, 10); 

	Лет=0; Мес=0; Дн=0;	

	РазобратьРазностьДат(ДатаНач, ДатаКон, Лет, Мес, Дн);

	ЛетС = ФормаМножественногоЧисла("год","года","лет",Лет);	

	МесС = ФормаМножественногоЧисла("месяц","месяца","месяцев",Мес);

	ДнС = ФормаМножественногоЧисла("день","дня","дней",Дн);

	Сообщить(?(Лет>0,Строка(Лет)+" "+ЛетС,"")+" "+?(Мес>0,Строка(Мес)+" "+МесС,"")+" "+Строка(дн)+" "+ДнС);

	// Результат будет : 4 года 11 месяцев 21 день



КонецПроцедуры



// Получить разность дат

Процедура РазобратьРазностьДат(Дата1, Дата2, Лет = 0, Месяцев = 0, Дней = 0)	

	Лет		= 0;

	Месяцев	= 0;

	Дней	= 0;

	Если Дата1 > Дата2 Тогда

		

		ВременнаяДата = Дата1;

		Если День(ВременнаяДата) < День(Дата2) Тогда

			Дней = (ВременнаяДата - ДобавитьМесяц(ВременнаяДата,-1))/86400;

			ВременнаяДата = ДобавитьМесяц(ВременнаяДата,-1);

		КонецЕсли;

		Если Месяц(ВременнаяДата) < Месяц(Дата2) Тогда

			ВременнаяДата = ДобавитьМесяц(ВременнаяДата,-12);

			Месяцев = 12;

		КонецЕсли;

		Лет		= Макс(			 Год(ВременнаяДата)		- Год(Дата2),	0);

		Месяцев	= Макс(Месяцев	+ Месяц(ВременнаяДата)	- Месяц(Дата2),	0);

		Дней	= Макс(Дней		+ День(ВременнаяДата)	- День(Дата2),	0);

		

		// скорректируем отображаемое значение, если ""вмешалось"" разное количество дней в месяцах

		Если Дата2 <> (ДобавитьМесяц(Дата1,-Лет * 12-Месяцев)-Дней * 86400) Тогда

			Дней = Дней + (День(КонецМесяца(Дата2)) - День(НачалоМесяца(Дата2))) - (День(КонецМесяца(ДобавитьМесяц(Дата1,-1))) - День(НачалоМесяца(ДобавитьМесяц(Дата1,-1))));

		КонецЕсли;

		

	КонецЕсли;

КонецПроцедуры

// Сформировать множественное число

Функция ФормаМножественногоЧисла(Слово1, Слово2, Слово3, Знач ЦелоеЧисло) 

	

	// Изменим знак целого числа, иначе отрицательные числа будут неправильно преобразовываться

	Если ЦелоеЧисло < 0 Тогда

		ЦелоеЧисло = -1 * ЦелоеЧисло;

	КонецЕсли;

	

	Если ЦелоеЧисло <> Цел(ЦелоеЧисло) Тогда 

		// для нецелых чисел - всегда вторая форма

		Возврат Слово2;

	КонецЕсли;

	

	// остаток

	Остаток = ЦелоеЧисло%10;

	Если (ЦелоеЧисло >10) И (ЦелоеЧисло<20) Тогда

		// для второго десятка - всегда третья форма

		Возврат Слово3;

	ИначеЕсли Остаток=1 Тогда

		Возврат Слово1;

	ИначеЕсли (Остаток>1) И (Остаток<5) Тогда

		Возврат Слово2;

	Иначе

		Возврат Слово3;

	КонецЕсли;



КонецФункции    

Код 1C v 8.х

 

// Пример форматной строки для вывода числа прописью на русском

// языке, с выводом целой и дробной части прописью и выводом

// предмета исчисления.

ФормСтрока = "Л = ru_RU; ДП = Истина";

ПарПредмета="доллар,доллара,долларов,м,цент,цента,центов,м,2";

ПрописьЧисла = ЧислоПрописью(2341.56, ФормСтрока, ПарПредмета);

// Результат вычисления: "Две тысячи триста сорок один доллар пятьдесят шесть центов"   

   

ЧислоПрописью(Число, Форматная строка, Параметры предмета исчисления)

Число - Число, которое необходимо преобразовать в строку прописью.

Форматная строка представляет собой строковое значение, включающее параметры форматирования. Параметры форматирования перечисляются через символ ";" (точка с запятой). Если параметр не указывается, используется значение параметра по умолчанию.
Каждый параметр задается именем параметра, символом "=" (равно) и значением параметра. Значение параметра может указываться в одинарных или двойных кавычках. Это необходимо, если значение параметра содержит символы, используемые в синтаксисе форматной строки.
Л (L) - Код локализации. По умолчанию используется код локализации, установленный в операционной системе. Примеры кодов локализации: ru_RU - Русский (Россия); en_US - Английский (США).
НП (SN) - Включать/не включать название предмета исчисления (Булево), по умолчанию - Истина.
НД (FN) - Включать/не включать название десятичных частей предмета исчисления (Булево), по умолчанию - Истина.
ДП (FS) - Дробную часть выводить прописью/числом (Булево), по умолчанию - Ложь.

Параметры предмета исчисления - Представляет собой строковое значение, определяющее параметры предмета исчисления. Параметры предмета исчисления перечисляются через "," (запятая). Формат строки зависит от кода локализации.
Для русского и белорусского языков (ru_RU, be_BY)
"рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2", где:
"рубль, рубля, рублей, м" – предмет исчисления:
рубль – единственное число именительный падеж,
рубля – единственное число родительный падеж,
рублей – множественное число родительный падеж,
м – мужской род (ж – женский род, с - средний род);
"копейка, копейки, копеек, ж" – дробная часть, аналогично предмету исчисления (может отсутствовать);
"2" – количество разрядов дробной части (может отсутствовать, по умолчанию равно 2).
Для украинского языка (uk_UA)
"гривна, гривны, гривен, м, копейка, копейки, копеек, ж, 2", где:
"гривна, гривны, гривен, м" – предмет исчисления:
"гривна – единственное число именительный падеж,
гривны – единственное число родительный падеж,
гривен – множественное число родительный падеж,
м – мужской род (ж – женский род, с - средний род);
"копейка, копейки, копеек, ж" – дробная часть, аналогично предмету исчисления (может отсутствовать);
"2" – количество разрядов дробной части (может отсутствовать, по умолчанию равно 2).
Для польского языка (pl_PL)
z?oty, z?ote, z?otych, m, grosz, grosze, groszy, m, 2
где:
"z?oty, z?ote, z?otych, m " - предмет исчисления (m - мужской род, ? - женский род, ? - средний род, mo – личностный мужской род)
z?oty - единственное число именительный падеж
z?ote - единственное число винительный падеж
z?otych - множественное число винительный падеж
m - мужской род (? - женский род, ? - средний род, mo – личностный мужской род)
"grosz, grosze, groszy, m " - дробная часть (может отсутствовать) (аналогично целой части)
2 - количество разрядов дробной части (может отсутствовать, по-умолчанию равно 2)

Код 1C v 8.х

 

Пропись = ЧислоПрописью(1832, “L=pl_PL;SN=true;FN=true;FS=true”, “z?oty, z?ote, z?otych, m, grosz, grosze, groszy, m, 2”);

   

Для английского, финского и казахского языков (en_US, fi_FI, kk_KZ)
"dollar, dollars, cent, cents, 2", где:
"dollar, dollars" – предмет исчисления в единственном и множественном числе;
"cent, cents" – дробная часть в единственном и множественном числе (может отсутствовать);
"2" – количество разрядов дробной части (может отсутствовать, по умолчанию равно 2).
Для немецкого языка (de_DE)
"EURO, EURO, М, Cent, Cent, M, 2", где:
"EURO, EURO, М" – предмет исчисления:
EURO, EURO – предмет исчисления в единственном и множественном числе;
М – мужской род (F – женский род, N - средний род);
"Cent, Cent, M" – дробная часть, аналогично предмету исчисления (может отсутствовать);
"2" – количество разрядов дробной части (может отсутствовать, по умолчанию равно 2).

Примеры:

Код 1C v 8.х

 x = ЧислоПрописью(123456.78,"ДП=Истина" ,"тонна, тонны, тонн, ж, кг., кг., кг., м,3" );

//x = "Сто двадцать три тысячи четыреста пятьдесят шесть тонн семьсот восемьдесят кг."



x = ЧислоПрописью(123456.78, ,",,,,,,,,0" );

//x = "Сто двадцать три тысячи четыреста пятьдесят семь "



x = ЧислоПрописью(123456.78, ,",,,,,,,,2" );

//x = "Сто двадцать три тысячи четыреста пятьдесят шесть 78 "



x = ЧислоПрописью(123456.78,"Л=ru_RU; ДП=Ложь","рубль, рубля, рублей, м, копейка, копейки, копеек, ж" );

//x = "Сто двадцать три тысячи четыреста пятьдесят шесть рублей 78 копеек"



x = ЧислоПрописью(123456.78, "Л = ru_RU; ДП = Истина", "доллар,доллара,долларов,м,цент,цента,центов,м,2" );

//x = "Сто двадцать три тысячи четыреста пятьдесят шесть долларов семьдесят восемь центов"



ЧислоПрописью(1457.25,"L=en_US","dollar, dollars, cent, cents, 2"); 

// One thousand four hundreds fifty seven dollars 25 cents.