FoxPro/Visual FoxPro - ayuda

hola con todos y muchas gracias de antemano

miren mi pregunta es la siguiente, estoy trabajando con System.Net.Sockets.TcpClient de visual basic .net, y tomo la hora de un servidor ntp para poder tener la hora en mi aplicacion y no depender de la hora del sistema, pero la cuestion es que si existe lo mismo para foxpro por favor ayudenme este es el codigo de visual quisiera que sea el mismo para foxpro como lo puedo hacer la verdad no se nada de foxpro pero el jefe de mi empresa quiere para foxpro como lo hago

Private Sub mnuSincronizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSincronizar.Click
Dim tcp As New System.Net.Sockets.TcpClient
Dim tmp As Date
Try
With tcp
.Connect("time.nist.gov", Val("13"))
Dim data As [Byte]()
Dim stream As System.Net.Sockets.NetworkStream = tcp.GetStream()
data = New [Byte](256) {}
Dim responseData As [String] = [String].Empty
Dim bytes As Int32 = stream.Read(data, 0, data.Length)
responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes).Trim(Chr(10)).Substring(6, 17)
responseData = responseData.Substring(6, 2) & "/" & responseData.Substring(3, 2) & "/" & responseData.Substring(0, 2) & " " & responseData.Substring(9)
tcp.Close()
tmp = Now
TimeOfDay = DateTime.Parse(responseData).AddHours(0)
Today = DateTime.Parse(responseData).AddHours(0)
End With
Catch c As System.Net.Sockets.SocketException
MsgBox("No se puede conectar con el servidor", MsgBoxStyle.Critical, "DJP Sincro Tray")
End Try
End Sub

espero una respuesta por favor ayudenme

lo unico que se necesita es tener derechos de escritura en la carpeta, folder o recurso compartido del servidor.

ltFecha = ServerTime("F:/")

Pasandole de Parametro un recurso compartido:

ltFecha = ServerTime("//SERVIDOR/VALUACION")

Si no se pasan parametros, tomara por default la fecha del equipo donde se ejecute el programa:

ltFecha = ServerTime()

Espero que les sea de utilidad. ---- Apoya a Visual FoxPro usándolo legalmente ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º Espartaco Palma Martínez Coordinador Nacional PortalFox - Mexico http://mexico.portalfox.com email: [email protected]

******************************************************************
* ---- Server DateTime ----- Fecha y Hora del Servidor
* ---- Espartaco Palma Martinez esparta@NO_SPAMsofthome.net
* ---- FUNCTION: ServerTime
* ---- RETURNS: Server DateTime, NULL if cannot get DateTime
* ---- RETORNA: Fecha y Hora Server, NULL si no puede obtenerlo
* ---- PARAMETERS: tcPath - TYPE: Character
* ---- Basandose en las recomendaciones de Alex Feldstein (MS MVP)
* ---- sobre como obtener la fecha y hora del servidor.
* ---- DATE: 03/DIC/2002 For Use in Visual FoxPro.
* ---- Sample:
* ---- ltFecha = FechaHora("F:/")
* ---- ltFecha = FechaHora("//SERVER/VALUACION/")
* ---- NOTE: If you are using minor versions of VFP7, use FoxTools
* ---- NOTA: Si esta usando versiones menores a VFP7, use FoxTools
******************************************************************
FUNCTION ServerTime (tcPath)
LOCAL ltFileTime
tcPath = IIF(TYPE('tcPath') # 'C', SPACE(0),ADDBS(tcPath))
lcFile = tcPath+SUBSTR(SYS(2015), 4) +".tmp"
IF STRTOFILE("Getting Hour/Obteniendo la Hora",lcFile) > 0
ltFileTime = FDATE(lcFile,1)
ERASE (lcFile)
RETURN ltFileTime
ENDIF
RETURN NULL
******************************************************************

gracias por eso, ese codigo del final hace exactamente lo que hace el visual basic???

como dije no tengo idea de nada de foxpro puedes explicarmelo un poco mas detallado por favor gracias por tu respuesta

Hay un artículo muy interesante al respecto en el siguiente link:

http://fox.desdeguate.com/2007/07/29/itime_servidores_hora_vfp/

Que haya suerte. :)

Muchas gracias por su ayuda ya lo voy a leer cualquier iquietud ya se las hago llegar