Histórico da Página

...

Realizamos una prueba comparando los dos desempeños en una repetición de 100.000 veces.

Tiempo utilizado con la función ValType: 0.093.

Tiempo utilizado con la función Type con declaración de una variable local: 3.859.

Tiempo utilizado con la función Type sin declaración de una variable local: 3.859.

 // TypeVsValTypeTest.prw
#INCLUDE "TOTVS.CH"
Static nVezes := 100000 // Número de repeticiones
// Llama la función por separado probando cada escenario
Function TypeVsValTypeTest()
// Prueba la función ValType
TestValType()
// Prueba la función Type
TestType()
// Prueba la función type sin declarar la variable
TestNValType()
Return
// Prueba la función ValType
Static Function TestValType()
Local cTeste // Variable de prueba
Local cRet := "" // Retorno de la función ValType
Local nX := 1 // Contador para la repetición
Local nSeconds:= Seconds() // Almacena segundos inicial
For nX := 1 To nVezes
cRet := ValType(cTeste)
Next nX
ConOut("Tiempo de llamada utilizando la función ValType " + AllTrim(Str(Seconds() - nSeconds) ))
Return
// Prueba la función Type
Static Function TestType()
Local nX := 1 // Contador para la repetición
Local nSeconds := Seconds() // Almacena segundos inicial
Local cRet := "" // Retorno de la función ValType
Local cTeste // Variable de prueba
For nX := 1 To nVezes
cRet := Type("cTeste")
Next nX
ConOut("Tiempo de llamada utilizando la función Type con declaración de la variable" + AllTrim(Str(Seconds() - nSeconds) ))
Return
// Prueba la función type sin declarar la variable
Static Function TestNValType()
Local nX := 1 // Contador para la repetición
Local nSeconds := Seconds() // Almacena segundos inicial
Local cRet := "" // Retorno de la función ValType
For nX := 1 To nVezes
cRet := Type("cTeste")
Next nX
ConOut("Tiempo de llamada utilizando la función Type sin declarar la variable" + AllTrim(Str(Seconds() - nSeconds) ))
Return