Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Schimbare destinatie imobil din l...

Recomandare brand cheie dinamomet...

Divorț la notar

Vechime vs km reali
 Android 12 : "Yahoo Mail s-a ...

Bloc Favorit cu RS2

Ce extractor audio (analogic) pen...

Cine suporta cheltuielile de jude...
 Apartament Grecia - Kavala

obtinere venituri PFA / PFI in ti...

Recomandare Volvo

Diferenta suprafata teren
 Plafonare preturi energie

Vanzari foto - CIPA 2023

Recomandare perdele sau draperii ...

Invertor Victron Easysolar-II 48/...
 

Transformare Numere In Litere

- - - - -
  • Please log in to reply
56 replies to this topic

#19
michaelady

michaelady

    Member

  • Grup: Members
  • Posts: 321
  • Înscris: 03.09.2004

stargate, on Oct 11 2004, 15:04, said:

Aparent m-am inselat amarnic.  :rolleyes:

<{POST_SNAPBACK}>



de-asta am facut topicul, pentru ca am si eu o varianta de program dar are cateva(sau mai multe) scapari. am fost nevoit in fox si nu prea sunt "expert", sau chiar deloc.

#20
michaelady

michaelady

    Member

  • Grup: Members
  • Posts: 321
  • Înscris: 03.09.2004
vreau sa va multumesc la toti dar in special lui kml. este exact ce-mi trebuia.
u're great!

#21
adi_tuhut

adi_tuhut

    Junior Member

  • Grup: Members
  • Posts: 52
  • Înscris: 25.08.2004
uite si o varianta Visual BASIC
Function numar(s As String, z As Integer)
Select Case z
Case 1:
Select Case s
 Case 1: numar = "o "
 Case 2: numar = "doua "
 Case 3: numar = "trei "
 Case 4: numar = "patru "
 Case 5: numar = "cinci "
 Case 6: numar = "sase "
 Case 7: numar = "sapte "
 Case 8: numar = "opt "
 Case 9: numar = "noua "
End Select
Case 2:
 Select Case s
 Case 1: numar = "zece"
 Case 2: numar = "doua"
 Case 3: numar = "trei"
 Case 4: numar = "patru"
 Case 5: numar = "cinci"
 Case 6: numar = "sai"
 Case 7: numar = "sapte"
 Case 8: numar = "opt"
 Case 9: numar = "noua"
End Select
Case 3:
 Select Case s
 Case 1: numar = "unu "
 Case 2: numar = "doi "
 Case 3: numar = "trei "
 Case 4: numar = "patru "
 Case 5: numar = "cinci "
 Case 6: numar = "sase "
 Case 7: numar = "sapte "
 Case 8: numar = "opt "
 Case 9: numar = "noua "
 End Select
Case 4:
 Select Case s
 Case 1: numar = "un"
 Case 2: numar = "doi"
 Case 3: numar = "trei"
 Case 4: numar = "pai"
 Case 5: numar = "cinci"
 Case 6: numar = "sai"
 Case 7: numar = "sapte"
 Case 8: numar = "opt"
 Case 9: numar = "noua"
 End Select
End Select
End Function



Private Sub transf(nr as String)
' Text31.SetFocus
Dim sute As String, zeci As String, uni As String, un(1 To 8) As String
 un(1) = "miliard "
 un(2) = "miliarde "
 un(3) = "milion "
 un(4) = "milioane "
 un(5) = "mie "
 un(6) = "mii "
 un(7) = ""
 un(8) = ""
 sir = ""
 s = "1"
 num = 4
 While s <> ""
  s = Right(nr, 3)
  nr = Left(nr, IIf(Len(nr) - 3 > 0, Len(nr) - 3, 0))
  ss = ""
  If s <> "" Then
   Select Case Len(s)
    Case 3:
      sute = Mid(s, 1, 1)
      zeci = Mid(s, 2, 1)
      uni = Mid(s, 3, 1)
      ss = numar(sute, 1) + IIf(sute = 1, "suta ", IIf(sute > 1, "sute ", ""))
      If zeci = 1 And uni <> 0 Then
       ss = ss + numar(uni, 4) + "sprezece " + un(num * 2)
      Else
       If zeci = 1 And uni = 0 Then
        ss = "zece " + un(num * 2)
       Else
        ss = ss + numar(zeci, 2) + IIf(zeci <> 0, "zeci ", "") + IIf(uni <> "0", "si " + numar(uni, 3), "") + IIf(s <> "000", un(num * 2), "")
       End If
      End If
      sir = ss + sir
    Case 2:
      sute = 0
      zeci = Mid(s, 1, 1)
      uni = Mid(s, 2, 1)
      If zeci = 1 And uni <> 0 Then
       ss = ss + numar(uni, 4) + "sprezece " + un(num * 2)
      Else
       If zeci = 1 And uni = 0 Then
        ss = "zece " + un(num * 2)
       Else
        ss = ss + numar(zeci, 2) + IIf(zeci <> 0, "zeci ", "") + IIf(uni <> "0", "si " + numar(uni, 3), "") + un(num * 2)
       End If
      End If
      sir = ss + sir
    Case 1:
      sute = 0
      zeci = 0
      uni = Mid(s, 1, 1)
      sir = numar(uni, 3) + IIf(uni = 1, un(num * 2 - 1), un(num * 2)) + sir
   End Select
   num = num - 1
  End If
 Wend
 Msgbox "Rezultatul : " + sir
End Sub

cred ca e cea mai scurta varianta!!! :P

Edited by adi_tuhut, 28 November 2004 - 18:06.


#22
painkiller

painkiller

    Member

  • Grup: Members
  • Posts: 252
  • Înscris: 26.12.2004
salut.. am si eu o completare de elev de clasa a 10 care face c++ de 2 ani. Deci eu zic sa nu va mai certati atat pe stilul in care a fost scris prgramul (cu toate ca nu are nici o coerenta si da vro 17 erori la compilare) si cu chestia ca l-am scris in graba... mai bine nu-l scriai. In rest apreciez efortul de a impartasi si altora din experienta dvs.

#23
michaelady

michaelady

    Member

  • Grup: Members
  • Posts: 321
  • Înscris: 03.09.2004
ok :peacefingers:

#24
dallass

dallass

    Member

  • Grup: Members
  • Posts: 310
  • Înscris: 30.09.2004
Eu, habarnist total in ale programarii, ma intreb daca nu ar fi mai bine sa faceti niste programe eficiente, decat sa va certati. Ceva util. Cine va citi acest topic daca nu stie nimic de programare se va uita "ca curca in craci"

#25
ang3lla

ang3lla

    New Member

  • Grup: Members
  • Posts: 10
  • Înscris: 29.03.2005
wow...   :eek: :surprise:  :w00t:   dak asta inseamna ceva "marunt" in progrmare... e clar!! Nici nu ma gandesc la mate-info...  tot la limbi straine ajung... oricum, felicitari k va place, asa avem chestii interesante pt comp

#26
michaelady

michaelady

    Member

  • Grup: Members
  • Posts: 321
  • Înscris: 03.09.2004

ang3lla, on Apr 2 2005, 01:27, said:

wow...   :eek: :surprise:  :w00t:   dak asta inseamna ceva "marunt" in progrmare... e clar!! Nici nu ma gandesc la mate-info...  tot la limbi straine ajung... oricum, felicitari k va place, asa avem chestii interesante pt comp

<{POST_SNAPBACK}>


stii melodia aia vicii a lui cheloo cu bitza. zice bitza la un moment-dat:' iti lipseste acel ceva, fie ca e mous-ul, fie ca e unditza...'?
asa e cu programarea, poati deveni dependent!

#27
matrix10

matrix10

    New Member

  • Grup: Members
  • Posts: 12
  • Înscris: 31.07.2005
adi_tuhut ar fi interesat de modioficat putin versiunea de visual basic ca sa mearga in VBA ( Visual Basic for Aplications) mai precis ca uin macro in excel
si felicitari pentru cod asta in cazul in care merge ca nu l-am incercat

#28
matrix10

matrix10

    New Member

  • Grup: Members
  • Posts: 12
  • Înscris: 31.07.2005
acum l=am incercat si am gasit un mic bug in cazul lui 1024 afiseaza unu mie sper sa fie singurul ;)

#29
matrix10

matrix10

    New Member

  • Grup: Members
  • Posts: 12
  • Înscris: 31.07.2005

kml, on Oct 12 2004, 09:49, said:

stiu, cu asta tipareste navasta-mea ordinele de plata, si daca n-ar merge... :death:

<{POST_SNAPBACK}>


kml as fi si eu interesat de intreg programul de tiparit bilete la ordin daca esti amabil. eu le am foarte putin in ale programarii. merci antcipat.

#30
RaduHawk

RaduHawk

    Junior Member

  • Grup: Members
  • Posts: 34
  • Înscris: 21.02.2005
Si eu as avea nevoie de-un program de tiparit BO-uri. Foloseste careva?

#31
RISKI

RISKI

    New Member

  • Grup: Members
  • Posts: 1
  • Înscris: 08.05.2007

View Postadi_tuhut, on Nov 28 2004, 19:03, said:

uite si o varianta Visual BASIC
Function numar(s As String, z As Integer)
Select Case z
Case 1:
Select Case s
 Case 1: numar = "o "
 Case 2: numar = "doua "
 Case 3: numar = "trei "
 Case 4: numar = "patru "
 Case 5: numar = "cinci "
 Case 6: numar = "sase "
 Case 7: numar = "sapte "
 Case 8: numar = "opt "
 Case 9: numar = "noua "
End Select
Case 2:
 Select Case s
 Case 1: numar = "zece"
 Case 2: numar = "doua"
 Case 3: numar = "trei"
 Case 4: numar = "patru"
 Case 5: numar = "cinci"
 Case 6: numar = "sai"
 Case 7: numar = "sapte"
 Case 8: numar = "opt"
 Case 9: numar = "noua"
End Select
Case 3:
 Select Case s
 Case 1: numar = "unu "
 Case 2: numar = "doi "
 Case 3: numar = "trei "
 Case 4: numar = "patru "
 Case 5: numar = "cinci "
 Case 6: numar = "sase "
 Case 7: numar = "sapte "
 Case 8: numar = "opt "
 Case 9: numar = "noua "
 End Select
Case 4:
 Select Case s
 Case 1: numar = "un"
 Case 2: numar = "doi"
 Case 3: numar = "trei"
 Case 4: numar = "pai"
 Case 5: numar = "cinci"
 Case 6: numar = "sai"
 Case 7: numar = "sapte"
 Case 8: numar = "opt"
 Case 9: numar = "noua"
 End Select
