number format

[silvano]

hi,

sorry, i have search in the forum but i don't know the correct terms to search for my problem...

i have one dynamic number like this: 1200.3448952

i would to change them in:

1.200,34

i have write this func:

Func decimale($campo,$scrivi=0)
$decimale_pulito = StringFormat("%.2f%",$campo)
If $scrivi = 1 Then
$decimale_pulito = StringStripWS(StringReplace($decimale_pulito,".",","),8)
EndIf
Return $decimale_pulito
EndFunc

MsgBox(0,"",decimale("1200.3448952",1))

but this return only: 1200,34

can i format the numbers:

12000.35698 or 158000.3569

like: 12.000,36 and 158.000,36

thanks

[bogQ]

hi,

sorry, i have search in the forum but i don't know the correct terms to search for my problem...

i have one dynamic number like this: 1200.3448952

i would to change them in:

1.200,34

i have write this func:

Func decimale($campo,$scrivi=0)
$decimale_pulito = StringFormat("%.2f%",$campo)
If $scrivi = 1 Then
$decimale_pulito = StringStripWS(StringReplace($decimale_pulito,".",","),8)
EndIf
Return $decimale_pulito
EndFunc

MsgBox(0,"",decimale("1200.3448952",1))oÝ÷ Ù»­¶¬­ën®z'-vÓMøq©â~æjÛaz{¦mêì×m4Ó~z÷Ê+×4ÓMùëÙbívÓM7é©Ý×4ÓMú¶§Ïêº^²¶§X¤zØb±«­¢+Ø¥¹±Õ±ÐíMÑÉ¥¹¹ÔÌÐì(ÀÌØíÍÑÉ¥¹ôÅÕ½ÐìÄÈÀÀ¸ÌÐÐàäÔÈÅÕ½Ðì(ÀÌØíÍÑÉ¥¹|ÄôMÑÉ¥¹MÁ±¥Ð ÀÌØíÍÑÉ¥¹°ÅÕ½Ðì¸ÅÕ½Ðì¤(ÀÌØíMÑÉ¥¹|Èô}MÑÉ¥¹
½µµ ÀÌØíÍÑÉ¥¹|ÅlÅt¤(ÀÌØíÍÑÉ¥¹|ÌôMÑÉ¥¹IÁ± ÀÌØíMÑÉ¥¹|È°ÅÕ½Ðì°ÅÕ½Ðì°ÅÕ½Ðì¸ÅÕ½Ðì¤(ÀÌØíÍÑÉ¥¹|ÐôÀÌØíÍÑÉ¥¹|̵ÀìÅÕ½Ðì°ÅÕ½ÐìµÀíMÑÉ¥¹1Ð ÀÌØíÍÑÉ¥¹|ÅlÉt°È¤)5Í  ½à À°ÅÕ½ÐìÅÕ½Ðì°ÀÌØíÍÑÉ¥¹|Ф

[silvano]

Yes!!

thank yuo very much!

[bogQ]

Yes!!

thank yuo very much!

if the number is more then 0.11 like 0.1100000000000000000000000000000000000001 to set ti to 0.12

i hope that this is working

#include <String.au3>
$string = "1200.9800001"
$string_1 = StringSplit($string, ".")
$string_4 = $string_1[2]
$string_4_1 = StringLeft($string_1[2],2)
$string_4_2 = StringLeft($string_1[2],2)
$string_6 = StringLen($string_4)
$string_6 = $string_6-2
for $x = 1 to $string_6
    $string_4_1 = $string_4_1&"0"
Next
Select
    case $string_4_1 < $string_1[2]
    Select
        Case $string_4_2 <> "99"
            $string_7 = $string_4_2+1
        Case $string_4_2 = "99"
            $string_7 = "00"
            $string_1[1] = $string_1[1]+1
    endselect
    case $string_4_1 >= $string_1[2]
        $string_7 = $string_4_2
endselect
$String_2 = _StringAddComma($string_1[1])
$string_3 = StringReplace($String_2,",",".")
$string_8 = $string_3&","&$string_7
MsgBox(0,"",$string_8)

i forgot to add if 99

Edited August 21, 2007 by bogQ

[silvano]

i have play this:

#include<string.au3>
$string = "1000.00"

Func decimaleVideo1($string)
$decimale_pulito = StringFormat("%.2f%",$string)
$a = _StringAddComma ( $decimale_pulito,".")
$b = StringReplace($a,stringRight($a,3),","&stringRight($a,2))
return $b
EndFunc
MsgBox(0,"", decimaleVideo1($string))

and work, but if the number is 1000.00 return 1,000,00 and if the number is 1100.00 return correctly 1.100,00

why!?

[silvano]

now this work!!

#include<string.au3>
$string = "1000.00"

Func decimaleVideo1($string)
$decimale_pulito = StringFormat("%.2f%",$string)
$c = StringReplace($decimale_pulito,".",",")
$a = _StringAddComma ( $c,".",",")
return $a
EndFunc
MsgBox(0,"", decimaleVideo1($string))

tks!