[VB6]: Arrotondamento/troncamento di un numero

[x69asterix]

allora ho un numero il cui valore è, esempio: 315.199.105, quello che mi interessa sapere è se esiste un modo per prendere solo 315.199
Questo numero non altro che un numero dato da un filelen.

[chico62]

Presumo che i punti siano il separatore delle migliaia.
Ora, per troncare (mi sembra piu' coerente nel tuo caso) il numero in questione, potresti fare:

 int(cdbl("315.199.105")/1000)

Ciauz

Chico

[x69asterix]

hop risolto con
Label3.Caption = CInt(Label3.Caption)

[chico62]

Per curiosità ho provato il seguente codice (VB6 SP6)

Label3.Caption = "315.199.105"
Label3.Caption = CInt(Label3.Caption)

Ovviamente mi da errore di Overflow. :master:

Sarei curioso di sapere se il test l'hai fatto con la stringa da te inserita nell'esempio, e se a te non da errore.

In tal caso, quale diabolico Service Pack hai installato sul tuo Pc ??????

Ciauz

Chico

[icecube_HT]

Originariamente inviato da chico62

Per curiosità ho provato il seguente codice (VB6 SP6)

Label3.Caption = "315.199.105"
Label3.Caption = CInt(Label3.Caption)

Ovviamente mi da errore di Overflow. :master:

Sarei curioso di sapere se il test l'hai fatto con la stringa da te inserita nell'esempio, e se a te non da errore.

In tal caso, quale diabolico Service Pack hai installato sul tuo Pc ??????

Ciauz

Chico

Secondo me, da come ha risolto, il dato originario era 315199.105
Voleva semplicemente troncare all'intero (Long)!

[chico62]

Giusto per disquisire, FileLen (da cui ha preso il valore, come ha detto nel primo post) restituisce un valore Long, quindi non decimale.

Rimango curioso.....

Chico

[icecube_HT]

Originariamente inviato da chico62
Giusto per disquisire, FileLen (da cui ha preso il valore, come ha detto nel primo post) restituisce un valore Long, quindi non decimale.

Rimango curioso.....

Chico

Hai ragione, non avevo capito che proveniva da una FileLen()!

Ma allora....? Dicci qualcosa, x69asterix !

[x69asterix]

difatti ho tolto la formattazione al filelen, l'ho lasciato nel suo valore originale, poi l'ho diviso per un 1000000 visto che a me interessa fare questa divisione, il risultato lo arrotondo.

Text1.Text = FileLen(File1.Path & "\" & File1.FileName) / 1000000
Text2.Text = CInt(Text1.Text)