[MOD] Declarar variable parar dividir parte entera y real

[frankiani]

Me has salvado la vida jajaja asi si me funciono, pero no entiendo porque no funcionaba con la linea

Ha=val(lblHa.caption)

Seria interesante saber porque..

[h0oke]

De nada.
La función  val, devuelve el valor numérico de un string. Me imaginaría que la propiedad .caption en los labels no serán un string.
Ya investigaré mas del tema.

[h0oke]

Que raro...

MSDN:

The Caption property is a string expression that can contain up to 2,048 characters.

[Karcrack]

VB es tiene un compilador muy inteligente... que lo que hace es que si tu no le indicas el tipo de variable usa por defecto un Variant...

Asi que recordad siempre usar Option Explicit y declarar vuestras variables con tipo!


PD: Me ha quedado tipo anuncion no? jaja

Buenas Noches

[h0oke]

PD: Me ha quedado tipo anuncion no? jaja

Si 

Karcrack tu eres avanzado en VB.

¿Por qué es diferente?

Código (vb) [Seleccionar] Expandir

dim num as single
dim num2 as single
num=val(text1.text) ' Devuelve el numero con decimales
num2=val(label1.caption) ' Devuelve la parte entera

En el caso anterior se puede hacer que devuelva el número en sí?

Código (vb) [Seleccionar] Expandir

dim num as single
dim num2 as single
num=val(text1.text) ' Devuelve el numero con decimales
num2=label1.caption ' Devuelve el numero con decimales

[frankiani]

Perfecto, mi programa quedo excelente gracias a todos por su ayuda! cuando termine de perfeccionar mi programa lo aporto a la comunidad, por si hay algun ingeniero por aca 

[Karcrack]

PD: Me ha quedado tipo anuncion no? jaja

Si 

Karcrack tu eres avanzado en VB.

¿Por qué es diferente?

Código (vb) [Seleccionar] Expandir

dim num as single
dim num2 as single
num=val(text1.text) ' Devuelve el numero con decimales
num2=val(label1.caption) ' Devuelve la parte entera

En el caso anterior se puede hacer que devuelva el número en sí?

Código (vb) [Seleccionar] Expandir

dim num as single
dim num2 as single
num=val(text1.text) ' Devuelve el numero con decimales
num2=label1.caption ' Devuelve el numero con decimales

Código [Seleccionar] Expandir

num2=val(label1.caption) ' Devuelve la parte entera
Eso no es cierto.... a mi me devuelve con decimales incluidos.... comprueba que pones el numero de esta forma n.##

[h0oke]

Karcrack tienes razón. En realidad caption lee correctamente el valor. La verdad no se porque a el no le funcionará, recién lo he probado y rula bien.

Gracias Karcrack.

[frankiani]

como hago para que los numeros sean leidos como #.##?? porque en la expresion que se imprime en el label, viene de otro label, cuyo resultado se ve expresado como #,## :S

[VonN]

Podrías comparar el string y buscar el "." y cambiarlo por una ",".