' 呼叫 日期 eg 2月 14日 ==> 0214
' 11:56 2005/3/9
' CC.HSIEH
'dim
dim strm,strd,strToday,stry
call datt
msgbox strToday
'sub program
sub datt
stry = DatePart("yyyy",Date())
stry = mid(stry,3,2)
strm = DatePart("m",Date())
If len(trim(strm)) = 1 Then
strm = "0" & strm
end if
strd = DatePart("d",Date())
If len(trim(strd)) = 1 Then
strd = "0" & strd
end if
strToday = stry & strm & strd
end sub
2007年11月27日 星期二
訂閱:
張貼留言 (Atom)
RHEL install EPEL
https://www.linuxtechi.com/install-epel-repo-on-rhel-system/ EPEL dnf install -y https://dl.fedoraproject.org/pub/epel/epel-release-latest...
-
下載 出處 下載網址: http://tinyurl.com/plodb56 Step 1 下載取得「Windows10TweakTool」並解壓縮,在壓縮出的「Windows10SettingTool.bat」上按一下滑鼠右鍵,點擊選單中的【以系統管理員身分...
-
' 呼叫 日期 eg 2月 14日 ==> 0214 ' 11:56 2005/3/9 ' CC.HSIEH 'dim dim strm,strd,strToday,stry call datt msgbox strToday ...
-
1 關掉DB isqlplusctl stop emctl stop dbconsole lsnrctl stop sqlplus / as sysdba SQL > shutdown immediate 2 備份DB HOME cdOH ...
沒有留言:
張貼留言