在Excel中写入日期程序可以通过以下几种方法：
使用快捷键
输入当前日期：选中单元格，按下 `Ctrl + ；`（分号）即可插入当前日期。
输入当前时间：选中单元格，按下 `Ctrl + Shift + ；`（分号）即可插入当前时间。
使用函数
输入当前月份：在单元格中输入 `=MONTH（TODAY（））`，然后按回车键即可得到当前月份。
输入当前年月日：在单元格中输入 `=NOW（）`，然后按回车键即可得到当前年月日以及时间。
自动填充日期
通过VBA宏实现自动填充日期序列。首先，打开VBA编辑器，编写如下代码并运行宏：
```vba
Sub AutoFillDate（）
Dim startDate As Date
Dim endDate As Date
Dim cell As Range
startDate = InputBox（"请输入起始日期 （YYYY-MM-DD）:", "起始日期"）
endDate = InputBox（"请输入结束日期 （YYYY-MM-DD）:", "结束日期"）
If startDate > endDate Then
MsgBox "起始日期不能大于结束日期!", vbExclamation
Exit Sub
End If
For Each cell In Range（"A1:A" & DateDiff（"d", startDate, endDate） + 1）
cell.Value = startDate
startDate = startDate + 1
Next cell
End Sub
```
设置单元格格式
选中要输入日期的单元格，右击选择“设置单元格格式”，在“数字”选项卡下选择“日期”，然后选择或自定义日期格式。
使用日期分隔符
直接输入日期，如“2023/04/01”或“2023-04-01”，Excel会自动识别并转换为日期格式。
这些方法可以根据具体需求选择使用，以提高输入效率并确保日期格式正确。