Dim valor
Valor1 = 0.0417083
Valor2=2616
valor=valor1*valor2
 
If  valor < 10 then
    "El valor es MENOR a diez "
Else
   document.write( "El valor es MAYOR a diez " & valor)
End if

@echo off
Title QPFile to Chapter´s Timecodes
 
@ECHO OFF
For /f "usebackq tokens=1" %%A IN (
	"C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.txt"
) DO (
	call:timecode %%A
 
)
Goto:finish
 
:timecode
Set /a reg=%1
Echo %reg%
set /a const=0.0417083
set /a reg=%reg%*%const%
Echo %reg%
 
	::Mensaje de error
	IF %reg% GEQ 216000 (color 4E & echo Error. Un video no puede tener una duracion continua igual a un o mas días.)
 
	::Calculo de timecodes partiendo de horas
	IF %reg% GEQ 3600 (echo hola 1) 
 
	::Calculo de timecodes partiendo de minutos
	IF %reg% LSS 3600 (IF %reg% GEQ 60 (echo hola 2))
 
	::Calculo de timecodes partiendo de segundos.
	IF %reg% LSS 60 (IF %reg% GEQ 0 (echo hola 3))
Pause
Goto:eof
 
:finish
Pause&exit

@echo off
SetLocal EnableDelayEdexpansion
 
@ECHO OFF
FOR /F "usebackq tokens=1" %%A IN (
	"C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.txt"
) DO (
	call:timecode %%A
 
)
goto:finish
 
:timecode
SET /a Reg="%1"
echo %reg%
goto:eof
 
:finish
pause&exit

@echo off
SetLocal EnableDelayEdexpansion
 
@ECHO OFF
FOR /F "tokens=*" %%A IN ("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.txt") DO CALL:Tratar "%%A"
GOTO:EOF
 
:Tratar
   SET Reg=%~1
   ECHO %Reg%
   GOTO:EOF
 
pause&exit

0 K -1
2616 K -1
16072 K -1
16384 K -1
32440 K -1
34768 K -1