vba怎么比较时间大小? Excel VBA中日期怎么比较大小
Excel VBA \u600e\u6837\u8fdb\u884c\u65f6\u95f4\u6bd4\u8f83\u5927\u5c0f\u53ea\u8981\u662f\u65f6\u95f4\u683c\u5f0f\u53ef\u4ee5\u7528if\u76f4\u63a5\u6bd4\u8f83\u3002
\u4f8b\u5982\u4e0b\u9762\u8fd9\u4e2a\u81ea\u5b9a\u51fd\u6570\u5c31\u662f\u6c42\u4e24\u4e2a\u65f6\u95f4\u4e2d\u54ea\u4e00\u4e2a\u65f6\u95f4\u6700\u63a5\u8fd1\u5f53\u524d\u65e5\u671f\uff1a
Function TimeCompared(a as date,b as date) as date
if a>=b then
TimeCompared=a
else
TimeCompared=b
end if
End Function
Sub test() \u2018\u51fd\u6570\u7684\u8c03\u7528
dim a as date,b as date
a="2007-7-1 11:20:00":b="2007 -7-2 14:25:14" '\u683c\u5f0f\u4e00\u6837\u65f6
'\u5f53"17:25:36"\u4e0e\u201c2007-1-5 05:25:39\u201d\u8fdb\u884c\u6bd4\u8f83\u65f6\uff0c\u201c17:25:36\u201d\u5c06\u88ab\u9ed8\u8ba4\u4e3a1899\u5e7412\u670830\u65e5\u768417\u70b925\u520636\u79d2
Msgbox TimeCompared\uff08a,b\uff09
end sub
\u4eb2\uff0c\u533a\u522b\u5927\u4e86~~~~~\u9996\u5148\u8981\u641e\u6e05\u695a\u4f60\u7684time\u662f\u4ec0\u4e48\u7c7b\u578b\uff1f \u5982\u679ctime\u662f\u5b57\u7b26\u578b\uff0c\u624d\u80fd\u8fd9\u4e48\u6bd4\u8f83\uff1atime>"09:00:00"\uff0c\u800c\u4e14\u8fd9\u4e2a\u6bd4\u8f83\u5b9e\u9645\u662f\u5b57\u7b26\u4e32\u7684\u6bd4\u8f83\uff0c\u6bd4\u7684\u662f\u5185\u90e8code\u7801\uff0c\u4e0d\u662f\u771f\u6b63\u7684\u65f6\u95f4\u3002 \u5982\u679ctime\u662f\u65f6\u95f4\u7c7b\u578b\uff0c\u6216\u8005\u6570\u503c\u7c7b\u578b\uff0c\u624d\u80fd\u7528\uff1atime>timevalue("09:00:00")\u3002\u8fd9\u4e2a\u6bd4\u8f83\u7684\u662f\u65f6\u95f4\uff0c\u53ea\u4e0d\u8fc7\u8f6c\u4e3a\u4e86\u5bf9\u5e94\u7684\u65f6\u95f4\u6570\u503c\uff0c\u518d\u6bd4\u8f83\u3002 time>Cdate("09:00:00")\uff0c\u795e\u9a6c\u610f\u601d\uff1f\uff1fCDATE\u662f\u628a\u5b57\u7b26\u4e32\u8f6c\u6362\u6210\u65e5\u671f\uff0c\u548b\u548c\u65f6\u95f4\u626f\u4e0a\u6ef4\uff1f
将代表时间的冒号替换为小数点就可以比较大小了如8:20和5:34分别在单元格A1、A2，这两单元格的格式为文本
代码类似于
If Val(Replace([a1], ":", ".")) < Val(Replace([a2], ":", ".")) Then
这个你的意思是两这之间的距离，？还是其他一起的大小啊，？有点乱，？具体的不太理借
绛旓細Sub a()Dim nR As Long nR = Range("E65535").End(xlUp).Row i = 2 Do While i <= nR If Range("E" & i).Value > CDate(Int(Now())) + TimeValue("10:00") Then Range(i & ":" & nR).Clear Else i = i + 1 End If Loop End Sub ...
绛旓細鐩镐俊浣跨敤鏉′欢鏍煎紡锛屾槸鏈绠鍗曠殑銆傞夊畾鏁板垪1锛屽啀渚濇閫夋嫨鑿滃崟 鏍煎紡 鏉′欢鏍煎紡 寮瑰嚭鏉′欢鏍煎紡瀵硅瘽妗 绗竴涓笅鎷夋閫 鍏紡锛屽悗闈㈡涓緭鍏 =COUNTIF($B$2:$B$15,"=" & $A2)=0 鏍煎紡鍐嶉夋嫨涓嬭嚜宸卞枩娆㈢殑 涓嬮潰鍥炬槸涓畝鍗曚緥瀛
绛旓細鏂规硶涓锛氱涓姝ワ紝鑾峰彇鐜板湪鏃堕棿锛屽叕寮忥細=now()绗簩姝ワ紝鍒ゆ柇鏃堕棿娈碉紝鍏紡锛=IF(AND(HOUR(B8)>17,HOUR(B8)<21),"A","C")鏂规硶浜岋細鍏紡锛=IF(AND(HOUR(NOW())>17,HOUR(NOW())<21),"A","C")
绛旓細渚嬪瓙浠ｇ爜锛歄ption ExplicitSub 瀹1() Dim h, s h = Hour(Now) If h < 9 Then s = "" ElseIf h < 12 Then s = "鏃" ElseIf h < 18 Then s = "涓" ElseIf h < 22 Then s = "鏅" End If MsgBox sEnd Sub ...
绛旓細鍙互浣跨敤VB鎻愪緵鐨凞ateDiff锛堬級鍑芥暟:Dim d1 As Date Dim d2 As Date Dim MyH As Integer d1 = Excel.Application.ActiveWorkbook.Sheets("Sheet1").Cells(1, 2)d2 = Excel.Application.ActiveWorkbook.Sheets("Sheet1").Cells(1, 3)MyH = DateDiff("h", d1, d2)MsgBox MyH ...
绛旓細鍦╡xcel涓眰寮濮鏃堕棿鍜岀粨鏉熸椂闂村ぇ浜2灏忔椂锛屽苟鎻愮ず锛屼富瑕佹槸涓涓崲绠楃殑浜嬶紝鍥犱负璇存槑涓嶆槸寰堟竻妤氾紝鎵浠ヤ篃涓嶇煡閬撲綘鍏蜂綋闇姹傦紝鍥犳鏍规嵁鎴戠殑鐞嗚В鍋氬嚭涓ょ鏂规锛氱涓绉嶆柟妗堬細缁撴潫鏃堕棿鍑忓紑濮嬫椂闂村ぇ浜2灏忔椂銆=IF((C2-B2)*24<2,"灏忎簬2灏忔椂","澶т簬2灏忔椂")杩欓噷涔24鏄洜涓洪渶瑕佸皢涓澶╂崲绠楁垚灏忔椂銆傜浜岀鏂规锛氬悓...
绛旓細涓嬮潰鐨勪唬鐮佹弧瓒充綘鐨勮姹傦細Option ExplicitSub ygb() Dim db '鏁版嵁搴擄細骞村害->(0鏈灏忓硷紝1鏈灏忓鏃堕棿锛2鏈澶у硷紝3鏈澶у兼椂闂) Dim i, j, y, x, t, arr '鎵弿鐢熸垚鏁版嵁搴 Set db = CreateObject("Scripting.Dictionary") arr = Range("a1").CurrentRegion For i = 1 ...
绛旓細涓銆佹帓搴 鎶婃暟鎹寜鐓т富鍏抽敭瀛桝鍒楀崌搴忋佺浜屽叧閿瓧B鍒楀崌搴忔帓鍒楋紝瑕侀夎彍鍗曢噷闈㈢殑鎺掑簭锛屼笉鑳界洿鎺ョ偣蹇嵎鎸夐挳銆備簩銆佸啓鍏紡锛屽彲浠ュ湪C鍒楅噷闈㈠啓鍏紡锛屼緥濡侰1鐨勫叕寮忎负锛=IF(AND(A1=A2,ROUND((B2-B1)*24*60,0)=5),"5鍒嗛挓","")涓夈佹嫋鍔–1鐨勫叕寮忓～鍏匔鍒楋紝鎴栬呭鍒禖1鍗曞厓鏍肩矘璐村埌C鍒楁墍鏈夊崟鍏冩牸涓婏紝...
绛旓細姣斿璁剧疆涓や釜textbox text1鍜宼ext2锛岀▼搴忚繍琛屾椂杈撳叆涓や釜鏃ユ湡锛屾寜 骞-鏈-鏃 鏃:鍒:绉 鐨勬牸寮忔潵杈撳叆锛岀劧鍚庣偣鍑籧ommand1鏉ヨ绠 Private Sub Command1_Click()MsgBox (CDate(Text1.Text) - CDate(Text2.Text)) * 24 End Sub 鍏堟妸 text杞崲鎴恉ate锛屽啀璁＄畻锛岀粨鏋滄槸浠ュぉ鏉ヨ绠楃殑锛*24锛岃浆鎴愬皬鏃...
绛旓細鏈杩戠殑灏辨槸鏁板 鏈澶 鐨
