Write Date and Time to meter

But is this correct? (look under ==>)

Dim objects As GXDLMSObjectCollection = Nothing
objects = comm.GetAssociationView()
Dim it As GXDLMSObject
it = objects.FindByLN(ObjectType.Clock, "0.0.1.0.0.255")
Dim newDate As Gurux.DLMS.GXDateTime = Now
newDate.Skip = newDate.Skip And DateTimeSkips.Deviation
==> Dim Values As New GXObisValueItemCollection
==> Dim itemValue As New GXObisValueItem(11200, newDate)
==> Values.Add(itemValue)
it.SetValues(2, Values)
comm.Write(it, 2)

Now works!

' -----------------------------------------------------------------------------
' Update date and time on meter Landis E650
' The following items are to be considered prerequisites:
' [comm] is GXCommunicatation object with connection established with the meter
' [objects] is GXDLMSObjectCollection with comm.GetAssociationView()
' -----------------------------------------------------------------------------

Try

' reads the current date and time of the meter
Dim it As GXDLMSObject = objects.FindByLN(ObjectType.None, "0.0.1.0.0.255")
Dim currentMeterDate As DateTime = comm.Read(it, 2)

' reads the current date and time of the system
Dim currentSystemDate As DateTime = DateTime.Now

' difference in seconds between the system time and the meter's
Dim secondsDifference As Long = DateDiff(DateInterval.Second, currentMeterDate, currentSystemDate)

If secondsDifference <= -60 Or secondsDifference >= 60 Then
' difference greater than 60 seconds
Dim Clock1 As New GXDLMSClock("0.0.1.0.0.255", 11200) ' it is important to specify the shortname otherwise it won't work
Dim newDate As New GXDateTime(Now.Year, Now.Month, Now.Day, Now.Hour, Now.Minute, Now.Second, 0)
newDate.Skip = newDate.Skip And DateTimeSkips.Deviation
Clock1.Time = newDate
comm.Write(Clock1, 2)
End If

Catch ex As Exception
MsgBox(ex.ToString)
End Try