Гость
Войти | Профиль | Очистить
Действия ...
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Сумма прописью! / 25 сообщений из 43, страница 1 из 2
  1  все
20.09.2004, 17:24
    #32702918
Михаил Боровиокв
Михаил Боровиокв
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
Привет всем! Нужена про-га на c# умеюшая данную сумму "написать" прописью !!! Очень нужно

Спасибо, Михаил
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2004, 17:39
    #32702945
Alexey Kudinov
Alexey Kudinov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
Михаил БоровиоквПривет всем! Нужена про-га на c# умеюшая данную сумму "написать" прописью !!! Очень нужно

Спасибо, Михаил
Во вложении.
Классы особо не тестированы, но нареканий не было.
Вызывать например так :
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
 /// <summary> 
		 /// Сумма прописью для валюты  
		 /// </summary> 
		 /// <param name="p_decAmount">Сумма</param> 
		 /// <param name="p_enuCurrency">В какой валюте сумма</param> 
		 /// <param name="p_blnFirstLetterUppercase">С большой буквы ?</param> 
		 /// <returns>Сумма прописью</returns> 
		public static string AmountInWords(	decimal p_decAmount, 
											Money.enuSupportedCurrencies p_enuCurrency,
											bool p_blnFirstLetterUppercase)
		{
			string strAmountInWords=string.Empty;
			Money.Money oMoney=(Money.Money)(double)p_decAmount;
			
				switch (p_enuCurrency)
				{
					case Money.enuSupportedCurrencies.eiDollar:
					{
						strAmountInWords=oMoney.ToString(new Money.DollarToStringProvider(false,false,true));
						break;
					}
					case Money.enuSupportedCurrencies.eiEURO:
					{
						strAmountInWords=oMoney.ToString(new Money.EUROToStringProvider(false,false,true));
						break;
					}
					case Money.enuSupportedCurrencies.eiHryvna:
					{
						strAmountInWords=oMoney.ToString(new Money.HryvnaToStringProvider(false,false,true));
						break;
					}
					case Money.enuSupportedCurrencies.eiRoubles:
					{
						strAmountInWords=oMoney.ToString(new Money.RoubleToStringProvider(false,false,true));
						break;
					}
				}
				if (p_blnFirstLetterUppercase)
				{
					strAmountInWords=strAmountInWords.Substring(0,1).ToUpper() + strAmountInWords.Substring(1);
				}
			return strAmountInWords;
		}
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.09.2004, 12:47
    #32704070
Нерюх
Нерюх
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
В приложенном к журналу rsdn диске, или n1 или n2 за этот год, был пример такой функции.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.09.2004, 12:50
    #32704076
Михаил Боровиокв
Михаил Боровиокв
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
Большое спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.09.2004, 17:49
    #32704981
akalend
akalend
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
using System;

 /// <summary> 
 /// Класс отображения суммы прописью. 
 /// 3 варианта - рубли, доллары и просто для использования 
 /// других любых единиц (вагоны, мешки и т.п.) 
 /// -------------------------------------- 
 /// Автор - Глеб Уфимцев (dnkvpb@nm.ru) 
 /// </summary> 

public class NumByWords 
{
	public static string RurPhrase (decimal money)
	{ 
		return CurPhrase(money,"рубль","рубля","рублей","копейка","копейки","копеек");
	}

	public static string UsdPhrase (decimal money)
	{
		return CurPhrase(money,"доллар США","доллара США","долларов США","цент","цента","центов");
	}

