freestuff.gr αρχική σελίδα
 FAQFAQ    ΑναζήτησηΑναζήτηση   Λίστα ΜελώνΛίστα Μελών   Ομάδες ΜελώνΟμάδες Μελών   <b>Εγγραφή Μέλους</b>Εγγραφή Μέλους 
 ΠροφίλΠροφίλ   Επιλογές μέλους Επιλογές   Τα bookmarks μου Τα bookmarks μου   Προσωπικά μηνύματαΠροσωπικά μηνύματα 
  διαφήμιση  

Καλώς ήρθατε στο forum μας! Για να συμμετάσχετε στις συζητήσεις θα πρέπει να είσαστε μέλος. Γίνετε μέλος τώρα!.

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


 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access
Moderators:  Super-Moderators, WebDev Moderators
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [10 Μηνύματα]      Bookmarks Tags: accessμετατροπή Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
ΑποστολέαςΜήνυμα
ntsakis


Μέλος από: 15 Μαρ 2004
Μηνύματα: 27

View users profile Send email to user
ΜήνυμαΣτις: 27 Δεκ 2004 16:35    Θέμα: Πως γίνεται στην access η μετατροπή μιας αξίας σε ολογράφως? Απάντηση με παράθεση  Mark this post and the followings unread

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


Help !!

ToolTimes at work ToolTimes at work ToolTimes at work ToolTimes at work
EneMe
Super Moderator

Μέλος από: 09 Ιουλ 2002
Βοηθήματα: 10
Νέα: 11
Μηνύματα: 256+

Περιοχή: Στα όρη, στα άγρια βουνά, μέσα στα κοσμικά χιόνια!
View users profile Visit posters website
blog deviantART twitter deviantART 
ΜήνυμαΣτις: 30 Δεκ 2004 16:09    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

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

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

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

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

το 234:

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

2,34

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

2 -> Διακόσια

ξανά!

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

34

Διαιρείς με 10

3,4

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

3 -> τριάντα

αφαιρείς 3*10

4 -> τέσσερα!

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

_________________
AmfissaPress.gr - Ειδήσεις από Φωκίδα - Δήμο Δελφών - Δήμο Δωρίδας
Εκτιμήσεις ακινήτων - Ενεργειακές επιθεωρήσεις - Τοπογραφικά - Οικοδομικές άδειες - Άδειες καταστημάτων
EneMe
Super Moderator

Μέλος από: 09 Ιουλ 2002
Βοηθήματα: 10
Νέα: 11
Μηνύματα: 256+

Περιοχή: Στα όρη, στα άγρια βουνά, μέσα στα κοσμικά χιόνια!
View users profile Visit posters website
blog deviantART twitter deviantART 
ΜήνυμαΣτις: 30 Δεκ 2004 16:10    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Nαι, άσχετο αυτό που έγραψα! ωχ! το μάτι μου! ToolTimes at work Καλό ε! Another pint of beer

_________________
AmfissaPress.gr - Ειδήσεις από Φωκίδα - Δήμο Δελφών - Δήμο Δωρίδας
Εκτιμήσεις ακινήτων - Ενεργειακές επιθεωρήσεις - Τοπογραφικά - Οικοδομικές άδειες - Άδειες καταστημάτων
cordis
Administrator, [F|H]ounder, [C|S]EO

Μέλος από: 09 Οκτ 1999
Βοηθήματα: 95
Νέα: 478
Templates: 1
Scripts: 2
Μηνύματα: 256+

Περιοχή: Greece
View users profile Visit posters website
blog cv flickr picasa facebook linkedin 
twitter friendfeed deviantART del.icio.us 
ΜήνυμαΣτις: 30 Δεκ 2004 16:46    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

EneMe ανέφερε:
Nαι, άσχετο αυτό που έγραψα! ωχ! το μάτι μου! ToolTimes at work Καλό ε! Another pint of beer


καθόλου.. έτσι πρέπει να το κάνει...

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

ntsakis


Μέλος από: 15 Μαρ 2004
Μηνύματα: 27

View users profile Send email to user
ΜήνυμαΣτις: 30 Δεκ 2004 17:53    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Παιδιά το έφτιαξα tτελικά σε Access !!!
Εαν το θέλετε στείλτε μου Post !
cordis
Administrator, [F|H]ounder, [C|S]EO

Μέλος από: 09 Οκτ 1999
Βοηθήματα: 95
Νέα: 478
Templates: 1
Scripts: 2
Μηνύματα: 256+

Περιοχή: Greece
View users profile Visit posters website
blog cv flickr picasa facebook linkedin 
twitter friendfeed deviantART del.icio.us 
ΜήνυμαΣτις: 30 Δεκ 2004 17:55    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

το θέλουμε.. βάλτο μας εδώ!

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

EneMe
Super Moderator

Μέλος από: 09 Ιουλ 2002
Βοηθήματα: 10
Νέα: 11
Μηνύματα: 256+

Περιοχή: Στα όρη, στα άγρια βουνά, μέσα στα κοσμικά χιόνια!
View users profile Visit posters website
blog deviantART twitter deviantART 
ΜήνυμαΣτις: 31 Δεκ 2004 11:17    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

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

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

_________________
AmfissaPress.gr - Ειδήσεις από Φωκίδα - Δήμο Δελφών - Δήμο Δωρίδας
Εκτιμήσεις ακινήτων - Ενεργειακές επιθεωρήσεις - Τοπογραφικά - Οικοδομικές άδειες - Άδειες καταστημάτων
ntsakis


Μέλος από: 15 Μαρ 2004
Μηνύματα: 27

View users profile Send email to user
ΜήνυμαΣτις: 03 Ιαν 2005 04:32    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

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 = "ÌÇÄÅÍ"
        Exit Function
    End If
   
    dekat = Int((mynumber + 0.005 - Int(mynumber)) * 100)
   If dekat = 100 Or dekat > 100 Then
     mynumber = Int(mynumber + 1)
   End If
   
    pil = Int(mynumber / 1000000)
    sec = mynumber - pil
   
    Select Case pil
        Case 1
        lektiko = "Åíá Åêáôïììýñéï "
        Case 2
        lektiko = "Äýï Åêáôïììýñéá "
        Case 3
        lektiko = "Ôñßá Åêáôïììýñéá "
        Case 4
        lektiko = "ÔÝóóåñá Åêáôïììýñéá "
        Case 5
        lektiko = "ÐÝíôå Åêáôïììýñéá "
        Case 6
        lektiko = "Åîç Åêáôïììýñéá "
        Case 7
        lektiko = "ÅðôÜ Åêáôïììýñéá "
        Case 8
        lektiko = "Ïêôþ Åêáôïììýñéá "
        Case 9
        lektiko = "ÅííÝá Åêáôïììýñéá "
        Case 10
        lektiko = "ÄÝêá Åêáôïììýñéá "
    End Select
    yp = mynumber - (pil * 1000000)
    pil = Int(yp / 100000)
      thous = pil
    Select Case pil
        Case 1
        lektiko = lektiko & " Åêáôü "
        Case 2
        lektiko = lektiko & " Äéáêüóéåò "
        Case 3
        lektiko = lektiko & " Ôñéáêüóéåò "
        Case 4
        lektiko = lektiko & " Ôåôñáêüóéåò "
        Case 5
        lektiko = lektiko & " Ðåíôáêüóéåò "
        Case 6
        lektiko = lektiko & " Åîáêüóéåò "
        Case 7
        lektiko = lektiko & " Åðôáêüóéåò "
        Case 8
        lektiko = lektiko & " Ïêôáêüóéåò "
        Case 9
        lektiko = lektiko & " Åííéáêüóéåò "
    End Select
    yp = yp - pil * 100000
    pil = Int(yp / 10000)
       handr = pil
    'If pil = 0 Then
     '   lektiko = lektiko & "×éëéÜäåò "
    'End If
    pil2 = Int(yp / 1000)
If pil2 = 11 Or pil2 = 12 Then
     
     '**
      yp = yp - pil * 10000
    pil = Int(yp / 1000)
      '**
        Select Case pil2
          Case 11
          lektiko = lektiko & "¸íôåêá ×éëéÜäåò "
          Case 12
          lektiko = lektiko & "Äþäåêá ×éëéÜäåò "
        End Select
            Else
      Select Case pil
        Case 1
        lektiko = lektiko & "ÄÝêá "
        Case 2
        lektiko = lektiko & "Åßêïóé "
        Case 3
        lektiko = lektiko & "ÔñéÜíôá "
        Case 4
        lektiko = lektiko & "ÓáñÜíôá "
        Case 5
        lektiko = lektiko & "ÐåíÞíôá "
        Case 6
        lektiko = lektiko & "ÅîÞíôá "
        Case 7
        lektiko = lektiko & "ÅâäïìÞíôá "
        Case 8
        lektiko = lektiko & "Ïãäüíôá "
        Case 9
        lektiko = lektiko & "ÅíåíÞíôá "
    End Select
    yp = yp - pil * 10000
    pil = Int(yp / 1000)
   
    '*******************************************
    If pil = 0 Then
         lexi = lektiko
         lektiko = lektiko & "×éëéÜäåò "
    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 & "×ßëéá "
            Else
          lektiko = lektiko & "Ìßá ×éëéÜäåò "
          End If
        Case 2
        lektiko = lektiko & "Äýï ×éëéÜäåò "
        Case 3
        lektiko = lektiko & "Ôñåßò ×éëéÜäåò "
        Case 4
        lektiko = lektiko & "ÔÝóóåñéò ×éëéÜäåò "
        Case 5
        lektiko = lektiko & "ÐÝíôå ×éëéÜäåò "
        Case 6
        lektiko = lektiko & "Åîé ×éëéÜäåò "
        Case 7
        lektiko = lektiko & "ÅðôÜ ×éëéÜäåò "
        Case 8
        lektiko = lektiko & "Ïêôþ ×éëéÜäåò "
        Case 9
        lektiko = lektiko & "ÅííÝá ×éëéÜäåò "
    End Select
   
End If
     
    yp = yp - pil * 1000
    pil = Int(yp / 100)
    Select Case pil
        Case 1
        lektiko = lektiko & " Åêáôü "
        Case 2
        lektiko = lektiko & " Äéáêüóéá "
        Case 3
        lektiko = lektiko & " Ôñéáêüóéá "
        Case 4
        lektiko = lektiko & " Ôåôñáêüóéá "
        Case 5
        lektiko = lektiko & " Ðåíôáêüóéá "
        Case 6
        lektiko = lektiko & " Åîáêüóéá "
        Case 7
        lektiko = lektiko & " Åðôáêüóéá "
        Case 8
        lektiko = lektiko & " Ïêôáêüóéá "
        Case 9
        lektiko = lektiko & " Åííéáêüóéá "
    End Select
    yp = yp - pil * 100
    pil = Int(yp / 10)
   
    pil2 = Int(yp)

If pil2 = 11 Or pil2 = 12 Then
   yp = yp - pil * 10
   Select Case pil2
     Case 11
     lektiko = lektiko & "¸íôåêá "
     Case 12
     lektiko = lektiko & "Äþäåêá "
     End Select
        Else
     
    Select Case pil
        Case 1
        lektiko = lektiko & "ÄÝêá "
        Case 2
        lektiko = lektiko & "Åßêïóé "
        Case 3
        lektiko = lektiko & "ÔñéÜíôá "
        Case 4
        lektiko = lektiko & "ÓáñÜíôá "
        Case 5
        lektiko = lektiko & "ÐåíÞíôá "
        Case 6
        lektiko = lektiko & "ÅîÞíôá "
        Case 7
        lektiko = lektiko & "ÅâäïìÞíôá "
        Case 8
        lektiko = lektiko & "Ïãäüíôá "
        Case 9
        lektiko = lektiko & "ÅíåíÞíôá "
    End Select
    yp = Int(yp - pil * 10)
    Select Case yp
        Case 1
        lektiko = lektiko & "¸íá "
        Case 2
        lektiko = lektiko & "Äýï "
        Case 3
        lektiko = lektiko & "Ôñßá "
        Case 4
        lektiko = lektiko & "ÔÝóóåñá "
        Case 5
        lektiko = lektiko & "ÐÝíôå "
        Case 6
        lektiko = lektiko & "Åîé "
        Case 7
        lektiko = lektiko & "ÅðôÜ "
        Case 8
        lektiko = lektiko & "Ïêôþ "
        Case 9
        lektiko = lektiko & "ÅííÝá "
    End Select
   
End If
 lektiko = lektiko & " Åõñþ "

If mynumber < 1 Then
lektiko = "ÌçäÝí Åõñþ "
End If

If dekat = 11 Or dekat = 12 Then
    Select Case dekat
     Case 11
     lektiko = lektiko & " êáß ¸íôåêá "
     Case 12
     lektiko = lektiko & "êáé Äþäåêá "
     End Select
        Else
     ypdekat1 = Int(dekat / 10)
     
     If dekat > 0 Then
       lektiko = lektiko & "êáé "
     End If
     
    Select Case ypdekat1
        Case 1
        lektiko = lektiko & "ÄÝêá "
        Case 2
        lektiko = lektiko & "Åßêïóé "
        Case 3
        lektiko = lektiko & "ÔñéÜíôá "
        Case 4
        lektiko = lektiko & "ÓáñÜíôá "
        Case 5
        lektiko = lektiko & "ÐåíÞíôá "
        Case 6
        lektiko = lektiko & "ÅîÞíôá "
        Case 7
        lektiko = lektiko & "ÅâäïìÞíôá "
        Case 8
        lektiko = lektiko & "Ïãäüíôá "
        Case 9
        lektiko = lektiko & "ÅíåíÞíôá "
    End Select
    ypdekat2 = Int(dekat - Int(ypdekat1 * 100) / 10)
    Select Case ypdekat2
        Case 1
        lektiko = lektiko & "¸íá "
        Case 2
        lektiko = lektiko & "Äýï "
        Case 3
        lektiko = lektiko & "Ôñßá "
        Case 4
        lektiko = lektiko & "ÔÝóóåñá "
        Case 5
        lektiko = lektiko & "ÐÝíôå "
        Case 6
        lektiko = lektiko & "Åîé "
        Case 7
        lektiko = lektiko & "ÅðôÜ "
        Case 8
        lektiko = lektiko & "Ïêôþ "
        Case 9
        lektiko = lektiko & "ÅííÝá "
    End Select
   
End If
     
     If dekat > 0 Then
        lektiko = lektiko & " ËåðôÜ "
     End If

     
    SAY_EURO = lektiko
   
End Function
ABLADE


Μέλος από: 18 Ιουλ 2007
Μηνύματα: 110
Περιοχή: Θεσσαλονίκη
View users profile Visit posters website
ΜήνυμαΣτις: 20 Ιουλ 2007 15:06    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

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

Μέλος από: 16 Σεπ 2005
Μηνύματα: 256+

View users profile Visit posters website
blog deviantART facebook linkedin 
ΜήνυμαΣτις: 20 Ιουλ 2007 16:19    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Που θέλεις να το χρησιμοποιήσεις; Σε φόρμα σε 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
Εμφάνιση Μηνυμάτων:   
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [10 Μηνύματα] Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access


Σχετικά θέματα
 Θέματα   Απ/σεις   Αποστολέας   Τελευταίο μήνυμα 
Προβλημα με υπολογισμο ΦΠΑ στην Access 0 master3763 27 Νοε 2016 17:31
master3763 Εμφάνιση τελευταίου μηνύματος
Δημιουργία Βάσης Δεδομένων MS Access με αντιστοιχιση σε γραφικό στοιχείο 1 Charalampos77 22 Ιουλ 2016 13:22
cordis Εμφάνιση τελευταίου μηνύματος
 
Τώρα είναι 21 Ιαν 2017 00:05 | All times are UTC + 2


Email This Page to Someone! add to Favorites

     Powered by p h p B B © 2001,2005 p h p B B Group
Για άμεση επικοινωνία με τον διαχειριστή του freestuff.gr στο email: freestuff.gr(παπάκι)gmail.com


Copyright © 1999-2013 Freestuff.gr All Rights Reserved  
Version Aegean, designed by N. Tsaganos