Η σελίδα μας αναβαθμίστηκε, γι' αυτό τον λόγο τα μέλη μας θα πρέπει να ζητήσουν νέο κωδικό πρόσβασης από την υπηρεσία "Αποστολή κωδικού πρόσβασης".
Εάν το email με τον νέο κωδικό δεν έρθει στο inbox κοιτάξτε και στο spam folder. Ο server είναι φρέσκος και δεν έχει το reputation που του αξίζει.

Πως γίνεται στην access η μετατροπή μιας αξίας σε ολογράφως?

Συζητήσεις για την τοπική βάση δεδομένων Access της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
ntsakis
Δημοσιεύσεις: 27
Εγγραφή: 15 Μαρ 2004 19:04

Πως γίνεται στην access η μετατροπή μιας αξίας σε ολογράφως?

Δημοσίευση από ntsakis » 27 Δεκ 2004 16:35

Πως γίνεται στην access η μετατροπή μιας αξίας π.χ. 5.000,62 € σε κείμενο ολογράφως δηλ: Πέντε Χιλιάδες Ευρώ Και Εξήντα Δύο Λεπτά ???


Help !!

:hammer: :hammer: :hammer: :hammer:

Άβαταρ μέλους
EneMe
Super Moderator
Δημοσιεύσεις: 13298
Εγγραφή: 09 Ιούλ 2002 13:29
Τοποθεσία: Στα όρη, στα άγρια βουνά, μέσα στα κοσμικά χιόνια!
Επικοινωνία:

Πως γίνεται στην access η μετατροπή μιας αξίας σε ολογράφως?

Δημοσίευση από EneMe » 30 Δεκ 2004 16:09

Eίχα δει ένα σχέδιο σε χαρτί για κάτι τέτοιο:

πχ 234,58 -> διακόσια τριάντα τέσσερα ευρώ και πενήντα οκτώ λεπτά

Αρχικά χωρίζεις το ακέραιο από το δεκαδικό μέρος!

μετά τα δουλεύεις χωριστά!

το 234:

έχει τρία ψηφία. Διαιρείς με 100

2,34

αποκοπή δεκαδικού:

2 -> Διακόσια

ξανά!

Αφαιρείς το 2*100

34

Διαιρείς με 10

3,4

αποκοπή δεκαδικού

3 -> τριάντα

αφαιρείς 3*10

4 -> τέσσερα!

Αντίστοιχα για τα υπόλοιπα!


Άβαταρ μέλους
cordis
Administrator, [F|H]ounder, [C|S]EO
Δημοσιεύσεις: 27598
Εγγραφή: 09 Οκτ 1999 03:00
Τοποθεσία: Greece
Επικοινωνία:

Πως γίνεται στην access η μετατροπή μιας αξίας σε ολογράφως?

Δημοσίευση από cordis » 30 Δεκ 2004 16:46

EneMe έγραψε:Nαι, άσχετο αυτό που έγραψα! :myeye: :hammer: :kaloe: :pint:
καθόλου.. έτσι πρέπει να το κάνει...
Δεν απαντάω σε προσωπικά μηνύματα με ερωτήσεις που καλύπτονται από τις ενότητες του forum. Για ο,τι άλλο είμαι εδώ για εσάς.
- follow me @twitter

ntsakis
Δημοσιεύσεις: 27
Εγγραφή: 15 Μαρ 2004 19:04

Πως γίνεται στην access η μετατροπή μιας αξίας σε ολογράφως?

Δημοσίευση από ntsakis » 30 Δεκ 2004 17:53

Παιδιά το έφτιαξα tτελικά σε Access !!!
Εαν το θέλετε στείλτε μου Post !

Άβαταρ μέλους
cordis
Administrator, [F|H]ounder, [C|S]EO
Δημοσιεύσεις: 27598
Εγγραφή: 09 Οκτ 1999 03:00
Τοποθεσία: Greece
Επικοινωνία:

Πως γίνεται στην access η μετατροπή μιας αξίας σε ολογράφως?

Δημοσίευση από cordis » 30 Δεκ 2004 17:55

το θέλουμε.. βάλτο μας εδώ! ;)
Δεν απαντάω σε προσωπικά μηνύματα με ερωτήσεις που καλύπτονται από τις ενότητες του forum. Για ο,τι άλλο είμαι εδώ για εσάς.
- follow me @twitter

Άβαταρ μέλους
EneMe
Super Moderator
Δημοσιεύσεις: 13298
Εγγραφή: 09 Ιούλ 2002 13:29
Τοποθεσία: Στα όρη, στα άγρια βουνά, μέσα στα κοσμικά χιόνια!
Επικοινωνία:

Πως γίνεται στην access η μετατροπή μιας αξίας σε ολογράφως?

Δημοσίευση από EneMe » 31 Δεκ 2004 11:17

Καλά, ένα ψευτοδιάγραμμα ροής έδωσα... αλλά νόμιζα πως ήθελε εντολές!

Αφού το έκανε πάντως... Εύγε! ;)

ntsakis
Δημοσιεύσεις: 27
Εγγραφή: 15 Μαρ 2004 19:04

Πως γίνεται στην access η μετατροπή μιας αξίας σε ολογράφως?

Δημοσίευση από ntsakis » 03 Ιαν 2005 04:32

cordis έγραψε:το θέλουμε.. βάλτο μας εδώ! ;)

Κώδικας: Επιλογή όλων

Option Compare Database
Option Explicit

Function SAY_EURO(mynumber As Double) As String
    Dim pil, pil2, yp, tmp, sec, dekat As Double
    Dim thous, handr, teens As Double
    Dim ypdekat1, ypdekat2 As Double
    Dim lektiko, lexi As String
        
    lektiko = " "
    
    If mynumber < 0.001 Then
      SAY_EURO = "&#204;&#199;&#196;&#197;&#205;"
        Exit Function
    End If
    
    dekat = Int&#40;&#40;mynumber + 0.005 - Int&#40;mynumber&#41;&#41; * 100&#41;
   If dekat = 100 Or dekat > 100 Then
     mynumber = Int&#40;mynumber + 1&#41;
   End If
   
    pil = Int&#40;mynumber / 1000000&#41;
    sec = mynumber - pil
    
    Select Case pil
        Case 1
        lektiko = "&#197;&#237;&#225; &#197;&#234;&#225;&#244;&#239;&#236;&#236;&#253;&#241;&#233;&#239; "
        Case 2
        lektiko = "&#196;&#253;&#239; &#197;&#234;&#225;&#244;&#239;&#236;&#236;&#253;&#241;&#233;&#225; "
        Case 3
        lektiko = "&#212;&#241;&#223;&#225; &#197;&#234;&#225;&#244;&#239;&#236;&#236;&#253;&#241;&#233;&#225; "
        Case 4
        lektiko = "&#212;&#221;&#243;&#243;&#229;&#241;&#225; &#197;&#234;&#225;&#244;&#239;&#236;&#236;&#253;&#241;&#233;&#225; "
        Case 5
        lektiko = "&#208;&#221;&#237;&#244;&#229; &#197;&#234;&#225;&#244;&#239;&#236;&#236;&#253;&#241;&#233;&#225; "
        Case 6
        lektiko = "&#197;&#238;&#231; &#197;&#234;&#225;&#244;&#239;&#236;&#236;&#253;&#241;&#233;&#225; "
        Case 7
        lektiko = "&#197;&#240;&#244;&#220; &#197;&#234;&#225;&#244;&#239;&#236;&#236;&#253;&#241;&#233;&#225; "
        Case 8
        lektiko = "&#207;&#234;&#244;&#254; &#197;&#234;&#225;&#244;&#239;&#236;&#236;&#253;&#241;&#233;&#225; "
        Case 9
        lektiko = "&#197;&#237;&#237;&#221;&#225; &#197;&#234;&#225;&#244;&#239;&#236;&#236;&#253;&#241;&#233;&#225; "
        Case 10
        lektiko = "&#196;&#221;&#234;&#225; &#197;&#234;&#225;&#244;&#239;&#236;&#236;&#253;&#241;&#233;&#225; "
    End Select
    yp = mynumber - &#40;pil * 1000000&#41;
    pil = Int&#40;yp / 100000&#41;
      thous = pil
    Select Case pil
        Case 1
        lektiko = lektiko & " &#197;&#234;&#225;&#244;&#252; "
        Case 2
        lektiko = lektiko & " &#196;&#233;&#225;&#234;&#252;&#243;&#233;&#229;&#242; "
        Case 3
        lektiko = lektiko & " &#212;&#241;&#233;&#225;&#234;&#252;&#243;&#233;&#229;&#242; "
        Case 4
        lektiko = lektiko & " &#212;&#229;&#244;&#241;&#225;&#234;&#252;&#243;&#233;&#229;&#242; "
        Case 5
        lektiko = lektiko & " &#208;&#229;&#237;&#244;&#225;&#234;&#252;&#243;&#233;&#229;&#242; "
        Case 6
        lektiko = lektiko & " &#197;&#238;&#225;&#234;&#252;&#243;&#233;&#229;&#242; "
        Case 7
        lektiko = lektiko & " &#197;&#240;&#244;&#225;&#234;&#252;&#243;&#233;&#229;&#242; "
        Case 8
        lektiko = lektiko & " &#207;&#234;&#244;&#225;&#234;&#252;&#243;&#233;&#229;&#242; "
        Case 9
        lektiko = lektiko & " &#197;&#237;&#237;&#233;&#225;&#234;&#252;&#243;&#233;&#229;&#242; "
    End Select
    yp = yp - pil * 100000
    pil = Int&#40;yp / 10000&#41;
       handr = pil
    'If pil = 0 Then
     '   lektiko = lektiko & "&#215;&#233;&#235;&#233;&#220;&#228;&#229;&#242; "
    'End If
    pil2 = Int&#40;yp / 1000&#41;
If pil2 = 11 Or pil2 = 12 Then
      
     '**
      yp = yp - pil * 10000
    pil = Int&#40;yp / 1000&#41;
      '**
        Select Case pil2
          Case 11
          lektiko = lektiko & "&#184;&#237;&#244;&#229;&#234;&#225; &#215;&#233;&#235;&#233;&#220;&#228;&#229;&#242; "
          Case 12
          lektiko = lektiko & "&#196;&#254;&#228;&#229;&#234;&#225; &#215;&#233;&#235;&#233;&#220;&#228;&#229;&#242; "
        End Select
            Else
      Select Case pil
        Case 1
        lektiko = lektiko & "&#196;&#221;&#234;&#225; "
        Case 2
        lektiko = lektiko & "&#197;&#223;&#234;&#239;&#243;&#233; "
        Case 3
        lektiko = lektiko & "&#212;&#241;&#233;&#220;&#237;&#244;&#225; "
        Case 4
        lektiko = lektiko & "&#211;&#225;&#241;&#220;&#237;&#244;&#225; "
        Case 5
        lektiko = lektiko & "&#208;&#229;&#237;&#222;&#237;&#244;&#225; "
        Case 6
        lektiko = lektiko & "&#197;&#238;&#222;&#237;&#244;&#225; "
        Case 7
        lektiko = lektiko & "&#197;&#226;&#228;&#239;&#236;&#222;&#237;&#244;&#225; "
        Case 8
        lektiko = lektiko & "&#207;&#227;&#228;&#252;&#237;&#244;&#225; "
        Case 9
        lektiko = lektiko & "&#197;&#237;&#229;&#237;&#222;&#237;&#244;&#225; "
    End Select
    yp = yp - pil * 10000
    pil = Int&#40;yp / 1000&#41;
    
    '*******************************************
    If pil = 0 Then
         lexi = lektiko
         lektiko = lektiko & "&#215;&#233;&#235;&#233;&#220;&#228;&#229;&#242; "
    End If
    
    If pil = 0 And thous = 0 And handr = 0 Then
    lektiko = lexi
    End If
    '***************************************
    Select Case pil
        Case 1
         If thous = 0 And handr = 0 Then
          lektiko = lektiko & "&#215;&#223;&#235;&#233;&#225; "
            Else
          lektiko = lektiko & "&#204;&#223;&#225; &#215;&#233;&#235;&#233;&#220;&#228;&#229;&#242; "
          End If
        Case 2
        lektiko = lektiko & "&#196;&#253;&#239; &#215;&#233;&#235;&#233;&#220;&#228;&#229;&#242; "
        Case 3
        lektiko = lektiko & "&#212;&#241;&#229;&#223;&#242; &#215;&#233;&#235;&#233;&#220;&#228;&#229;&#242; "
        Case 4
        lektiko = lektiko & "&#212;&#221;&#243;&#243;&#229;&#241;&#233;&#242; &#215;&#233;&#235;&#233;&#220;&#228;&#229;&#242; "
        Case 5
        lektiko = lektiko & "&#208;&#221;&#237;&#244;&#229; &#215;&#233;&#235;&#233;&#220;&#228;&#229;&#242; "
        Case 6
        lektiko = lektiko & "&#197;&#238;&#233; &#215;&#233;&#235;&#233;&#220;&#228;&#229;&#242; "
        Case 7
        lektiko = lektiko & "&#197;&#240;&#244;&#220; &#215;&#233;&#235;&#233;&#220;&#228;&#229;&#242; "
        Case 8
        lektiko = lektiko & "&#207;&#234;&#244;&#254; &#215;&#233;&#235;&#233;&#220;&#228;&#229;&#242; "
        Case 9
        lektiko = lektiko & "&#197;&#237;&#237;&#221;&#225; &#215;&#233;&#235;&#233;&#220;&#228;&#229;&#242; "
    End Select
    
End If
      
    yp = yp - pil * 1000
    pil = Int&#40;yp / 100&#41;
    Select Case pil
        Case 1
        lektiko = lektiko & " &#197;&#234;&#225;&#244;&#252; "
        Case 2
        lektiko = lektiko & " &#196;&#233;&#225;&#234;&#252;&#243;&#233;&#225; "
        Case 3
        lektiko = lektiko & " &#212;&#241;&#233;&#225;&#234;&#252;&#243;&#233;&#225; "
        Case 4
        lektiko = lektiko & " &#212;&#229;&#244;&#241;&#225;&#234;&#252;&#243;&#233;&#225; "
        Case 5
        lektiko = lektiko & " &#208;&#229;&#237;&#244;&#225;&#234;&#252;&#243;&#233;&#225; "
        Case 6
        lektiko = lektiko & " &#197;&#238;&#225;&#234;&#252;&#243;&#233;&#225; "
        Case 7
        lektiko = lektiko & " &#197;&#240;&#244;&#225;&#234;&#252;&#243;&#233;&#225; "
        Case 8
        lektiko = lektiko & " &#207;&#234;&#244;&#225;&#234;&#252;&#243;&#233;&#225; "
        Case 9
        lektiko = lektiko & " &#197;&#237;&#237;&#233;&#225;&#234;&#252;&#243;&#233;&#225; "
    End Select
    yp = yp - pil * 100
    pil = Int&#40;yp / 10&#41;
    
    pil2 = Int&#40;yp&#41;

If pil2 = 11 Or pil2 = 12 Then
   yp = yp - pil * 10
   Select Case pil2
     Case 11
     lektiko = lektiko & "&#184;&#237;&#244;&#229;&#234;&#225; "
     Case 12
     lektiko = lektiko & "&#196;&#254;&#228;&#229;&#234;&#225; "
     End Select
        Else
     
    Select Case pil
        Case 1
        lektiko = lektiko & "&#196;&#221;&#234;&#225; "
        Case 2
        lektiko = lektiko & "&#197;&#223;&#234;&#239;&#243;&#233; "
        Case 3
        lektiko = lektiko & "&#212;&#241;&#233;&#220;&#237;&#244;&#225; "
        Case 4
        lektiko = lektiko & "&#211;&#225;&#241;&#220;&#237;&#244;&#225; "
        Case 5
        lektiko = lektiko & "&#208;&#229;&#237;&#222;&#237;&#244;&#225; "
        Case 6
        lektiko = lektiko & "&#197;&#238;&#222;&#237;&#244;&#225; "
        Case 7
        lektiko = lektiko & "&#197;&#226;&#228;&#239;&#236;&#222;&#237;&#244;&#225; "
        Case 8
        lektiko = lektiko & "&#207;&#227;&#228;&#252;&#237;&#244;&#225; "
        Case 9
        lektiko = lektiko & "&#197;&#237;&#229;&#237;&#222;&#237;&#244;&#225; "
    End Select
    yp = Int&#40;yp - pil * 10&#41;
    Select Case yp
        Case 1
        lektiko = lektiko & "&#184;&#237;&#225; "
        Case 2
        lektiko = lektiko & "&#196;&#253;&#239; "
        Case 3
        lektiko = lektiko & "&#212;&#241;&#223;&#225; "
        Case 4
        lektiko = lektiko & "&#212;&#221;&#243;&#243;&#229;&#241;&#225; "
        Case 5
        lektiko = lektiko & "&#208;&#221;&#237;&#244;&#229; "
        Case 6
        lektiko = lektiko & "&#197;&#238;&#233; "
        Case 7
        lektiko = lektiko & "&#197;&#240;&#244;&#220; "
        Case 8
        lektiko = lektiko & "&#207;&#234;&#244;&#254; "
        Case 9
        lektiko = lektiko & "&#197;&#237;&#237;&#221;&#225; "
    End Select
    
End If
 lektiko = lektiko & " &#197;&#245;&#241;&#254; "

If mynumber < 1 Then
lektiko = "&#204;&#231;&#228;&#221;&#237; &#197;&#245;&#241;&#254; "
End If

If dekat = 11 Or dekat = 12 Then
    Select Case dekat
     Case 11
     lektiko = lektiko & " &#234;&#225;&#223; &#184;&#237;&#244;&#229;&#234;&#225; "
     Case 12
     lektiko = lektiko & "&#234;&#225;&#233; &#196;&#254;&#228;&#229;&#234;&#225; "
     End Select
        Else
     ypdekat1 = Int&#40;dekat / 10&#41;
     
     If dekat > 0 Then
       lektiko = lektiko & "&#234;&#225;&#233; "
     End If
     
    Select Case ypdekat1
        Case 1
        lektiko = lektiko & "&#196;&#221;&#234;&#225; "
        Case 2
        lektiko = lektiko & "&#197;&#223;&#234;&#239;&#243;&#233; "
        Case 3
        lektiko = lektiko & "&#212;&#241;&#233;&#220;&#237;&#244;&#225; "
        Case 4
        lektiko = lektiko & "&#211;&#225;&#241;&#220;&#237;&#244;&#225; "
        Case 5
        lektiko = lektiko & "&#208;&#229;&#237;&#222;&#237;&#244;&#225; "
        Case 6
        lektiko = lektiko & "&#197;&#238;&#222;&#237;&#244;&#225; "
        Case 7
        lektiko = lektiko & "&#197;&#226;&#228;&#239;&#236;&#222;&#237;&#244;&#225; "
        Case 8
        lektiko = lektiko & "&#207;&#227;&#228;&#252;&#237;&#244;&#225; "
        Case 9
        lektiko = lektiko & "&#197;&#237;&#229;&#237;&#222;&#237;&#244;&#225; "
    End Select
    ypdekat2 = Int&#40;dekat - Int&#40;ypdekat1 * 100&#41; / 10&#41;
    Select Case ypdekat2
        Case 1
        lektiko = lektiko & "&#184;&#237;&#225; "
        Case 2
        lektiko = lektiko & "&#196;&#253;&#239; "
        Case 3
        lektiko = lektiko & "&#212;&#241;&#223;&#225; "
        Case 4
        lektiko = lektiko & "&#212;&#221;&#243;&#243;&#229;&#241;&#225; "
        Case 5
        lektiko = lektiko & "&#208;&#221;&#237;&#244;&#229; "
        Case 6
        lektiko = lektiko & "&#197;&#238;&#233; "
        Case 7
        lektiko = lektiko & "&#197;&#240;&#244;&#220; "
        Case 8
        lektiko = lektiko & "&#207;&#234;&#244;&#254; "
        Case 9
        lektiko = lektiko & "&#197;&#237;&#237;&#221;&#225; "
    End Select
    
End If
     
     If dekat > 0 Then
        lektiko = lektiko & " &#203;&#229;&#240;&#244;&#220; "
     End If

      
    SAY_EURO = lektiko
    
End Function

ABLADE
Δημοσιεύσεις: 110
Εγγραφή: 18 Ιούλ 2007 18:55
Τοποθεσία: Θεσσαλονίκη
Επικοινωνία:

Πως γίνεται στην access η μετατροπή μιας αξίας σε ολογράφως?

Δημοσίευση από ABLADE » 20 Ιούλ 2007 16:06

επειδη δεν ξέρω και πολλά θέλω κάποιες διευκρινήσεις. Πως μπορώ να το χρησιμοποιήσω αυτό? Εννοώ θα το βάλω τιμή σε ενα πεδίο ενός πίνακα? Αν ναι πως συνδέω το πεδίο με την VisualB? Δεν ξέρω αν είναι εύκολο κάποιος να μου εξηγήσει, ελπίζω να είναι...
Ευχαριστώ πάντως...

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

Πως γίνεται στην access η μετατροπή μιας αξίας σε ολογράφως?

Δημοσίευση από dva_dev » 20 Ιούλ 2007 17:19

Που θέλεις να το χρησιμοποιήσεις; Σε φόρμα σε query σε report?
Πρέπει να έχεις (σε κάποιον πίνακα φαντάζομαι) ένα πεδίο που να είναι ο αριθμός σου (έστω ο πίνακας mytable και το πεδίο myfield).

1) Θα φτιάξεις ένα νέο module και θα γράψεις εκεί μέσα στον παραπάνω κώδικα (ή αν μπορέσεις θα τον κάνεις copy-paste).
2) Θα προσθέσεις στη φόρμα σου (ή στο report ή όπου) που παίρνει στοιχεία από τον πίνακα mytable ένα ακόμα πεδίο myStringField και στις ιδιότητες του στο "control source" θα βάλεις "=SAY_EURO([myfield])"

Δες επίσης το http://www.dotnetzone.gr/cs/forums/thread/13015.aspx

Απάντηση

Επιστροφή στο “MS Access”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες