Mensajes

pues lo que se me ocurre en que cuando escanies la imagen la mandes al portapapeles del windows, luego la pases a una variable y lo almacenes en una BD

creo que eso esta más fácil mi idea era la siguiente:

Código [Seleccionar] Expandir


Dim segundos@, minutos@, Horas@
Dim hora1 As Date, hora2 As Date

hora1 = #1:00:00 AM#

hora2 = #9:54:56 AM#
Horas = DateDiff("h", hora1, hora2)
minutos = DateDiff("n", hora1, hora2) - (Horas * 60)
segundos = DateDiff("s", hora1, hora2) - ((Horas * 60 + minutos) * 60)
MsgBox Horas & ":" & minutos & ":" & segundos


checa los post, viene una sección de manuales.

Si alguien sabe de donde descargar el libro "Aprenda VB en 21 días" le agradeceria me lo dijera

  no entiendo muy bien que quieres hacer pero si pones

Código [Seleccionar] Expandir


dim n as string
n = Format(numero,"0000")


te dará como resultado "0001", ahora si lo que quieres es hacer operaciones con "n" solo necesitas usar "VAL"

Código [Seleccionar] Expandir


dim i as long
i = val (n)


esto te convierte la cadena "0001" a  1

checa en la ayuda del visual la función DateDiff


Devuelve un valor de tipo Variant (Long) que especifica el número de intervalos de tiempo entre dos fechas determinadas.

Sintaxis

DateDiff(intervalo, fecha1, fecha2[, primerdíasemana[, primerasemanaaño]])

La sintaxis de la función DateDiff consta de los siguientesargumentos con nombre:

Parte Descripción
Intervalo Requerido.Expresión de tipo cadena con el intervalo de tiempo utilizado para calcular la diferencia entre fecha1 y fecha2.
Fecha1, fecha2 Requerido; Variant (Date). Las dos fechas que se van a utilizar en el cálculo.
Primerdíasemana Opcional.Constante que especifica el primer día de la semana. Si no se especifica, se asume que es el domingo.
Primerasemanaaño Opcional. Constante, que especifica la primera semana del año. Si no se especifica, se asume que es aquélla en la que se encuentre el 1 de enero.


Valores

Elargumento intervalo toma los valores siguientes:

Intervalo Descripción
yyyy Año
q Trimestre
m Mes
y Día del año
d Día
w Día de la semana
ww Semana
h Hora
n Minuto
s Segundo


El argumento primerdíasemana toma los siguientes valores:

Constante Valor Descripción
vbUseSystem 0 Utilice la configuración de la API de NLS.
vbSunday 1 Domingo (predeterminado)
vbMonday 2 Lunes
vbTuesday 3 Martes
vbWednesday 4 Miércoles
vbThursday 5 Jueves
vbFriday 6 Viernes
vbSaturday 7 Sábado

Constante Valor Descripción
vbUseSystem 0 Utilice la configuración de la API de NLS.
vbFirstJan1 1 Empieza con la semana en la que se encuentra el 1 de enero (predeterminado).
vbFirstFourDays 2 Empieza con la primera semana que tenga al menos cuatro días en el nuevo año.
vbFirstFullWeek 3 Empieza con la primera semana que esté completamente incluida en el nuevo año.


Comentarios

Puede utilizar la función DateDiff para determinar el número de intervalos especificados que existen entre dos fechas. Por ejemplo, con DateDiff podría calcular el número de días entre dos fechas o el número de semanas entre hoy y el final del año.

Si desea saber el número de días entre fecha1 y fecha2, puede utilizar Día del año ("y") o Día ("d"). Cuando intervalo es Día de la semana ("w"), DateDiff devuelve el número de semanas entre las dos fechas. Si fecha1 es lunes, DateDiff contará el número de lunes hasta fecha2. En la cuenta incluirá fecha2, pero no fecha1. Si intervalo es Semana ("ww"), la función DateDiff devolverá el número de semanas entre las dos fechas. En este caso contará el número de domingos entre fecha1 y fecha2. DateDiff contará fecha2 si es domingo, pero no fecha1, aunque sea domingo.

Si fecha1 se refiere a un momento posterior en el tiempo a fecha2, la función DateDiff devolverá un número negativo.

El argumento primerdíasemana afecta a los cálculos que utilizan "w" y "ww" como símbolos de intervalo.

Si fecha1 o fecha2 es unliteral de fecha, el año, si se especifica, pasará a ser una parte permanente de la fecha. Sin embargo, si fecha1 o fecha2 está comprendida entre comillas dobles ("") y se omite el año, se insertará el año en curso en el código cada vez que se evalúe la expresión fecha1 o fecha2. Así es posible escribir código que se pueda usar en años distintos.

Cuando compara el 31 de diciembre con el 1 de enero del año siguiente, DateDiff para un año ("yyyy") devolverá 1 aunque sólo haya pasado un día.

puedes hacerlo con 2 for anidados:

Código [Seleccionar] Expandir


dim i as integer
dim j as integer
text1.text = ""
for i =1 to 10
     for j = 1 to 10
           text1.text = text1.text & " " & i & " x " & j & " = " & (i*j) & vbcrlf
    next j
next i



podrias usar el format

Código [Seleccionar] Expandir


dim n as string
n = format (1, "0000")


a lo que me referia es a como puedo aplicar la transparencia por ejemplo a un command o a un picture sin que el form se haga transparente

y si usas el evento KeyUp, con eso el codigo del espacio es 32

Código [Seleccionar] Expandir


Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 32 Then MsgBox "presiono la barra de Espacio"
End Sub


no necesitas complicarlo tanto, todo eso lo puedes hacer asi:

Código [Seleccionar] Expandir


privatge sub Form_Resize()
   On local error resume next
   ListView1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - 100 - Command1.Height
    Command1.Move ListView1.Height + 50, Me.ScaleWidth - Command1.Width - 50, command1.Width, Command1.Height
    On Local error goto 0
end sub


La linea "On Local Error resume next" activa el control de errores asi si minimizas el form o lo pones de un tamaño muy pequeño en el que no se pueda ver el control tu programa no fallara. Al final pongo "On Local Error Goto 0" para desactivar el control de errores