	public static string NumPhrase (ulong Value, bool IsMale) 
	{
		if (Value==0UL) return "Ноль";
		string[] Dek1={""," од"," дв"," три"," четыре"," пять"," шесть"," семь"," восемь"," девять"," десять"," одиннадцать"," двенадцать"," тринадцать"," четырнадцать"," пятнадцать"," шестнадцать"," семнадцать"," восемнадцать"," девятнадцать"};
		string[] Dek2={"",""," двадцать"," тридцать"," сорок"," пятьдесят"," шестьдесят"," семьдесят"," восемьдесят"," девяносто"};
		string[] Dek3={""," сто"," двести"," триста"," четыреста"," пятьсот"," шестьсот"," семьсот"," восемьсот"," девятьсот"};
		string[] Th={"",""," тысяч"," миллион"," миллиард"," триллион"," квадрилион"," квинтилион"};
		string str="";
		for (byte th=1; Value>0; th++) 
		{
			ushort gr=(ushort)(Value%1000); 
			Value=(Value-gr)/1000;
			if (gr>0) 
			{
				byte d3=(byte)((gr-gr%100)/100);
				byte d1=(byte)(gr%10);
				byte d2=(byte)((gr-d3*100-d1)/10);
				if (d2==1) d1+=(byte)10;
				bool ismale=(th>2)||((th==1)&&IsMale);
				str=Dek3[d3]+Dek2[d2]+Dek1[d1]+EndDek1(d1,ismale)+Th[th]+EndTh(th,d1)+str;
			};
		};
		str=str.Substring(1,1).ToUpper()+str.Substring(2);
		return str;
	}

#region Private members
	private static string CurPhrase (decimal money, 
		string word1,string word234,string wordmore,
		string sword1,string sword234,string swordmore)
	{ 
		money=decimal.Round(money,2);
		decimal decintpart=decimal.Truncate(money);
		ulong intpart=decimal.ToUInt64(decintpart);
		string str=NumPhrase(intpart,true)+" ";
		byte endpart=(byte)(intpart%100UL); 
		if (endpart>19) endpart=(byte)(endpart%10);
		switch (endpart) 
		{
			case 1: str+=word1; break;
			case 2:
			case 3:
			case 4: str+=word234; break;
			default: str+=wordmore; break;
		}
		byte fracpart=decimal.ToByte((money-decintpart)*100M);
		str+=" "+((fracpart<10)?"0":"")+fracpart.ToString()+" ";
		if (fracpart>19) fracpart=(byte)(fracpart%10);
		switch (fracpart) 
		{
			case 1: str+=sword1; break;
			case 2:
			case 3:
			case 4: str+=sword234; break;
			default: str+=swordmore; break;
		};
		return str;
	}
	private static string EndTh(byte ThNum, byte Dek)
	{
		bool In234=((Dek>=2)&&(Dek<=4));
		bool More4=((Dek>4)||(Dek==0));
		if (((ThNum>2)&&In234)||((ThNum==2)&&(Dek==1))) return "а";
		else if ((ThNum>2)&&More4) return "ов";
		else if ((ThNum==2)&&In234) return "и";
		else return "";
	}
	private static string EndDek1(byte Dek, bool IsMale)
	{
		if ((Dek>2)||(Dek==0)) return "";
		else if (Dek==1) 
		{
			if (IsMale) return "ин";
			else return "на";
		}
		else 
		{
			if (IsMale) return "а"; 
			else return "е";
		}
	}
#endregion
}
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
20.02.2008, 16:18
    #35145009
Злой Кодер
Злой Кодер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
Пасиб, то что надо, автору респект за сэкономленное время
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2008, 19:35
    #35152688
гость0912121
гость0912121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
Вот еще один вариант с рекурсией, бывает нужно

string IntToSpell(int num)
{
string spell = string.Empty;
string hspell;
string hundred;
string thousand;
string tthousand;
string hthousand;
string million;

if (num < 10)
spell = trans9(num);
if ((num < 20) && (num > 10))
spell = trans19(num);
if (((num < 100) && (num > 19)) || (num == 10))
{
hspell = num.ToString().Substring(0, 1) + "0";
spell = trans99(System.Convert.ToInt32(hspell));
hspell = num.ToString().Substring(1, 1);
spell = spell + " " + IntToSpell(System.Convert.ToInt32(hspell));
}

if ((num < 1000) && (num > 100))
{
hspell = num.ToString().Substring(0, 1);
hundred = IntToSpell(System.Convert.ToInt32(hspell));
hspell = num.ToString().Substring(1, 2);
hundred = hundred + " hundred and " + IntToSpell(System.Convert.ToInt32(hspell));
spell = hundred;
}

if ((num < 10000) && (num > 1000))
{
hspell = num.ToString().Substring(0, 1);
thousand = IntToSpell(System.Convert.ToInt32(hspell));
hspell = num.ToString().Substring(1, 3);
thousand = thousand + " thousand " + IntToSpell(System.Convert.ToInt32(hspell));
spell = thousand;
}

if ((num < 100000) && (num > 10000))
{
hspell = num.ToString().Substring(0, 2);
tthousand = IntToSpell(System.Convert.ToInt32(hspell));
hspell = num.ToString().Substring(2, 3);
tthousand = tthousand + " thousand " + IntToSpell(System.Convert.ToInt32(hspell));
spell = tthousand;
}

if ((num < 1000000) && (num > 100000))
{
hspell = num.ToString().Substring(0, 3);
hthousand = IntToSpell(System.Convert.ToInt32(hspell));
hspell = num.ToString().Substring(3, 3);
hthousand = hthousand + " thousand and " + IntToSpell(System.Convert.ToInt32(hspell));
spell = hthousand;
}

if ((num < 10000000) && (num > 1000000))
{
hspell = num.ToString().Substring(0, 1);
million = IntToSpell(System.Convert.ToInt32(hspell));
hspell = num.ToString().Substring(1, 6);
million = million + " million and " + IntToSpell(System.Convert.ToInt32(hspell));
spell = million;
}

return spell;
}

