很久没有Coding了，最近为了更好地进行自己的时间管理，在Outlook中写了一点VBA的代码，方便按照任务的重要紧急程度、任务的类型自动把一系列任务优化分配到Outlook的日程表中。其中由于很久没有编码，遇到一些小困难，在这里稍微总结一下，方便未来的自己，也方便大家。

-------------

1、获取日期变量中的日期部分或时间部分的方法；

a)        Today= CDate(Format$(Now, "yyyy-mm-dd")) ‘获取今日，得到一个只有日期没有时间的日期变量。

b)        timePart = CDate(Format$(timePt, "hh:mm:ss")) ‘ 获取特定日期变量timePT的纯时间部分，没有日期信息。方便用于某天之内的时间比较。

2、获取一个特定日期是这个星期的第几天；最后一个参数决定是从周一开始算，还是周日开始算。

a)        dpyWd = DatePart("w", dpyDate, vbMonday)

3、时间指针的移动，增加天，分钟等；

a)        timePt = DateAdd("n", dura, timePt)   ‘时间timePt增加dura分钟；

b)        deployDayP = DateAdd("d", 1, deployDayP)   ‘deployDayP增加1天；

4、比较日期变量和特定的时间（关键是要把时间转换为日期变量）

a)        If timePart >= CDate("11:30:00") And timePart < CDate("13:00:00") Then

5、拼凑一个特定的时间出来；（时间组合）

a)        timePart = CDate("13:00:00")

b)        timePt = CDate(Format$(timePt, "yyyy-mm-dd")) + timePart