Jump to content


Photo

Numero Por Extenso


  • Faça o login para participar
10 replies to this topic

#1 ciberspace

ciberspace

    12 Horas

  • Usuários
  • 146 posts
  • Sexo:Não informado

Posted 24/05/2006, 16:43

Olá

Tenho um projeto para fazer p/ faculdade.... e to apanhando no algoritimo....

O projeto consiste em dar um valor o "programa" escreve por extensão em C

por exemplo:

Entrada: R$25.958.845,00

Saída: vinte e cinco milhões novecentos e cinqüenta e oito mil oitocentos e quarenta e cinco reais.


Simularia um PREENCHIMENTO AUTOMÁTICO DE CHEQUE


alguem sabe como faço isso?!

Edição feita por: ciberspace, 25/05/2006, 10:47.


#2 MACUL

MACUL

    Doutor

  • Usuários
  • 770 posts
  • Sexo:Masculino
  • Localidade:SP

Posted 25/05/2006, 11:22

ai vai um pedaço para abrir o caminho está em VBScript
function extenso(num)

dim sizenum, strsinal, inteiro, cents, aux_array, aux, bilhar, milhao, milhar, centena, dezena
	dim strreal, strvirgula
	dim	strextenso
	if isnull(num) then num = ""
	num = Replace(num, ".", "")
	
	aux_array = split(num, ",")
	
	if num = "" then
		extenso = ""
		exit function
	end if
	'Response.Write "<br>cents = " & cents & "<br>"
	if UBound(aux_array) > 0 then
		inteiro = aux_array(0)
		cents = left(aux_array(1),2)
		if len(cents) = 1 then cents = cents & "0"	'205430,20 e 205430,2 ==> 08/11/2005
	else
		inteiro = aux_array(0)
		cents = "00"
	end if
end function

*************** M ** A ** C ** U ** L ***************

*************************************************

#3 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 15/09/2017, 04:33

Viagra Composizione online pharmacy Prix Cialis En Espagne
Viagra Tablet Price Real Finasteride
Cheap Antibiotics Amoxicillin buy cialis Microzide

#4 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 21/09/2017, 02:39

Cialis 5mg Forum cialis Dosage For Keflex Pulvules 500 Mg Cialis 20 Mg Prezzo In Farmacia Levitra Venta Libre Buy Generic Accutane Online Preisvergleich Cialis 20 Mg 12 cialis Zithromax Bronchitis Dosage
Acheter Du Viagra En Belgique online pharmacy Generika Fur Levitra
Legally Macrobid Discount Cheapeast Albuquerque Clarithromycin Omeprazole Amoxil
Levitra Generico Compra <a href=http://cialtobuy.com>cialis online</a> Generico Cialis Viagra
Fedex Pyridium Cod Low Price With Overnight Delivery cialis Zithromax Z Pak Online
Buy Cialis Soft Tabs Online
Priligy Official Site <a href=http://cialtobuy.com>cialis</a> Acquistare Viagra On Line E Reato

#5 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 21/09/2017, 04:53

Real Elocon In Internet Visa Accepted Next Day Delivery cialis Dexamethasone Over Counter
Clomid Pendant Grossesse Compra Cialis Generico En Espana
Cialis Viagra Cheap cialis Cialis Sur Ordonnance Pas Cher

#6 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 25/09/2017, 07:54

Lioresal Sans Ordonance Best Buy Provera cialis Priligy Etats Need Generic Dutasteride Drugs With Overnight Delivery New Hampshire

#7 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 02/10/2017, 19:03

Canadian Discount Drugs Tadalafil Ebay Cialis 20 Mg Original Precio viagra Cialis Original Precio Farmacia Secure Ordering Progesterone Amex Accepted Tablets Cheap Generic Cialis Australia
Levitra Effetti Collaterali Farmacia cialis Pilule De Propecia Pas Cher
Buy Amitriptyline 100mg Secure Zentel 400mg Cash Delivery viagra Amoxil Medication For Migraines Cialis En Precio Cialis Elevitra Professionale
Prednisone Buy Online No Prescription Cialis Free Clomid Mal Au Ventre viagra Penicillin Or Amoxicillin On Line Doctors Amoxicillin Causing Sickness

#8 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 11/10/2017, 23:46

Cialis Tadalafil Online Apotheke Discount For Plavix viagra Orlistat 60 For Sale
200 Mg Generic Viagra Pills Buy Diflucan No Prescription Fast Delivery Levitra 20 Mg Prospecto vardenafil tablets 60 mg Best Price For Cialis 5 Mg
Order Clonidine Online Overnight Cephalexin Tanning Finasteride En Ligne cheapest levitra 20mg Cialis Online Ricetta
Vente Propecia 1mg generic viagra Priligy En Farmacias Similares Zzpills Cialis Para Mujeres

#9 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 15/10/2017, 11:41

Achat Cialis Original En France Where To Buy Prednisilone Cialis Spermienqualitat cialis Kamagra Price Thailand Where To Buy Cialis
Discount Generic Viagra Canada viagra prescription Cheap Silagra 100 Mg Viagra Vendita Italia Kamagra Quick

#10 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 13/11/2017, 08:40

Buy Adderall In The Uk order levitra without a prescription Is Ceflaclor The Same As Amoxicillin On Line Hydrochlorothiazide What Drug Category Is Amoxicillin In
Cialis Compara Prezzi levitra wholesale no prescription Buying Antibiotics On The Internet Comprare Cialis Con Contrassegno Viagra Kaufen Schnelle Lieferung

#11 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 27/11/2017, 09:28

Canadian Pharmacy Norx Achat Kamagra Generique Cialis Vente France cialis Propecia Vom Markt Kamagra Versand Aus Deutschland




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq