❶ 求助按鍵精靈的 日期遞增語句 實現循環輸入20080101..20080102...按日期格式循環下去
方案一、增加一個「日歷」控制項。
讓用戶在裡面選年份、月份、日期。
方案二、把年月日分成三個列表框或組合框或者文本框，
讓用戶分別輸入或選擇。
答案補充：
你非要這樣也行。
一個textbox顯示日期，一個commandbutton用來點擊。
Private Sub Command1_Click()
Dim i As Long
i = CLng(CDate(Text1))
i = i + 1
Text1 = CDate(i)
End Sub
❷ 按鍵精靈中，我在界面的輸入框輸入時間(比如：20:20:13)，然後讓腳本裡面的代碼按這個時間來執行，怎麼弄
s = Plugin.Sys.GetTime()
xs=int(s/1000/60/60)
fz=int(s/1000/60)-xs*60
m=Clng(s/1000)-fz*60-xs*60*60
shijian=xs &":"&fz&":"&m
//Form1.InputBox1.Text為輸入框內容，InputBox1為名稱，或者你的不同需要你改下
If Form1.InputBox1.Text =shijian
End If
❸ js腳本： 在文本框中輸入一個日期值後按確定按鈕後和當前時間比較大小
function check() {
var d = new Date();
//取當前年月日，捨去時分秒
d = new Date(d.getFullYear() + "-" + (d.getMonth() + 1) + "-" + d.getDate());
var d2 = new Date(document.getElementById("txtDate").value);
if (d2 == "Invalid Date") {
alert("非日期");
return;
}
//getTime 從1970.1.1開始的毫秒數
var n = d.getTime() - d2.getTime();
if (n == 0) {
alert("相等");
} else if (n > 0) {
alert("小於當前日期");
} else {
alert("大於當前日期");
}
}
<input id="txtDate" type="text" value="2013-1-17"/>
<input type="button" value="比較" onclick="check()"/>
❹ 用按鍵精靈如何輸入當前日期
思路如下：
得到當前系統時間，保存到變數time。
標記start。
如果time=2010 9 4 8:00則（我的這個時間格式可能不對，還是以按鍵的為准，日期你要寫今天的）。
按"y」鍵一次。
否則跳轉到標記start。
請注意，這只是個思路，而不是源代碼，別把它當成源代碼復制，獲得系統日期的命令插件命令里有。
軟體功能
1、網路游戲中可使用按鍵精靈製作腳本，實現自動打怪，自動補血，自動說話等。
2、辦公族可用按鍵精靈自動處理表格間數據的轉換，自動調整文檔格式、文章排版，自動收發郵件等。
3、利用按鍵精靈實現定時自動打開檢驗網頁鏈接，文獻檢索，收集資料等重復操作。
4、任何只要在電腦前用雙手可以完成的電腦操作都可以替代完成。
❺ 求輸入一個日期自動計算星期幾執行拷貝命令(批處理、腳本都可以）
呵呵,涉及日期計算vbs的是簡便些，我寫個bat的(適用20100101-20120228下面代碼沒去考慮閏年要考慮就又要多許多代碼，估計用不上那長時間吧）
改了一下，建mm月dd日式的文件夾名
@echo off&color f1
setlocal enabledelayedexpansion
::下兩行可改，尾部不要另加\
set sd1=D:\WENJIAN
set sd2=E:
echo 輸入起始日期(yyyymmdd)格式如20100605
set/p da=請核對無誤後回車:
set/a "dy=%da:~,4%-2010"
set/a "dd=%dy%*365+%da:~6,1%*10+%da:~7,1%"
set/a "mm=%da:~4,1%*10+%da:~5,1%"
echo 正在處理，請等候...
set n=1
for %%i in (31 28 31 30 31 30 31 31 30 31 30 31)do (
if !n! lss %mm% (set/a "dd=!dd!+%%i")
if !n! equ %mm% set bdm=%%i
set/a n+=1 )
set/a "dw=(%dd%+4)%%7"
if %dw%==0 set dw=7
set/a "dd=%da:~6,1%*10+%da:~7,1%"
if %mm% lss 10 set "mm=0%mm%"
for /L %%a in (%dd%,1,%bdm%)do (
if %%a lss 10 (set "ymd=%mm%月0%%a日")else set "ymd=%mm%月%%a日"
if not exist "%sd2%\!ymd!" md "%sd2%\!ymd!"
/y "%sd1%\!dw!.xml" "%sd2%\!ymd!\">nul
set/a dw+=1
if !dw!==8 set "dw=1")
set/a "dd=%da:~6,1%*10+%da:~7,1%"
set/a dd-=1
if %dd%==0 goto :eof
if %mm% lss 10 set "mm=%mm:0=%"
set/a mm+=1
if %mm% equ 13 set "mm=1"
if %mm% lss 10 set mm=0%mm%
for /L %%b in (1,1,%dd%)do (
if %%b lss 10 (set "ymd=%mm%月0%%b日")else set "ymd=%mm%月%%b日"
if not exist "%sd2%\!ymd!" md "%sd2%\!ymd!"
/y "%sd1%\!dw!.xml" "%sd2%\!ymd!\">nul
set/a dw+=1
if !dw!==8 set "dw=1")
echo 完成操作！
pause
❻ 按鍵精靈隨機輸入一個范圍內的日期
我使用按鍵精靈8 版本不同語法不同
首先要有一個日期庫，沒有庫的寫法判斷起來挺麻煩
日期庫到下面去下載：
http://www.uushare.com/user/aquan/file/3529613
下載好放在D盤下面 "D:\日期庫.txt" 當然路徑可以自己改 只要路徑與腳本裡面的路徑對應就行。
//以下為腳本
UserVar lowerbound=1 "最早第幾日"
UserVar upperbound=365 "最晚第幾日"
Text = Plugin.File.ReadFileEx("D:\日期庫.txt")
dim MyArray
MyArray = Split(Text, "|")
Dim MyValue, Response
Response = MsgBox (" 從 "&MyArray(lowerbound-1)&" 到 "&MyArray(upperbound-1)&" 隨機？ ", vbYesNo)
Randomize
Do Until Response = vbNo
MyValue = Int((upperbound - lowerbound) * Rnd + lowerbound)
Response = MsgBox ("日期："&Cstr(MyArray(MyValue))&" 繼續隨機？ ", vbYesNo)
Loop
//以上為腳本
如果還有問題請在網路HI里給QQ號或者直接網路HI密我 詳談
❼ 用matlab寫一個腳本：輸入給定年月日，計算這一年已經逝去的天數(包括當天)。
clc;clear
year=input('InsertYear:');
month=input('InsertMonth:');
day=input('InsertDay:');
isleap=@(year)(mod(year,4)==0&(~(mod(year,100)==0)))|mod(year,400)==0;
days=[31,28,31,30,31,30,31,31,30,31,30,31];
whichday=sum(days(1:1:month-1))+day+isleap(year)*1*(month>2||(month==2&&day==29));
fprintf('Thisisthe%dth(st,rd,nd)dayoftheyear! ',whichday)
❽ Shell 腳本cp後給文件加上當天日期,然後根據當天日期判斷,再加上順序數字01 02 03
1、假設你有一堆文件要改名列表
2、例如
#!/bin/sh
cd ./sh
ymd=`date +%Y%m%d`
max=`find . -type f -name '*.sh'|wc|awk '{print $1}'`
x=(`seq -f %02g 1 ${max}`)
i=0
for file in `ls *.sh`;do
file1=$(echo $file|awk -F. '{print $1}')
newfile=$file1-$ymd-${x[$i]}.sh
echo $file $newfile;
/bin/mv $file $newfile;
((i++))
done
3、執行
199.sh 199-20180206-01.sh
204.sh 204-20180206-02.sh
27.sh 27-20180206-03.sh
28.sh 28-20180206-04.sh
76.sh 76-20180206-05.sh
❾ 按鍵精靈自動輸入系統時間
你的按鍵精靈是8還是7 以7為例 請復制腳本
Dim RunTime, RTFormat, InputLen, DiffDate, PromptStr, MyBox, Tittle
Tittle = "[飛龍三少]按鍵精靈定時器"
//〓〓〓〓〓〓☆〓〓〓〓〓〓☆〓〓〓★主程序★〓〓〓☆〓〓〓〓〓〓☆〓〓〓〓〓〓//
Rem 定時器開始
Gosub SetRunTime
Gosub CheckTime
Rem 定時器結束
EndScript
//〓〓〓〓〓〓☆〓〓〓〓〓〓☆〓〓〓★子程序★〓〓〓☆〓〓〓〓〓〓☆〓〓〓〓〓〓//
Sub SetRunTime
PromptStr = "請設置程序定時運行的時間！" &Chr(13)&Chr(13)& "請務必按文本框內格式進行設定！"
//設定時間格式
RTFormat = Date & " " & Hour(Now) & ":" & Minute(Now)
//設置定時運行時間
RunTime = InputBox(PromptStr, Tittle, RTFormat)
InputLen = Len(RunTime)
If InputLen > 0
RunTime = FormatDateTime(RunTime)
PromptStr = "當前定時時間" &Chr(13)&Chr(13)& "確認定時設置並啟動定時器？"
MyBox = Msgbox(PromptStr, 33, Tittle)
If MyBox = 2
Goto 定時器結束
EndIf
Else
PromptStr = "您已取消設置定時！定時器退出！"
MyBox = Msgbox(PromptStr, 48, Tittle)
Goto 定時器結束
EndIf
Return SetRunTime
Sub CheckTime
//計算當前系統時間與定時時間的時間間隔
//間隔60秒以內，開始執行子程序Main的腳本
//若系統時間超過定時時間60秒，定時器退出
//定時器每隔45秒計算一次時間間隔
DiffDate = DateDiff("s",Now,RunTime)
If Abs(DiffDate) <= 60
Gosub Main
ElseIf DiffDate < -60
PromptStr = "當前系統時間已超過定時時間范圍！定時器退出！"
MyBox = Msgbox(PromptStr, 48, Tittle)
Else
Delay 45000
Gosub CheckTime
EndIf
Return CheckTime
Sub Main
KeyPress 65,1
//需要定時運行的腳本入口
Return Main
//復制以上代碼.
//打開按鍵精靈-源文件-粘貼代碼-保存退出
//A鍵已經給你加進去了
//你只需要按F10啟動腳本 然後根據彈出的提示框輸入你要什麼日期什麼時間啟動 就可以
到指定時間後他會按一下A鍵
上面的為設置時間後如果彈出窗口 就表示你設置的生效了 然後刪除語句:MsgBox("現在時間：" & Now & "，開始執行腳本!")