Buscar en Asptutor     
Demo Tienda Virtual Tutorcar
 Navegacion->Inicio | Active Server Pages  

La web de los recursos y ejemplos de asp

Versión para imprimir
 

Alojado en:


urbe-networks.com

Recomienda esta pagina a un amigo

Servicios Gratuitos

Articulos relacionados

Utilizar GetRows()

Tienda Virtual - Carrito de compra

Messenger a través de BD en ASP

Miniaplicacion de comercio electronico

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados

Como hacer upload de ficheros al servidor

Salidas en formato compatible Excel

Objeto Server

Redireccion de vuelta después de un login

Como mostrar una imagen almacenada en una Base de datos

El Objeto Session

Subir Imágenes a una base de datos

Mostrando un registro aleatorio de una tabla

Un Generador de claves aleatorias

Descarga del tutorial de ASP


Enlaces recomendados

   

Tutorial ASP

Adaptación de la hora de un servidor extranjero
Este articulo ha sido leído 23.771 veces

Adaptación de la hora de un servidor extranjero

 

Colaboración enviada por ElectroAlfonso

Voy a poner mi granito de arena para ayudar a todos los que tienen su pagina en un server extranjero y la diferencia horaria con la española les trae algunos problemas para realizar algunas cosas como me pasaba a mi.

Lo primero deciros que he desarrollado dos códigos, uno para servidores con formato de hora de 24 horas y otro con formato de hora de 12 horas (am/pm) que como supongo que son la mayoría. 
Otra cosa, ambos códigos estas desarrollados para servidores con una diferencia horaria de -6 horas como pueden ser los americanos.
CODIGO PARA SERVER CON FORMATO DE FECHA 12 HORAS (AM/PM)
========================================================
<%' Guardamos la hora del servidor en la variable horaservidor
horaservidor = time()
' Guardamos la hora, mes, año y el AM/PM del server en
variables
horaamerica=hour(horaservidor)
minuto=minute(horaservidor)
segundo=second(horaservidor)
ampm=(right(horaservidor, 2))
if horaamerica=12 and ampm="AM" then hora=6
if horaamerica<12 and ampm="AM" then hora=horaamerica+6
if horaamerica=12 and ampm="PM" then hora=18
if horaamerica<6 and ampm="PM" then hora=horaamerica+18
if horaamerica>=6 and horaamerica<12 and ampm="PM" then hora=horaamerica-6
' Añadimos ceros a las cifras de un solo digito para que quede
'mas bonito<
if hora <10 then hora="0"&hora
if minuto <10 then minuto="0"&minuto
if segundo <10 then segundo="0"&segundo
'damos formato a la hora dentro de horaespanol
horaespanol=hora&":"&minuto&":"&segundo
' Ya tenemos la hora en español ahora a por la fecha
' Guardamos la fecha en la variable fecha
fecha = date()
' Guardamos el dia, mes y año en variables, el dia dependera de la hora en español
if hora>=0 and hora<=5 then
dia=day(fecha)+1
else if hora>=18 and hora<=23 then
dia=day(fecha)-1
else
dia=day(fecha)
end if
end if
mes=month(fecha)
ano=year(fecha)
' Al igual que con la fecha añadimos ceros al dia y al mes
if dia <10 then dia="0"&dia
if mes <10 then mes="0"&mes
'damos formato a la fecha dentro de fechaespanol
fechaespanol=dia&"/"&mes&"/"&ano
' Ya tenemos tambien la fecha, ahora solo queda imprimirla en pantalla
%>


<%= fechaespanol%>&nbsp;<%= horaespanol%>

 

Con esto el resultado sería por ejemplo:

     12/05/2002 13:05:30

Mientras que si lo hubieramos hecho con un simple <%= now()%> el resultado
hubiera sido:

     5/12/2002 1:05:30 PM

Espero que le sirva a mucha gente

ElectroAlfonso

 


 

¿Estas empezando y este articulo es muy complejo para tí?
Empieza por el principio, visita Ejemplos Básicos

Puedes obtener un listado completo de todos los artículos y ejemplos de ASP en http://www.asptutor.com/asp/todoslosarticulos.asp
 

Valora este articulo   Malo Excelente  
28 usuarios han valorado este articulo. Valoracion media:

Nota: Para cualquier consulta u opinión sobre este articulo puedes usar los foros

 

 

AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?


Google

 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar