Newsgroup: it.comp.appl.access
Titolo: Funzioni Access

Salve a tutti sono nuovo...volevo sapee dove posso trovare (in internet o
sulla guida office) la spiegazione di tutte le funzioni di Access ... GRazie

 sulla guida office) la spiegazione di tutte le funzioni di Access ...
GRazie
Basta premere il tasto F1 e tutto un mondo si aprirą.
Ciao
Galliano.

 wrote in message
QXFka.19338$DT4.5...@twister1.libero.it...


Forse Int?

 valore intero corrispondente... sai aiutarmi? Grazie CIAO!
Per ottenere la parte intera di un numero devi usare la funzione Int o la
funzione Fix. Cerca sull'help per maggiori informazioni circa la sintassi
corretta e per visualizzare semplici esempi. Ti invito inoltre, quando
rispondi ad un messaggio, a scrivere la tua risposta dopo il messaggio a cui
rispondi e non prima: ne guadagnerà non poco la comprensibiltà da parte di
chi segue il thread.
Ciao
Galliano

 valore intero corrispondente... sai aiutarmi? Grazie CIAO!
Prima di tutto si scrive DOPO il quoting!
Secondo, sant'iddio!!!!
Uno deve avere il valore intero? Proviamo a scrivere intero nell'indice
dell'help di access. Dopo I N e T compare sotto la funzione Int.
Che sarà mai questa funzione?!?!
La curiosità che pervade il volenteroso studioso fa sì che il mouse, come
per magilla faccia doppio clic sulla funzione in questione e.....
Restituisce un valore dello stesso tipo passato alla funzione che contiene
la parte intera di un numero.
Oh!
E' proprio quello che ti serve!!!
Oh!
Antonio

 > valore intero corrispondente... sai aiutarmi? Grazie CIAO!
Si scusate non sono stato chiaro... Essite una funzione che converte un
numero intero nella relativa stringa?? Grazie

 ha scritto nel messaggio
news:bwQka.104662$i26.3...@news2.tin.it...

cioč 11 = undici ?
Sitocomune
Antonio

Str(1)="1"


La funzione che cerchi č cstr.
Perň non capisco a che ti serva.
La conversione dei tipi spesso č fatta automaticamente dal sistema, cioč se
per esempio vuoi salvare una cifra in un campo testo ci pensa lui, cosě pure
per la concatenazione tra una stringa e una cifra.
Comunque....
Antonio

 wrote in message
WwUka.21464$DT4.6...@twister1.libero.it...

eSATTAMENTE QUELLO CHE CERCAVO...vado acercarlo sul sito grazie...


Ho scritto anch'io una funzione se interessa
Public Function E2L(Number As Double)
   Dim Cifre(12) As Byte, Result As String, Stringa As String, Lunghezza As
Byte, i As Integer, X As Byte
   Dim Unita As Variant, Decine As Variant, Dieci As Variant, N As Integer
   Unita = Array("", "uno", "due", "tre", "quattro", "cinque", "sei",
"sette", "otto", "nove")                                   ' valori per
unità e centinaia
   Decine = Array("", "dieci", "venti", "trenta", "quaranta", "cinquanta",
"sessanta", "settanta", "ottanta", "novanta")         ' valori per decine
   Dieci = Array("dieci", "undici", "dodici", "tredici", "quattordici",
"quindici", "sedici", "diciassette", "diciotto", _
"diciannove")     ' valori per numeri tra 10 e 19
   Rest = Right(Format(Number, "0.00"), 2)
   Number = Int(Number)
   If Number <= 0 Then
                                    ' se inviato valore=0 esce subito
      Result = "zero"
' . esito conversione
   Else
' se valore NOT=0
      Result = ""
' . azzera risultato finale
      Stringa = Trim(Str(Number))
' . da numero a stringa
      Lunghezza = Len(Stringa)
' . conta numero cifre
      For i = 1 To Lunghezza
        Cifre(i) = Val(Mid(Stringa, Lunghezza - i + 1, 1))
      Next i
      For i = Lunghezza To 1 Step -1
' . inizia loop conversione
         X = i Mod 3
