小编Sha*_*rix的帖子

DateTime和谷歌的新功能真诚地让我失望.我目前正在使用DateTime变量来跟踪游戏中的时间.

问题是,任何改变所述DateTime的尝试都会导致"Property [time]是ReadOnly"错误.任何帮助,工作替代或环形交叉路口将不胜感激.

Sub IncreaseTime(unit As Integer)
    Dim NewDate As DateTime

    With World.WorldTime
        NewDate = New DateTime(.Date.Year, .Date.Month, .Date.Day, .Date.Hour, .Date.Minute, .Date.Second + unit)
        .Date = NewDate
    End With
End Sub

编辑#1;

   Sub IncreaseTime(unit As Integer)
    Dim NewDate As DateTime

    With World.WorldTime
        NewDate = NewDate.AddSeconds(unit)
        .Date = NewDate
    End With
End Sub

编辑#2;