Mensajes

tienes que usar la funcion Val(),

Código (vb) [Seleccionar] Expandir

Variable = val(txtVariable.text)

y no tiene caso que compruebes Variable y txtVariable dos veces. Salu2 

Lo puedes modificar para que se reestablesca

Código (vb) [Seleccionar] Expandir

Private Declare Function GetTickCount Lib "kernel32" () As Long

Dim acTime  As Long

Public Function getTimePassed() As String
Dim timeActual As Long
Dim lngHour As Long
Dim lngMinute As Long
Dim lngSeconds As Long

timeActual = GetTickCount - acTime

lngHour = Int(timeActual / 1000 / 60 / 60)
lngMinute = Int((timeActual / 1000 / 60)) - lngHour * 60
lngSeconds = Int((timeActual / 1000)) - lngMinute * 60 - lngHour * 3600
getTimePassed = Trim(Str(lngHour) & ":" & sGetWideTimeString(lngMinute) & ":" & sGetWideTimeString(lngSeconds)) & vbNullChar
End Function

Public Function sGetWideTimeString(ByVal btInputNumb As Byte) As String
Dim sTemp As String
sTemp = Trim(Str(btInputNumb))
If Len(sTemp) = 1 Then sTemp = "0" & sTemp
sGetWideTimeString = sTemp
End Function

Public Function Reset()
acTime = GetTickCount
End Function


En un formulario:

Código (vb) [Seleccionar] Expandir

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
MsgBox getTimePassed
Module1.Reset
MsgBox getTimePassed
Sleep 3000
MsgBox getTimePassed
Module1.Reset
MsgBox getTimePassed
End Sub


contestan un tema del 2010? 

Todos se basan en investigaciones ya hechas, pueden ser realidad o no la mayoría pura teoría, y hasta que no se demuestre algo 100% verdadero todo lo demás serán falacias 

[seba123neo]

Perfecto!  , gracias seba123neo   

Que tal, hace mucho vi una función que te devolvía el tiempo en el que el mouse o el teclado no habia sido utilizado, es decir sin actividad del usuario..., ahora que la busco no la encuentro pero se usaba una api, no recuerdo cual, alguien sabra algo parecido... creo que se podría hacer un hook y crear mi propio contador, pero es algo que con solo una api se puede, un saludo y gracias de antemano ! 

http://foro.elhacker.net/programacion_visual_basic/pausar_proyecto_en_sub_main-t321304.0.html;msg1588669#msg1588669 

Código (vb) [Seleccionar] Expandir

Public Function DeleteString_TV1(ByVal sString As String, ByVal PosComienzo As Long, ByVal Longitud As Long)
DeleteString = Replace$(sString, Mid(sString, PosComienzo, Longitud), vbNullString)
End Function

Salu2

Tu código tiene un error, la función no devuelve nada, revísalo.
Mira qué interesante, voy a hacer un reto de esto.

DoEvents!

Lo hize especialmente con sub  , de todas formas es un ejemplo...

Algo rápido y eficaz 

Código (vb) [Seleccionar] Expandir

Public Sub DeleteString(ByRef Str As String, ByRef Begin As String, ByRef EndS As String)
Dim P           As Long
Dim P2          As Long

        P = InStr(1, Str, Begin)
        P2 = InStr(P, Str, EndS)
       
        If (Not (CBool(P)) Or Not (CBool(P2))) Then
            Exit Sub
        End If
       
        Str = Mid(Str, 1, P - 1) & Mid(Str, P2 + Len(EndS), Len(Str))
       
End Sub


Uso:

Código (vb) [Seleccionar] Expandir

Dim A As String
A = "Este es un 345 aaa 661 ejemplo"
MsgBox A
DeleteString A, "45", "66"
MsgBox A