vba伺服器怎麼獲得時間
A. [Excel VBA] 如何獲取北京時間
Sub abc()
Dim a, b, c As String '定義變數
a = Date '當前年月日
b = Time '當前時間
c = Now '當前年月日 和 時間
MsgBox a & b & c '顯示 a ，b ，c
End Sub
B. VBA中 怎麼獲得時間的毫秒數 用time只能得到秒，毫秒怎麼算出來啊
系統自帶的now 或者Timer函數都只能獲取到秒，一個相關的API，使用Windows API的winmm.dll其中的timeGetTime 可以獲得毫秒數，這個值是從開機到現在的毫秒數。
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub btnTest_Click()
Dim StartMS As Long
Dim EndMS As Long
Dim MS As Long
StartMS = timeGetTime() '開始毫秒數
While timeGetTime < StartMS + 200 '循環等待
DoEvents '轉讓控制權，以便讓操作系統處理其它的事件
Wend
EndMS = timeGetTime() '結束毫秒
MS = EndMS - StartMS '取兩者相差的毫秒數
MsgBox "毫秒數:" & MS
End Sub
While timeGetTime < StartMS + 200 '循環等待
DoEvents '轉讓控制權，以便讓操作系統處理其它的事件
Wend
上面三句代碼網友可以更換成自己實際計算過程的代碼。
C. VBA 中 如何獲取當前系統時間 執行動作 aa，大俠寫寫代碼！
Do
If Minute(Now) Mod 5 = 3 And Second(Now) = 30 Then aa
n = Timer
Do
DoEvents
Loop While n = Timer
Loop
D. excel vba 獲取日期
用Format格式化函數：Format(x, "YYYY-MM-DD")
Format有2個參數，參數1是時間，參數2是格式化樣式。
E. 用VBA獲取指定計算機上的系統時間
OptionExplicit
"Netapi32.dll"(_
tServerAsAny,pBufferAsLong)AsLong
PrivateTypeSYSTEMTIME
wYearAsInteger
wMonthAsInteger
wDayOfWeekAsInteger
wDayAsInteger
wHourAsInteger
wMinuteAsInteger
wSecondAsInteger
wMillisecondsAsInteger
EndType
PrivateTypeTIME_ZONE_INFORMATION
BiasAsLong
StandardName(32)AsInteger
StandardDateAsSYSTEMTIME
StandardBiasAsLong
DaylightName(32)AsInteger
DaylightDateAsSYSTEMTIME
DaylightBiasAsLong
EndType
"kernel32"(lpTimeZoneInformationAsTIME_ZONE_INFORMATION)AsLong
"Netapi32.dll"(ByVallpBufferAsLong)AsLong
PrivateTypeTIME_OF_DAY_INFO
tod_elapsedtAsLong
tod_msecsAsLong
tod_hoursAsLong
tod_minsAsLong
tod_secsAsLong
tod_hundsAsLong
tod_timezoneAsLong
tod_tintervalAsLong
tod_dayAsLong
tod_monthAsLong
tod_yearAsLong
tod_weekdayAsLong
EndType
"kernel32"Alias"RtlMoveMemory"(DestinationAsAny,SourceAsAny,ByValLengthAsLong)
PublicFunctiongetRemoteTOD(ByValstrServerAsString)AsDate
DimresultAsDate
DimlRetAsLong
DimtodAsTIME_OF_DAY_INFO
DimlpbuffAsLong
DimtServer()AsByte
tServer=strServer&vbNullChar
lRet=NetRemoteTOD(tServer(0),lpbuff)
IflRet=0Then
CopyMemorytod,ByVallpbuff,Len(tod)
NetApiBufferFreelpbuff
result=DateSerial(tod.tod_year,tod.tod_month,tod.tod_day)+_
TimeSerial(tod.tod_hours,tod.tod_mins-tod.tod_timezone,tod.tod_secs)
getRemoteTOD=result
Else
Err.RaiseNumber:=vbObjectError+1001,_
Description:="cannotgetremoteTOD"
EndIf
EndFunction
PrivateSubCommand1_Click()
DimdAsDate
d=getRemoteTOD("\192.168.0.9")
MsgBoxd
EndSub
F. VBA讀取系統時間代碼寫好又怎麼操作
你寫的這個代碼，是每次打開文件的是時候顯示當前時間。如果你需要執行，可以關閉文件，再次打開，就能看見執行的效果。
G. Excel 怎麼用vba取時間的小時和時間
樓主的需求請再明確下
去時間的小時，是將時長換算成小時，還是將某個時間的"小時」提取出來
取小時是hour，分鍾minute