string trans99(int num)
{
string spell = string.Empty;
switch (num)
{
case 10: spell = "ten"; break;
case 20: spell = "twenty"; break;
case 30: spell = "thirty"; break;
case 40: spell = "fourty"; break;
case 50: spell = "fifty"; break;
case 60: spell = "sixty"; break;
case 70: spell = "seventy"; break;
case 80: spell = "eighty"; break;
case 90: spell = "ninty"; break;
}
return spell;
}

string trans19(int num)
{
string spell = string.Empty;

switch (num)
{
case 11: spell = "eleven"; break;
case 12: spell = "twelve"; break;
case 13: spell = "thirteen"; break;
case 14: spell = "fourteen"; break;
case 15: spell = "fifteen"; break;
case 16: spell = "sixteen"; break;
case 17: spell = "seventeen"; break;
case 18: spell = "eighteen"; break;
case 19: spell = "nineteen"; break;
}
return spell;
}

string trans9(int num)
{
string spell = string.Empty;
switch (num)
{
case 1: spell = "one"; break;
case 2: spell = "two"; break;
case 3: spell = "three"; break;
case 4: spell = "four"; break;
case 5: spell = "five"; break;
case 6: spell = "six"; break;
case 7: spell = "seven"; break;
case 8: spell = "eight"; break;
case 9: spell = "nine"; break;
}
return spell;
}
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2008, 14:55
    #35153406
залетный Вася
залетный Вася
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
[quote] using r = ProCreditBank.Common.Classes.Root; [/quote]

ругается в этой строке, тут чего-то не хватает?

спс!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2008, 13:00
    #35585367
sheich
sheich
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
akalendКласс отображения суммы прописью.
Все классно. Но почему копейки оставляет цифрами?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2008, 13:10
    #35585417
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
sheich akalendКласс отображения суммы прописью.
Все классно. Но почему копейки оставляет цифрами?
В генераторе отчетов стимула есть очень гибкий класс, который представляет число во множество вариантов текста (с копейками и без в том числе) =)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2008, 13:11
    #35585420
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
я к тому, что их библиотеку подключить и заюзать можно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2008, 13:39
    #35585521
sheich
sheich
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
Compositumя к тому, что их библиотеку подключить и заюзать можно
а ну все, разобрался вроде.
там просто не обрабатывалась часть fracpart, писалась как есть.
если нужно ее тоже писать словами надо просто заменить строку:
Код: plaintext
1.
str += " " + ((fracpart < 10) ? "0" : "") + fracpart.ToString() + " ";
на
Код: plaintext
1.
str += " " + NumPhrase(fracpart, IsMale) + " ";
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2008, 13:41
    #35585528
Ex_Soft
Ex_Soft
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
sheich
Но почему копейки оставляет цифрами?

Необходимости - нЭт. Не знаю как сейчас, но раньше, по крайней мере у нас, согласно, 4 example, Инструкции № 7 копейки писались цифрами:

Зазначаються з великої букви сума розрахункового документа (реєстру, заяви про відкриття акредитива) та слово "гривень" ("гривня", "гривні" або "грн."), копійки - цифрами та слово "копійка" ("копійки", "копійок" або "коп."). Якщо сума складається лише з копійок, то перед її зазначенням обов'язковим є написання слів "Нуль гривень".
Якщо сума платежу виражена в цілих гривнях, то зазначається "00 копійок" або "00 коп.".

_________________
"Helo, word!" - 17 errors 56 warnings
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2008, 14:13
    #35585651
