Autor
Explico:
Código:
Const Buffer = 4096
Private Sub Form_Load()
Dim LenFile As Long
Dim TotInteger As Long
Dim SegmentCount As Long
Dim LenRest As Long
LenFile = 3921
SegmentCount = Val(LenFile / Buffer)
TotInteger = SegmentCount * Buffer
LenRest = LenFile - TotInteger
Debug.Print SegmentCount, TotInteger, LenRest
End Sub
yo deseo saber cuanas veces entra LenFile en el Buffer lo que esto me da como resultado SegmentCount, y a su ves LenRest seria el resto de lo que no llego a completar el tamaño del Buffer
ejemplo
Código:
si el archivo pesa 3921 SegmentCount = 0 y lenResto = 3921
si el archivo pesa 8192 SegmentCount = 2 y lenResto = 0
si el archivo pesa 8195 SegmentCount = 2 y lenResto = 3
si el archivo pesa 6000 SegmentCount = 1 y lenResto = 1904
como pueden notar estoy trabjando con numeros enteros
bien el ejemplo que puse por mas feo que sea funciona pero el tema es que si la configuracion local esta cambiada me tira cualquier resultados
por ejemplo
Código:
Simbolo Decimal = .
Simbolo de separacion de miles = ,
correctamente en el debug deve mostrar esto
0 0 3921
incorrectamente si la configuracion esta cambiada me muestra esto
1 4096 -175
hay alguna forma elegante de hacer lo que quiero, pero sin tener que verificar la configuracion local
Saludos
En línea