End Select
End Function
Private Sub transf(nr as String)
' Text31.SetFocus
Dim sute As String, zeci As String, uni As String, un(1 To 8) As String
 un(1) = "miliard "
 un(2) = "miliarde "
 un(3) = "milion "
 un(4) = "milioane "
 un(5) = "mie "
 un(6) = "mii "
 un(7) = ""
 un(8) = ""
 sir = ""
 s = "1"
 num = 4
 While s <> ""
  s = Right(nr, 3)
  nr = Left(nr, IIf(Len(nr) - 3 > 0, Len(nr) - 3, 0))
  ss = ""
  If s <> "" Then
   Select Case Len(s)
    Case 3:
      sute = Mid(s, 1, 1)
      zeci = Mid(s, 2, 1)
      uni = Mid(s, 3, 1)
      ss = numar(sute, 1) + IIf(sute = 1, "suta ", IIf(sute > 1, "sute ", ""))
      If zeci = 1 And uni <> 0 Then
       ss = ss + numar(uni, 4) + "sprezece " + un(num * 2)
      Else
       If zeci = 1 And uni = 0 Then
        ss = "zece " + un(num * 2)
       Else
        ss = ss + numar(zeci, 2) + IIf(zeci <> 0, "zeci ", "") + IIf(uni <> "0", "si " + numar(uni, 3), "") + IIf(s <> "000", un(num * 2), "")
       End If
      End If
      sir = ss + sir
    Case 2:
      sute = 0
      zeci = Mid(s, 1, 1)
      uni = Mid(s, 2, 1)
      If zeci = 1 And uni <> 0 Then
       ss = ss + numar(uni, 4) + "sprezece " + un(num * 2)
      Else
       If zeci = 1 And uni = 0 Then
        ss = "zece " + un(num * 2)
       Else
        ss = ss + numar(zeci, 2) + IIf(zeci <> 0, "zeci ", "") + IIf(uni <> "0", "si " + numar(uni, 3), "") + un(num * 2)
       End If
      End If
      sir = ss + sir
    Case 1:
      sute = 0
      zeci = 0
      uni = Mid(s, 1, 1)
      sir = numar(uni, 3) + IIf(uni = 1, un(num * 2 - 1), un(num * 2)) + sir
   End Select
   num = num - 1
  End If
 Wend
 Msgbox "Rezultatul : " + sir
End Sub

cred ca e cea mai scurta varianta!!! :P
Sal adi_tuhut! Poti sa-mi spui te rog daca merge si in excel? Si daca da, unde oare gresesc ca ma disperat! :)

#32
Nigel

Nigel

    Active Member

  • Grup: Members
  • Posts: 1,197
  • Înscris: 24.08.2005
Mai baieți, voi programe mai mici de 7 ecrane nu știți să scrieți?  :ewwpu:

#33
renderman

renderman

    Senior Member

  • Grup: Senior Members
  • Posts: 3,450
  • Înscris: 30.11.2004

View PostRISKI, on May 8 2007, 19:42, said:

Sal adi_tuhut! Poti sa-mi spui te rog daca merge si in excel? Si daca da, unde oare gresesc ca ma disperat! :)
Uite o functie de de excel, ma apucase odata programarea da mi-a fost lene sa fac sa citeasca si dupa virgula, poate continua cineva cu mai mult timp liber :D
Public Function transformare(numar As String)
Dim temp As String
Dim nrcifre As Integer
Dim vari(20) As String
Dim cuvantsuta As String
Dim cuvantmie As String
Dim cuvantmilion As String
Dim cuvantmiliard As String
Dim cuvantzeci As String
nrcifre = Len(numar)
For i = 1 To nrcifre
vari(i) = Mid(numar, i, 1)
Select Case vari(i)
 Case 0: vari(i) = ""
 Case 1: vari(i) = "unu "
 Case 2: vari(i) = "doua "
 Case 3: vari(i) = "trei "
 Case 4: vari(i) = "patru "
 Case 5: vari(i) = "cinci "
 Case 6: vari(i) = "sase "
 Case 7: vari(i) = "sapte "
 Case 8: vari(i) = "opt "
 Case 9: vari(i) = "noua "
End Select
	cuvantsi = "si "
	cuvantzeci = "zeci "
	cuvantmie = "mii "
	cuvantsuta = "sute "
	cuvantmilion = "milioane "
	cuvantmiliard = "miliarde "   
	If Mid(numar, i + 1, 1) = "0" Or vari(i) = "" Then cuvantsi = ""
If vari(i) = "" Then
	cuvantzeci = ""
	cuvantsuta = ""