sheich
sheich
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
Короче, я в итоге сделал вот так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
	using System;

	public class NumByWords
		{

		public string RurPhrase(decimal money)
			{
			return CurPhrase(money, "рубль", "рубля", "рублей", true, "копейка", "копейки", "копеек", false);
			}

		public string UsdPhrase(decimal money)
			{
			return CurPhrase(money, "доллар США", "доллара США", "долларов США", true, "цент", "цента", "центов", true);
			}

		public string NumPhrase(ulong Value, bool IsMale)
			{
			if (Value == 0UL) return "Ноль";
			string[] Dek1 = { "", " од", " дв", " три", " четыре", " пять", " шесть", " семь", " восемь", " девять", " десять", " одиннадцать", " двенадцать", " тринадцать", " четырнадцать", " пятнадцать", " шестнадцать", " семнадцать", " восемнадцать", " девятнадцать" };
			string[] Dek2 = { "", "", " двадцать", " тридцать", " сорок", " пятьдесят", " шестьдесят", " семьдесят", " восемьдесят", " девяносто" };
			string[] Dek3 = { "", " сто", " двести", " триста", " четыреста", " пятьсот", " шестьсот", " семьсот", " восемьсот", " девятьсот" };
			string[] Th = { "", "", " тысяч", " миллион", " миллиард", " триллион", " квадрилион", " квинтилион" };
			string str = "";
			for (byte th = 1; Value > 0; th++)
				{
				ushort gr = (ushort)(Value % 1000);
				Value = (Value - gr) / 1000;
				if (gr > 0)
					{
					byte d3 = (byte)((gr - gr % 100) / 100);
					byte d1 = (byte)(gr % 10);
					byte d2 = (byte)((gr - d3 * 100 - d1) / 10);
					if (d2 == 1) d1 += (byte)10;
					bool ismale = (th > 2) || ((th == 1) && IsMale);
					str = Dek3[d3] + Dek2[d2] + Dek1[d1] + EndDek1(d1, ismale) + Th[th] + EndTh(th, d1) + str;
					};
				};
			str = str.Substring(1, 1).ToUpper() + str.Substring(2);
			return str;
			}

		private string CurPhrase
			(
			decimal money,
			string word1, string word234, string wordmore, bool IsMale,
			string sword1, string sword234, string swordmore, bool sIsMale
			)
			{
			money = decimal.Round(money, 2);
			decimal decintpart = decimal.Truncate(money);
			ulong intpart = decimal.ToUInt64(decintpart);
			string str = NumPhrase(intpart, IsMale) + " ";
			byte endpart = (byte)(intpart % 100UL);
			if (endpart > 19) endpart = (byte)(endpart % 10);
			byte fracpart = decimal.ToByte((money - decintpart) * 100M);
			str += "и " + ((fracpart < 10) ? "0" : "") + fracpart.ToString() + "/100 ";
			switch (endpart)
				{
				case 1: str += word1; break;
				case 2:
				case 3:
				case 4: str += word234; break;
				default: str += wordmore; break;
				}
			return str;
			}

		private static string EndTh(byte ThNum, byte Dek)
			{
			bool In234 = ((Dek >= 2) && (Dek <= 4));
			bool More4 = ((Dek > 4) || (Dek == 0));
			if (((ThNum > 2) && In234) || ((ThNum == 2) && (Dek == 1))) return "а";
			else if ((ThNum > 2) && More4) return "ов";
			else if ((ThNum == 2) && In234) return "и";
			else return "";
			}

		private static string EndDek1(byte Dek, bool IsMale)
			{
			if ((Dek > 2) || (Dek == 0)) return "";
			else if (Dek == 1)
				{
				if (IsMale) return "ин";
				else return "на";
				}
			else
				{
				if (IsMale) return "а";
				else return "е";
				}
			}

		}
пример:
4112111010102,09
Четыре триллиона сто двенадцать миллиардов сто одиннадцать миллионов десять тысяч сто два и 09/100 рубля
сейчас модно копейки писать ввиде дроби :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2008, 14:28
    #35585713
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
sheich
не мучайтесь



и это не полный список - весь не вместился на скрин. Юзайте то, что уже имеется, зачем изобретать велосипед?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2008, 19:03
    #35586585
Анатолий Иванов
Анатолий Иванов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
Compositumи это не полный список - весь не вместился на скрин. Юзайте то, что уже имеется, зачем изобретать велосипед?
Ну прям агент Стимулсофта. :-)))
Может человеку и не нужен Стимул совсем - зачем навязываешь библиотеку, входящую в состав платного отчетника?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2008, 19:14
    #35586604
