Hi there, I got this code from an old Thread two set the time of a PC with the time of the another one

lcTemp = forcepath(sys(2015)+'.tmp', 'd:\aaa')
Strtofile('x',m.lcTemp)
Adir(arrFile,m.lcTemp)
Erase (m.lcTemp)
ltNow = (Ctot(Transform(Dtoc(arrFile[3],1),'@R ^9999/99/99')+' '+arrFile[4]))

SetSystemDate(m.ltNow)

Function SetSystemDate
  Lparameters tdDate
  Declare Integer SetLocalTime In win32api String @ lpTime
  Declare Integer GetLocalTime In win32api String @ lpTime
  Local lpCurrent, lcNewTime
  lpCurrent = Space(40)
  GetLocalTime(@lpCurrent) && save current

  lcNewTime = Num2Word(Year(m.tdDate))+;
    Num2Word(Month(m.tdDate))+;
    Num2Word(Dow(m.tdDate))+;
    Num2Word(Day(m.tdDate))+;
    Substr(m.lpCurrent,9)

  SetLocalTime(@lcNewTime)
  SetLocalTime(@lcNewTime)
EndFunc

Function Num2Word
  Lparameters tnDecimal
  Return Chr(m.tnDecimal%256)+Chr(Int(m.tnDecimal/256))
EndFunc

Now I cannot see any change of time. I guess it is due to the fact that this code

  lcNewTime = Num2Word(Year(m.tdDate))+;
    Num2Word(Month(m.tdDate))+; 
    Num2Word(Dow(m.tdDate))+;
    Num2Word(Day(m.tdDate))+;
    Substr(m.lpCurrent,9)

set the date of the remote PC and the time of this one (lpcurrent) so ,how can I set also the time of the remote pc ?
Another question:
Why the line SetLocalTime(@lcNewTime) is repeted twice ?
Thanks
Alessio