' . . individua se miliardi, milioni, migliaia o unità
         Select Case X
' . . seleziona azioni su quante cifre
            Case 0
' . . se si esamina cifre centinaia
               If Cifre(i) = 1 Then
' . . . se centinaia = 1
                  Result = Result + "cento"
' . . . . aggiunge "cento"
               Else
           ' . . . se centinaia <> 1
                  Result = Result + Unita(Cifre(i))
' . . . . aggiunge unità
                  If Cifre(i) > 0 Then Result = Result + "cento"
' . . . . se cifra centinaia <> 0 aggiunge "cento"
               End If
' . . . fine
            Case 2
' . . se si esamina cifre decine
               If Cifre(i) = 1 Then
' . . . se decine=1
                  Result = Result + Dieci(Cifre(i - 1))
' . . . . aggiunge valore da array speciale
               Else
' . . . se decine <> 1
                  If Cifre(i) > 0 And (Cifre(i - 1) = 1 Or Cifre(i - 1) = 8)
Then                                                ' . . . . se unita=1 or
8 e decine >0
                     Result = Result + Left(Decine(Cifre(i)),
Len(Decine(Cifre(i))) - 1)                                         ' . . . .
. aggiunge decine - ultima lettera
                  Else
' . . . . altrimenti
                     Result = Result + Decine(Cifre(i))
' . . . . . aggiunge decine
                  End If
' . . . . fine
               End If
                                   ' . . . fine
            Case 1
' . . se si esamina cifre unita
               If i = 10 Or i = 7 Then
' . . . se esame miliardi e milioni
                  If Cifre(i) = 1 Then
' . . . . se la cifra é 1
                     Result = Result + "un"
' . . . . . aggiungono "un"
                  Else
' . . . . altrimenti
                     Result = Result + Unita(Cifre(i))
' . . . . . aggiungono le decine
                  End If
' . . . . fine
               Else
' . . . altrimenti
                  Result = Result + Unita(Cifre(i))
' . . . . aggiunge valore
               End If
' . . . fine
         End Select
' . . fine select
         If X = 2 And Cifre(i) = 1 Then Cifre(i - 1) = 0
' . . se cifra tra dieci e diciannove azzera unità
         If i = 10 Or i = 7 Or i = 4 Then
        ' . . se si ragiona sulle cifre 4 7 10
            N = Cifre(i + 2) * 100 + Cifre(i + 1) * 10 + Cifre(i)
' . . . calcola pacchetto cento+dieci+uno
            If i = 4 Then
' . . . se esame migliaia
               If N > 0 Then
' . . . . se pacchetto > 0
                  If N > 1 Then
' . . . . . se valore base >1999
                     Result = Result + "mila"
' . . . . . . aggiunge "mila"
                  Else
' . . . . . altrimenti
                     Result = Left(Result, Len(Result) - 3)
                     Result = Result + "mille"
' . . . . . . aggiunge "mille"
                  End If
' . . . . . fine
               End If
' . . . . fine
            ElseIf i = 7 Then
' . . . se esame milioni
               If N > 0 Then
' . . . . se pacchetto >0
                  If N = 1 Then
' . . . . . se pacchetto =1
                     Result = Result + "milione"
' . . . . . . aggiunge "milione"
                  Else
' . . . . . se pacchetto <> 1
                     Result = Result + "milioni"
' . . . . . . aggiunge "milioni"
                  End If
' . . . . . fine
               End If
' . . . . fine
            ElseIf i = 10 Then
' . . . se esame miliardi
               If N > 0 Then
' . . . . se pacchetto >0
                  If N = 1 Then
' . . . . . se pacchetto = 1
                     Result = Result + "miliardo"
' . . . . . . aggiunge "miliardo"
                  Else
' . . . . . se pacchetto <> 1
                     Result = Result + "miliardi"
' . . . . . . aggiunge "miliardi"
                  End If
' . . . . . fine
               End If
' . . . . fine
            End If
                                              ' . . . fine condizione
         End If
' . . fine condizione
      Next i
' . fine loop
   End If
   E2L = Result + "/" + Rest
End Function