| Hola invitado |
|
02 Sep, 2010 - 04:30 |
|
 |
|
© 2009 PortalFox
|
|
|
| Enviado por Esparta Palma en Viernes, 20 Diciembre, 2002 |
|
 Si desea saber la hora del servidor sin importar el sistema operativo que use, aqui tenemos cómo hacerlo.
Basandome en las recomendaciones de Alex Feldstein (MS MVP), pongo a su disposición una función para obtener la fecha y hora del servidor (tipo DateTime), esta funcionara si usa Novell Netware, Microsoft Windows (cualquier version), incluso Linux (si activa el demonio SAMBA), 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: mexico@portalfox.com
******************************************************************
* ---- 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
******************************************************************
Nota: Ha sido reportado que la anterior función no funciona del todo bien cuando se utilizan clientes Win98, ya que con ésta versión sigue tomando la fecha del cliente y no la del servidor. |
|
 |
|
|
|
| Obtener Fecha y Hora del Servidor | Entrar/Crear una cuenta | 1 Comentario |
|
| Los comentarios son propiedad de sus respectivos autores.
No somos responsables de su contenido. |
Re: Obtener Fecha y Hora del Servidor
por Kchorro (evillicana@yahoo.com)
en 06 Feb, 2004 - 07:00
(Información del usuario | Enviar un mensaje http://)
|
Hola como te comente Espartha no me funciono muy bien la funcion con win98 pero con 2000, Me,Xp funciono perfectamente aqui te pongo algo que encontre investigandole un poquito y tambien parece algo bueno y funcional espero sea de ayuda para otros que estamos en el mismo tema.
W_NOMSER = "\\SERVER"
W_SERVER = "Net TIME " + W_NOMSER + " /SET /YES"
oShell = CREATEOBJECT("Wscript.Shell")
oShell.Run((W_SERVER),0,.t.)
|
|
Todas las marcas y los logos utilizados en este sitio son propiedad de sus respectivos dueños.
Los artículos, noticias y comentarios son propiedad y responsabilidad de sus respectivos autores.
Copyright © 2000-2010 PortalFox. Todos los derechos reservados.
|
|
