VB中设置一个变量用来获取日期把每个获取到的日期储存到ini文件中

在VB中，你可以使用DateTime.Now来获取当前日期，然后使用Ini文件操作库来将获取到的日期储存到ini文件中。

首先，你需要添加对Ini文件操作库的引用。可以在VB的项目中通过右键点击"引用"，然后选择"添加引用"，在弹出的对话框中搜索并选择"Microsoft.VisualBasic"。

接下来，你可以使用以下代码来获取当前日期并将其存储到ini文件中：

Imports Microsoft.VisualBasic.FileIO

' 获取当前日期
Dim currentDate As String = DateTime.Now.ToString("yyyy-MM-dd")

' 将日期写入ini文件
Dim iniFilePath As String = "path_to_ini_file.ini"

Dim parser As New TextFieldParser(iniFilePath)
parser.TextFieldType = FieldType.Delimited
parser.SetDelimiters("=")

Dim iniData As New List(Of String())()

While Not parser.EndOfData
    Dim fields As String() = parser.ReadFields()
    iniData.Add(fields)
End While

parser.Close()

' 更新或添加日期到ini文件
Dim section As String = "Settings"
Dim key As String = "Date"
Dim value As String = currentDate

Dim existingKey As Integer = -1

For i As Integer = 0 To iniData.Count - 1
    If iniData(i)(0) = section AndAlso iniData(i)(1) = key Then
        existingKey = i
        Exit For
    End If
Next

If existingKey >= 0 Then
    ' 更新日期
    iniData(existingKey)(2) = value
Else
    ' 添加新的日期
    iniData.Add({section, key, value})
End If

' 将更新后的iniData写回到ini文件
Using writer As New System.IO.StreamWriter(iniFilePath)
    For Each data In iniData
        writer.WriteLine(String.Join("=", data))
    Next
End Using

上述代码会从指定的ini文件中读取已有的配置数据，然后查找名为"Settings"的部分下是否存在名为"Date"的键。如果存在，则会将其值更新为当前日期；如果不存在，则会将新的键值对添加到ini文件中。

请注意修改path_to_ini_file.ini为实际的ini文件路径。此外，如果ini文件不存在，你需要先创建一个空的ini文件。

希望对你有所帮助