① 姹備竴杞浠,鏄剧ず澶╂暟,骞朵笖杩囦竴澶╀細鑷鍔+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