【文章內(nèi)容簡介】
為空 If Time = TimeValue(Save(I, 0)) Then MsgBox Save(I, 1) 39。如果現(xiàn)在時間等于P(i,0)存儲的時間,則彈出消息框“主題 回車 內(nèi)容”,timevalue函數(shù)將P(i,0)文本轉(zhuǎn)化成時間值 Else Exit For 39。如果提醒記錄為空則退出循環(huán) End If NextElse For I = 0 To 50 If Save(I, 0) Then If CDate(Save(I, 0)) = Now Then MsgBox Save(I, 1) 39。將P(i,0)強制轉(zhuǎn)化成日期格式,如果等于現(xiàn)在日期,則彈出消息框 Else