① 奼備竴杞浠,鏄劇ず澶╂暟,騫朵笖榪囦竴澶╀細鑷鍔+1
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>cha0</title>
</head>
<body bgcolor="#000000">
<FONT style="FONT-SIZE: 20pt; FILTER: shadow(color=#14789F,strength=8); WIDTH: 100%; COLOR: #D5E7F5; LINE-HEIGHT:160%; FONT-FAMILY: 寰杞闆呴粦">
濡誨瓙鎬瀛曡℃椂
2008騫1鏈18鍙
<FONT style="FONT-SIZE: 20pt; FILTER: shadow(color=#13467F,strength=8); WIDTH: 100%; COLOR: #D5E7F5; LINE-HEIGHT: 160%; FONT-FAMILY: 寰杞闆呴粦">
<br>
<span id="span_dt_dt" ></span>
<SCRIPT language=javascript>
<!--
//document.write("");
function show_date_time(){
window.setTimeout("show_date_time()", 1000);
BirthDay=new Date("1-18-2008");//榪欎釜鏃ユ湡鏄鍙浠ヤ慨鏀圭殑 錛屽紑濮嬫椂闂
today=new Date();
timeold=(today.getTime()-BirthDay.getTime());
sectimeold=timeold/1000
secondsold=Math.floor(sectimeold);
msPerDay=24*60*60*1000
e_daysold=timeold/msPerDay
daysold=Math.floor(e_daysold);
e_hrsold=(e_daysold-daysold)*24;
hrsold=Math.floor(e_hrsold);
e_minsold=(e_hrsold-hrsold)*60;
minsold=Math.floor((e_hrsold-hrsold)*60);
seconds=Math.floor((e_minsold-minsold)*60);
span_dt_dt.innerHTML="榪囦簡"+daysold+"澶"+hrsold+"灝忔椂"+minsold+"鍒"+seconds+"縐";
}
show_date_time();
//-->
</SCRIPT> </FONT>
</td>
</p>
</body>
</html>
灝嗕笂闈㈢殑浠ｇ爜澶嶅埗綺樿創鍒頒竴涓璁頒簨鏈鏂囦歡涓淇濆瓨錛岀劧鍚庡皢璁頒簨鏈鏂囦歡鐨勫悗緙.TXT鏀規垚html淇濆瓨錛岃╁悗灝嗕綘鐨勬岄潰璁炬垚榪欎釜緗戦〉鏂囦歡鍗沖彲
鎵撳紑鏄鏃跺傛灉鏈夋姤璀︽彁紺洪夋嫨鍏佽歌繍琛岃剼鏈
② flash 點擊一下 數字自動加1的代碼怎麼寫啊越簡單越好！！
用文本工具在舞台上拉個框，在屬性中設置成動態文本，取個名字叫q1
然後內在第容1幀的動作里設置
a=0;
q1.text=0;
然後在舞台上放個按鈕，在按鈕的動作里輸入
on(press)
{
a=a+1;
q1.text=a;
}
我已經調試通過，你試一下吧
③ excel 鑷鍔ㄧ紪鍙 濡 "FJF-褰撳墠鏃墮棿-001" 姣忔墦鍗頒竴嬈 鍚庨潰鐨勬暟瀛楄嚜鍔+1
閫氳繃瀹忔潵澶勭悊銆
浠Excel 2003涓轟緥錛岄氳繃鍗曞嚮鑿滃崟鈥滃伐鍏/瀹/Visual Basic緙栬緫鍣ㄢ濇墦寮浠ｇ爜紿楀彛錛屽弻鍑誨乏渚у伐紼璧勬簮綆＄悊鍣鍒楄〃涓鐨勨淭hisWorkbook鈥濓紝灝嗕互涓嬩唬鐮佺矘璐磋繘鍙充晶鐨勪唬鐮佺紪杈戝尯錛屽嵆鍙瀹屾垚鍑嗗囧伐浣溿
浣跨敤鏃訛紝鍙闇瑕侀氳繃鑿滃崟鈥滃伐鍏/瀹/瀹忊滄墽琛屸淚ncrementPrint鈥濆嵆鍙瀹屾垚浠誨姟銆
璇存槑錛
1銆佷互涓嬩唬鐮佷互鈥渟heet1鈥濊〃涓烘搷浣滆〃錛屽傛灉鎮ㄧ殑琛ㄦ牸鍚嶇О涓嶇浉鍚岋紝璇峰皢浠ｇ爜涓鐨勨渟heet1鈥濆叏閮ㄦ浛鎹涓烘偍鐨勮〃鍚嶃
2銆佷互涓嬩唬鐮佷互A7鍗曞厓鏍兼紨紺鴻嚜鍔ㄩ掑炲簭鍙鳳紝濡傛灉闇瑕佹搷浣滅殑鍗曞厓鏍奸潪姝ゅ崟鍏冩牸錛岃峰皢浠ｇ爜鈥淐ells(7, 1)鈥濇嫭鍙蜂腑鐨勬暟瀛楄嚜琛屾浛鎹錛7 浠ｈ〃絎7琛岋紱1錛滱鍒楋紝2錛滲鍒楋紝3錛滳鍒椻︹︿緷姝ょ被鎺錛
3銆佽冭檻鍒版牸寮忥紝鑷鍔ㄩ掑炴渶澶у埌999銆
'浠ヤ笅涓洪渶瑕佸嶅埗鐨勪唬鐮
Private Sub Workbook_Open()
'鎵撳紑琛ㄦ牸鏃舵牸寮忓寲A7鍗曞厓鏍煎唴瀹
Dim Str1 As String
Str1 = CStr(Sheet1.Cells(7, 1).Value)
'綆鍗曞垽鏂鍗曞厓鏍
'闈為渶瑕佹牸寮忓唴瀹瑰垯鑷鍔ㄥ～鍐
If Len(Str1) <> 18 Then
Sheet1.Cells(7, 1) = "FJF-" & Format(Now, "yyyy-mm-dd") & "-001"
Exit Sub
End If
'褰撳ぉ鍐嶆℃墦寮姝よ〃鏃朵繚鐣欏師鏉ュ崟鍏冩牸鍐呭
If Mid(Str1, 5, 10) <> Format(Now, "yyyy-mm-dd") Then
Sheet1.Cells(7, 1) = "FJF-" & Format(Now, "yyyy-mm-dd") & "-001"
End If
End Sub
Sub IncrementPrint()
'鏈紺轟緥浠ｇ爜灝嗗疄鐜皊heet1鐨凙7鍗曞厓鏍兼瘡鎵撳嵃涓浠藉悗鑷鍔ㄦ牸寮忓寲閫掑
On Error GoTo handerr
Dim i As Integer
Dim j As Integer
Dim No1 As Integer
Dim Str1 As String
Str1 = InputBox("璇瘋緭鍏ラ渶瑕佹墦鍗扮殑浠芥暟錛", "鎵撳嵃浠芥暟")
If IsNumeric(Str1) = False Or Val(Str1) < 1 Then
MsgBox "娌℃湁杈撳叆鏈夋晥浠芥暟錛屾搷浣滆鍙栨秷錛", vbInformation, "鎻愮ず"
Exit Sub
End If
i = Int(Val(Str1))
If i > 999 Then
MsgBox "鎵撳嵃浠芥暟鏈澶у彧鏀鎸 999 浠斤紝鎿嶄綔琚鍙栨秷錛", vbInformation, "鎻愮ず"
Exit Sub
End If
With Sheet1
'鍏堟墦鍗幫紝鍚庨掑
For j = 1 To i
.PrintOut
Str1 = CStr(.Cells(7, 1).Value)
Str1 = Right(Str1, 3)
Str1 = Format(Val(Str1) + 1, "000")
.Cells(7, 1) = "FJF-" & Format(Now, "yyyy-mm-dd") & "-" & Str1
Next
End With
Exit Sub
handerr:
MsgBox Err.Description, vbInformation, "閿欒鎻愮ず"
End Sub