中国股市开盘时间从早9:30~11:30,下午从13:00~15:00
目标，随便输入个开盘中的时间(hh:mm),完成输入时间相加8 13 21 34 55 89 144后所得的时间,并把超过收盘的时间自动定位到下一个开盘时间.
例如,输入14:20后,正确所得如下:
推算数列: 8 13 21 34 55 89 144
时间周期: 14:28 14:33 14:41 14:54 9:45 10:19 11:14
我花了3个半小时的时间做出来的,有能力的可以试下
---------------------------------------------------------------------------------
中国股市开盘时间:上午9:30~11:30 下午13:00~15:00
输入预推算时间周期: 14:20
输入的时间为:14:20
推算数列: 8 13 21 34 55 89 144
时间周期: 14:28 14:33 14:41 14:54 9:45 10:19 11:14
@echo off
mode con cols=78 lines=10
setlocal enabledelayedexpansion
title 时间周期推算工具
:lpStart
set D=8 13 21 34 55 89 144
::s为输入时间 hh为小时 mm为分 n为总分钟数
cls&set s= && set str=
echo 中国股市开盘时间:上午9:30~11:30 下午13:00~15:00&echo.
set /p s=输入预推算时间周期:
for /f "tokens=1,2 delims=:" %%i in ('echo !s!') do set hh=%%i &set mm=%%j
set /a n=!hh! * 60 + !mm!
::判断下输入的时间是否为开盘时有效时间,不是则重定向
if !mm! geq 60 goto lpStart
if not defined hh goto lpStart
if not defined mm goto lpStart
if !n! geq 690 if !n! lss 780 echo.&echo 此时为中午休市时间 & pause>nul & goto lpStart
if !n! gtr 900 echo.&echo 此时为收盘休市时间 & pause>nul & goto lpStart
if !n! lss 570 echo.&echo 此时为开盘前休市时间 & pause>nul & goto lpStart
echo 输入的时间为:!s!&echo.
echo 推算数列: !D!
::将时间相加处理后得到总分数ZT
for %%i in (!D!) do (
set /a ZT=!n! + %%i
rem 此时为上午开盘时间
if !ZT! geq 570 if !ZT! leq 690 call :subTimeTurn !ZT!
rem 此时为下午开盘时间
if !ZT! geq 780 if !ZT! leq 900 call :subTimeTurn !ZT!
rem 此时为中午休市时间
if !ZT! geq 690 if !ZT! leq 780 set /a ZT+=90 && call :subTimeTurn !ZT!
rem 此时为收盘休市时间
if !ZT! gtr 900 set /a ZT-=330 && call :subTimeTurn !ZT!
)
echo.&echo 时间周期:!str!
pause>nul&goto lpStart
:subTimeTurn
set x=
set y=
set /a x=%1 / 60
set /a y=%1 - !x! * 60 -1
set str=!str! !x!:!y!
goto :eof
Last edited by bluewaterx on 2010-11-26 at 19:03 ]
