Devo "produrre" un numero decimale che sia composto da:
- 0,
- Tanti zeri quanti richiesti da una variabile ( nel nostro esempio la ho fissata a 4 )
- 1
quindi
se la mia variabile è 4 voglio ottenere 0,00001
se la mia variabile è 7 voglio ottenere 0,00000001
al momento non riesco a fare di meglio che cosi, ma penso che si puo migliorare di molto magari eliminando il ciclo
Public Function Decim() As Double
Dim StDec As String
StDec = "0,"
Dim x As Integer
For x = 1 To 4 ' Questa sarà una variabile
StDec = StDec & "0"
Next
StDec = StDec & "1"
Decim = StDec
Debug.Print "StringDecimale " & StDec
Debug.Print "NumeroDecimale " & Decim
End Function
se ricordo bene c'è una funzione compatta con cui posso dire
Decim = "0," & ..... tanti zeri ....... & "1"
qualcosa che c'entra con la scrittura di file .txt con cui potevo dire per esempio
scrivi: "Nella citta di " & 20 volte il carattere "." & " c'è una fontana"
qualcuno ha idee ( nonso se mi sono spiegato bene )
Grazie