End If	
If (nrcifre + 1 - i) Mod 3 = 2 And vari(i) = "unu " Then
	vari(i) = Mid(numar, i, 2)
	Select Case vari(i)
	Case 10: vari(i) = "zece "
	Case 11: vari(i) = "unsprezece "
	Case 12: vari(i) = "doisprezece "
	Case 13: vari(i) = "treisprezece "
	Case 14: vari(i) = "paisprezece "
	Case 15: vari(i) = "cincisprezece "
	Case 16: vari(i) = "saisprezece "
	Case 17: vari(i) = "sapteprezece "
	Case 18: vari(i) = "optsprezece "
	Case 19: vari(i) = "nouasprezece "
	End Select
temp = temp + vari(i)
i = i + 1
End If
If vari(i) = "doua " And i = nrcifre Then vari(i) = "doi "
If (nrcifre + 1 - i) Mod 3 = 2 Then
	If vari(i) = "sase " Then vari(i) = "sai"
	vari(i) = vari(i) + cuvantzeci + cuvantsi
	End If
If (nrcifre + 1 - i) Mod 3 = 0 Then
	If vari(i) = "unu " Then
		vari(i) = "una "
		cuvantsuta = "suta "
		End If
	vari(i) = vari(i) + cuvantsuta
	End If
If (nrcifre + 1 - i) = 4 Or (nrcifre + 1 - i) Mod 3 = 4 Then  
	If vari(i) = "unu " And nrcifre = 4 Then
		vari(i) = "una "
		cuvantmie = "mie "
		End If
	 If vari(i) = "unu " Then vari(i) = "una "
	vari(i) = vari(i) + cuvantmie
	End If
If (nrcifre + 1 - i) = 7 Then
		If vari(i) = "unu " And nrcifre = 7 Then
		vari(i) = "un "
		cuvantmilion = "milion "
		End If
	vari(i) = vari(i) + cuvantmilion
	End If
If (nrcifre + 1 - i) = 10 Then
		If vari(i) = "unu " And nrcifre = 10 Then
		vari(i) = "un "
		cuvantmiliard = "miliard "
		End If		
	vari(i) = vari(i) + cuvantmiliard
	End If
If (nrcifre + 1 - i) = 13 Then
		If vari(i) = "unu " And nrcifre = 13 Then
		vari(i) = "una "
		cuvantmie = "mie "
		End If		
	vari(i) = vari(i) + cuvantmie
	End If
temp = temp + vari(i)
Next i
transformare = temp
End Function


#34
BugHunter

BugHunter

    Member

  • Grup: Members
  • Posts: 377
  • Înscris: 03.11.2003
Si versiunea mea daca mai intereseaza pe cineva  :D
Surse si executabil: number2text  sau direct aici: Attached File  NumberSpeller.zip   69.69K   204 downloads
Mai multe detalii:     aici

#35
Mycro

Mycro

    Member

  • Grup: Members
  • Posts: 244
  • Înscris: 10.12.2002
Imi trebuie un macro excel care sa converteasca din lei in litere. Am luat functia asta si am tradus valorile in romana, dar nu merge cum trebuie (am atasat rezultatul)
Ex:
- 23,43 lei apare 'douazeci treiLeisipatruzeci treiBani' in loc de 'douazecisitreiLeisipatruzecisitreiBani'
- 100,01 lei apare 'unusuteLeisiunuBani' in loc de 'osutaLeisiunBan'

Ce trebuie modificat? (de mentionat ca nu stiu programare)
Attached File  functie_lei.txt   4.64K   211 downloads

#36
B3aT

B3aT

    Member

  • Grup: Members
  • Posts: 749
  • Înscris: 02.03.2005
limba romana are multe exceptii, acolo se ivesc problemele.
Si eu am facut zilele trecute un set de functii pestru chestia asta.
Din pacate nu este in VBS ...

Nici eu nu gasisem nici o varianta optimizata si sa acopere exceptiile.Oricum am vazut ca multe programe de facturare nu au functia asta, asa ca nu te agita prea tare..

Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate