Hi communities, I'm trying to write a solution that prints decimal places in euros. I can't find a solution that's common to all the numbers. Has anyone had the same problem? any advice is accepted. Thank you
The output is this with 5 different digits:
1.00€
10.00€
1000€
1000.00€
10000.00€
Code:
Lprezzo.Text=Prezzo1
If Lprezzo.Text.Length=3 Or Lprezzo.Text.Length=4 And Lprezzo.Text.LastIndexOf2(0,4)=0 Then
If Lprezzo.Text.Length=3 Then
If Lprezzo.Text.LastIndexOf2(0,3)=0 Or Lprezzo.Text.LastIndexOf2(0,4)=0 Then
Lprezzo.Text=Prezzo1&".00€"
Else
Lprezzo.Text=Prezzo1&"0€"
End If
End If
If Lprezzo.Text.Length=4 Then
Lprezzo.Text=Prezzo1&"€"
End If
Else
Lprezzo.Text=Prezzo1&".00€"
End If
The output is this with 5 different digits:
1.00€
10.00€
1000€
1000.00€
10000.00€