Mensajes

Hola a todos,

Mi pregunta es sencilla, la respuesta claro esta es un poco engorrosa. He buscado la manera de sumar los Sabados y Domingos del año, Claro que hay que ver que algunos meses tienen 8, 9 y 10 días. No tengo mucha experiencia en lo que es la programación he estado leyendo bastante pero me ha superado me da pena preguntar, es posible sumarlos usando el calendario que trae windows?. Como por ejemplo si coloco en un text1 una fecha inicial y en un text2 la fecha de termino este me calcule los Sabados y Domingos?.

Por si las dudas
text1=01-02-2008 y text2=08-10-2010

hice en un excel un calculo de fechas en que me dan años y dias. Lo logre pasar a VB y me funcionó, pero esto me supero. Espero me puedan dar alguna info, o porque lado atacar, Muchas gracias.

Haz probado haciendo clic en el ejecutable con el botón derecho:
Propiedades->compatibilidad->Click en Check(ejecutar en modo comp...)
->seleccionas Winxp

Mas abajo en nivel de privilegio
->clip en check (ejecutar este programa como administrador)

Despues al terminar la instalación revisas si el icono de acceso directo quedo igual.

A mi por lo menos me ha funcionado espero les sea de ayuda.

Saludos

Hola amigos estaba haciendo un codigo bastante extenso en VB6 y al ejecutar fallò en un bucle FOR que daba desbordamiento, luego lo ejecute paso a paso con F8 y el desbordamiento se producia al restar 2 variables de tipo BYTE aa = 2 y bb = 58, y guardarlas en una de tipo INTEGER llamada r. asi que ejecute por separado la parte que me daba errores:

Código [Seleccionar] Expandir



Private Sub Form_Load()
   Dim aa As Integer, bb As Byte, r As Integer
   aa = 2
   bb = 58
   r = aa - bb
   'r = -2000
End Sub


si ejecutan ese code veran que les da desbordamiento.
La verda no sè por què me da errores, el resultado seria -56 que se guarda en r que es un INTEGER y deberia soportar el valor.
¿en què fallé?

no se si te sirva esto, no se mucho de programación pero puede ser una sugerencia:

Private Sub Form_Load()
    Dim aa As Integer, bb As Byte, r As Integer
    aa = 2
    bb = 58
    r = Int(aa - bb)
    MsgBox r
End Sub

o esto otro:

Private Sub Form_Load()
    Dim aa As Integer, bb As Integer, r As Integer
    aa = 2
    bb = 58
    r = aa - bb
    MsgBox r
End Sub

Como habían dicho anteriormente Byte es de 0 a 255 si los dejas como integer resulta.