Изопропил
Изопропил
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
http://www.google.ru/search?q=%D1%81%D1%83%D0%BC%D0%BC%D0%B0+%D0%BF%D1%80%D0%BE%D0%BF%D0%B8%D1%81%D1%8C%D1%8E+c%23&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:en-US:official&client=firefox-a
Пилите Шура, пилите, они золотые.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2008, 19:52
    #35586663
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
Анатолий Иванов
Ну прям агент Стимулсофта. :-)))
Может человеку и не нужен Стимул совсем - зачем навязываешь библиотеку, входящую в состав платного отчетника?
Толя, dll-файл, содержащий данный код можно бесплатно взять из демо-версии стимула и спокойно юзать. И коим же боком сие относится к рекламе стимула? ;) Если бы я знал о возможности заюзывания подобной библиотеки через демо-версию FR.NET - я бы написал и об этом варианте. Но я его не знаю, да и не искал в виду наличия уже имеющейся альтернативы. Если пороешься в недрах FR.NET - наверняка (как мне кажется) найдешь что-то подобное тому, что я показал в стимуле, просто я этого не делал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2008, 21:39
    #35586780
Анатолий Иванов
Анатолий Иванов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
CompositumТоля, dll-файл, содержащий данный код можно бесплатно взять из демо-версии стимула и спокойно юзать. И коим же боком сие относится к рекламе стимула? ;) Если бы я знал о возможности заюзывания подобной библиотеки через демо-версию FR.NET - я бы написал и об этом варианте. Но я его не знаю, да и не искал в виду наличия уже имеющейся альтернативы. Если пороешься в недрах FR.NET - наверняка (как мне кажется) найдешь что-то подобное тому, что я показал в стимуле, просто я этого не делал
Про рекламу: смайлики замечаем али как? ;-) И кстати, тема про новую версию Стимула со здоровенным скриншотом - это ли не реклама?
Бесплатно взять и юзать - разные вещи. У них где-то написано, что этой библиотекой можно пользоваться отдельно и сколько угодно не платя?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2009, 00:00
    #35889741
chaban
chaban
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
Михаил БоровиоквПривет всем! Нужена про-га на c# умеюшая данную сумму "написать" прописью !!! Очень нужно

Спасибо, Михаил
Доброго времени суток!
Кто нибудь добавлял функцию сумму прописью в FastReport4.7 на Delphi 2009?
плз поправте в коде что не так!

****
pas см. в вложении
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2009, 11:12
    #35890265
IApple
IApple
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
akalend
Код: plaintext
1.
2.
3.
4.
5.
using System;
/// Класс отображения суммы прописью.
/// 3 варианта - рубли, доллары и просто для использования
/// других любых единиц (вагоны, мешки и т.п.)
/// Автор - Глеб Уфимцев (dnkvpb@nm.ru)


"Любых" - это неправда, к примеру песо или яйцо, которые среднего рода, как прописаать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2009, 14:40
    #35890899
МСУ
МСУ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
CompositumЮзайте то, что уже имеется, зачем изобретать велосипед?

Андрюша, у меня к Вам просьба. Было бы здорово для всех, если бы Вы распотрошили сборку стимула и выковырили из нее нужные блоки для генерации суммы прописью. И оформили бы отдельным классом. Если не затруднит - под все имеющиеся культуры.

Заранее, респект за работу. )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2009, 14:49
    #35890930
Копилефтер
Копилефтер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
МСУ,

подстрекаете Андрея к нарушению закона о защите авторских прав?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2009, 15:00
    #35890992
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
МСУCompositumЮзайте то, что уже имеется, зачем изобретать велосипед?

Андрюша, у меня к Вам просьба. Было бы здорово для всех, если бы Вы распотрошили сборку стимула и выковырили из нее нужные блоки для генерации суммы прописью. И оформили бы отдельным классом. Если не затруднит - под все имеющиеся культуры.

Заранее, респект за работу. )
Это было бы очень не красиво с моей стороны, особенно учитывая тот факт, что некоторое время назад разработчики подарили мне пожизненную лицензию (за что я им весьма признателен).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2009, 20:38
    #35892043
МСУ
МСУ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма прописью!
Хорошо, Андрюша, перекрутим наоборот. Вы тинонечко пишите класс, когда всё буит готово, отдаете его мне, я его тестирую и выкладываю на форум.
Минусы - Вы не поднимаете карму на форуме, её поднимаю я :)
Плюсы - Вы чисты перед стимуловцами :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Сумма прописью! / 25 сообщений из 43, страница 1 из 2
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 175ms
Закрыть
start [/forum/topic.php?fid=20&mobile=1&tid=1400106]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 48ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 64ms
get tp. blocked users:
 2ms
others: 13ms
total:  175ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]