VB.NET中如何向二维DateTime类型数组添加日期值

你声明的Dim dates As DateTime(,) = {}是零长度空二维数组，未分配实际存储区间，无法直接通过索引写入值，需要先指定数组维度大小再完成赋值，根据两个日期的存储结构不同，操作方式如下：

• 1行2列结构（适合存储单组关联双日期，比如开始时间、结束时间）
  VB.NET中二维数组的ReDim语法参数规则为(最大行索引, 最大列索引)，数组索引从0开始计数，1行2列对应的维度参数为(0,1)，实现代码：

  Dim dates As DateTime(,) = {}
  ' 重定义数组维度为1行2列
  ReDim dates(0, 1)
  ' 写入两个日期值
  dates(0, 0) = New DateTime(2024, 1, 1)
  dates(0, 1) = New DateTime(2024, 12, 31)
  

• 2行1列结构（适合存储两组独立的单日期记录）
  对应维度参数为(1,0)，实现代码：

  Dim dates As DateTime(,) = {}
  ' 重定义数组维度为2行1列
  ReDim dates(1, 0)
  ' 写入两个日期值
  dates(0, 0) = New DateTime(2024, 5, 1)
  dates(1, 0) = New DateTime(2024, 6, 1)
  

补充提示：如果重定义维度时需要保留数组内已经存储的原有数据，把ReDim替换为ReDim Preserve即可；如果业务逻辑不需要提前声明空数组再后续赋值，也可以在声明阶段直接完成初始化，写法更简洁：

' 声明时直接初始化1行2列的带值数组
Dim dates As DateTime(,) = {{New DateTime(2024, 1, 1), New DateTime(2024, 12, 31)}}

内容的提问来源于stack exchange，提问作者Marko