<think>我们使用Format函数可以按照指定的格式输出日期字符串。 对于拆分年、月、日，我们可以分别使用： Format(date, "yyyy") 得到四位年份 Format(date, "mm") 得到两位月份（01-12） Format(date, "dd") 得到两位日期（01-31） 对于星期几，我们可以使用： Format(date, "dddd") 得到星期几的全称（如“星期一”） Format(date, "ddd") 得到星期几的简称（如“周一”） 注意：在中文环境下，Format函数会返回中文的星期几。 另外，我们也可以使用Weekday函数来获取星期几对应的数字（1到7，1表示星期日，2表示星期一，...，7表示星期六），然后转换为中文。 但是根据要求，我们使用Format函数来获取。 下面是一个示例代码： 假设我们有一个日期变量 myDate 我们可以这样拆分： Dim myDate As Date myDate = Date ' 当前日期 Dim yearStr As String Dim monthStr As String Dim dayStr As String Dim weekDayFull As String ' 星期几全称 Dim weekDayShort As String ' 星期几简称 yearStr = Format(myDate, "yyyy") monthStr = Format(myDate, "mm") dayStr = Format(myDate, "dd") weekDayFull = Format(myDate, "dddd") weekDayShort = Format(myDate, "ddd") 注意：Format函数返回的是字符串。 另外，我们也可以使用Year, Month, Day函数来获取数值型的年、月、日，但这里要求用Format，所以我们用Format。 但是，如果用户要求拆分出来的是数值，那么需要转换。不过问题没有明确要求，所以我们按字符串输出。 下面是一个完整的示例过程： 我们创建一个过程，将当前日期拆分并输出到立即窗口（使用Debug.Print） </think> 在VBA中使用`Format`函数处理日期时，可以通过指定不同的格式字符串拆分日期元素并获取星期几： ```vba Sub SplitDate() Dim currentDate As Date currentDate = Date ' 获取当前日期 ' 拆分年/月/日 Dim yearPart As String Dim monthPart As String Dim dayPart As String yearPart = Format(currentDate, "yyyy") ' → 2023 monthPart = Format(currentDate, "mm") ' → 08（两位月份） dayPart = Format(currentDate, "dd") ' → 25（两位日期） ' 获取星期几 Dim weekDayFull As String Dim weekDayShort As String weekDayFull = Format(currentDate, "dddd") ' → 星期一（中文全称） weekDayShort = Format(currentDate, "ddd") ' → 周一（中文简称） ' 结果输出示例 Debug.Print "年: " & yearPart Debug.Print "月: " & monthPart Debug.Print "日: " & dayPart Debug.Print "星期: " & weekDayFull End Sub ``` ### 关键语法说明： 1. **年/月/日拆分** - `Format(Date, "yyyy")` → 四位年份 - `Format(Date, "mm")` → 两位月份（01-12） - `Format(Date, "dd")` → 两位日期（01-31） 2. **星期几获取** - `Format(Date, "dddd")` → 中文全称（如`星期一`） - `Format(Date, "ddd")` → 中文简称（如`周一`） *（系统语言为中文时自动返回中文名称）* 3. **完整日期格式化** `Format(Date, "yyyy-mm-dd")` → `2023-08-25`（ISO标准格式）[^1] ### 注意事项： - 若需要数值计算（如月份加减），建议用`Year()`/`Month()`/`Day()`函数获取**数值类型**： ```vba Dim monthNum As Integer monthNum = Month(Date) ' → 8（整数类型） ``` - 星期几的数字表示用`Weekday(Date)`（1=周日, 2=周一,...,7=周六）[^2] ---