Newsgroup: it.comp.lang.visual-basic
Titolo: Re: da numero a stringa sql - SOLUZIONE

 il valore con la parte intera ottenuta...
se vi interessa, eccovi la soluzione.
ciao
Daniele
-------------------------------------------------
Public Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Public Const LOCALE_SDECIMAL = &HE         '  decimal separator
Public Declare Function GetLocaleInfo Lib "kernel32" Alias 
"GetLocaleInfoA" _
     (ByVal lLocale As Long, ByVal lLocaleType As Long, ByVal sLCData As 
String, _
     ByVal lBufferLength As Long) As Long
Function ImportoSQL(Valore As Variant) As String
     Dim LCID As Long
     Dim Separatore As String
     'recupera le impostazioni internazionali per la virgola
     LCID = GetUserDefaultLCID()
     Separatore = GetUserLocaleInfo(LCID, LOCALE_SDECIMAL)
     ImportoSQL = Replace(CStr(Valore), Separatore, ".")
End Function
Private Function GetUserLocaleInfo(ByVal dwLocaleID As Long, ByVal 
dwLCType As Long) As String
     Dim sReturn As String
     Dim r As Long
     'get size of buffer needed
     r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn))
     If r Then
         sReturn = Space$(r)
         r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn))
         If r Then GetUserLocaleInfo = Left$(sReturn, r - 1)
     End If
End Function

il valore con la parte intera ottenuta...
Da vb io farei:
stringa = replace(format(campo,"0.00"),",",".") 'attento a mettere
abbastanza zeri dopo la virgola quanti te ne servono perchè fa una
conversione
=======================================================================
Se mi vuoi scrivere togli le maiuscole
Sveltolampo 
cteniza...@hotmail.com
=======================================================================

 myseparatore = mid(cstr(1/10),2,1)
e se quel pirla che usa il pc ha deciso che il separatore è ".-'" tu cosa
fai?
comunque, alla luce di quanto ha postato maurizio, questa discussione è,
fortunatamente, completamente inutile.
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 myseparatore = Mid$(Cstr(1.2),2,1)
Io preferisco questo:
Separatore = Replace$(Cstr(1.1),"1","")
Ciao
Alberto
--
E tutto mi sembrava andasse bene...

 il valore con la parte intera ottenuta...
Ciao, (:- Dan :-).
    Sperimenta digitando quanto segue nella finestra Immediata e concludendo
ciascuna istruzione con Invio:
        n#=123.45
        ?n
        ?cstr(n)
        ?str(n)
-- 
    (Facci sapere se ed eventualmente come hai risolto. Grazie.)
Ciao :o)
Maurizio Borrelli, Microsoft MVP - Office Systems - Access
--------
?SPQR(C)
 X
--------

 Separatore = Replace$(Cstr(1.1),"1","")
Questa č davvero interessante :)
E risolve anche il problema dei separatori "non convenzionali".
Io comunque mi esprimevo sullo stile piů che sulla soluzione.
Ciao

 Io comunque mi esprimevo sullo stile più che sulla soluzione.
Ciao, Albe V°. Ciao, Zanna.
    Perche' scomodare Replace? :)
        ?Format$(0,".")
        ,
-- 


 
beh, allora la migliore è la mia ;-)
ciao

         ,
Geniale! E funziona anche per gli orari!
?Format(Now, ":")
.
Bye
Raf



sì, geniale!!
anche se bisognerebbe verificare se è più lento eseguire 2 chiamate 
(replace + cstr (tra l'altro operanti tra stringhe, quindi lente)) o il 
mattone della Format.
ciao
PS: che vuol dire
<domanda>
?SPQR(C)
X
</domanda>