Código de ASP - Muestra la fecha

Imágen de perfil

Muestra la fechagráfica de visualizaciones


ASP

Publicado el 20 de Febrero del 2002 por Administrador (691 códigos)
12.974 visualizaciones desde el 20 de Febrero del 2002
Muestra la fecha actual del sistema en Español

Versión 1
estrellaestrellaestrellaestrellaestrella(9)

Publicado el 20 de Febrero del 2002gráfica de visualizaciones de la versión: Versión 1
12.976 visualizaciones desde el 20 de Febrero del 2002
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
<%
'------------------------------------'
'      muestra la fecha actual       '
' http://www.lawebdelprogramador.com '
'------------------------------------'
select case month(date)
	case 1
		mes="Enero"
	case 2
		mes="Febrero"
	case 3
		mes="Marzo"
	case 4
		mes="Abril"
	case 5
		mes="Mayo"
	case 6
		mes="Junio"
	case 7
		mes="Julio"
	case 8
		mes="Agosto"
	case 9
		mes="Septiembre"
	case 10
		mes="Octubre"
	case 11
		mes="Noviembre"
	case 12
		mes="Diciembre"
end select
select case weekday(date)
	case 1
		dia="Domingo"
	case 2
		dia="Lunes"
	case 3
		dia="Martes"
	case 4
		dia="Miercoles"
	case 5
		dia="Jueves"
	case 6
		dia="Viernes"
	case 7
		dia="Sabado"
end select
 
fecha=dia & ", " & Day(date) & " de " & mes & " del " & year(date)
%>
 
<%=fecha%>



Comentarios sobre la versión: Versión 1 (9)

edsel
14 de Agosto del 2002
estrellaestrellaestrellaestrellaestrella
Tengo un codigo mas sencillo y anda:
1
2
3
4
5
6
<%
Session.LCID=3082 'Formato de fecha, hora, etc. en castellano
fecha_corregida = Now - TimeSerial(3,0,0) 'Se restan las 3 horas de diferencia
Response.Write("Fecha Corregida: " & FormatdateTime(fecha_corregida,1))
Response.Write("<br>Hora Corregida: " & FormatdateTime(fecha_corregida,3))
%>
Responder
Marcos
29 de Octubre del 2002
estrellaestrellaestrellaestrellaestrella
Me parece que no funciona correctamente.
Responder
juan carlos gonzalez
16 de Diciembre del 2002
estrellaestrellaestrellaestrellaestrella
Creo que este es mas efectivo...

1
StrFecha =  monthnamespanish()&" "& Cstr(Day(date))& " de " & CStr(Year(date))  " "
Responder
juan carlos gonzalez
16 de Diciembre del 2002
estrellaestrellaestrellaestrellaestrella
Creo que este es tambien sirve...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
StrFecha =  monthnamespanish()&" "& Cstr(Day(date))& " de " & CStr(Year(date))  " "
**********
Function MonthNameSpanish()
   Dim StrMes, StrTmp
          StrMes = Ucase(monthname(month(date),true))
    Select Case StrMes
      Case "JAN" 'Enero
         StrTmp = "Enero"
      Case "FEB" 'Febrero
         StrTmp = "Febrero"
      Case  "MAR" 'Marzo
         StrTmp = "Marzo"
      Case "APR" 'Abril
         StrTmp = "Abril"
      Case "MAY" 'mayo
         StrTmp = "Mayo"
      Case  "JUN" 'Junio
         StrTmp = "Junio"
      Case "JUL" 'Julio
         StrTmp = "Julio"
      Case "AUG" 'Agosto
         StrTmp = "Agosto"
      Case  "SEP" 'Septiembre
         StrTmp = "Septiembre"
      Case "OCT" 'Octubre
         StrTmp = "Octubre"
      Case "NOV" 'Noviembre
         StrTmp = "Noviembre"
      Case "DEC" 'Diciembre
         StrTmp = "Diciembre"
      Case Else
         StrTmp = "****"
    End Select
    MonthNameSpanish = StrTmp
   End Function
Responder
José Homero De La Fuente
8 de Enero del 2003
estrellaestrellaestrellaestrellaestrella
Perdon, va asi:

1
2
<%Session.lcid=7178%><br>
<%=FormatDateTime(Now,1)%>
Responder
José Homero De La Fuente
8 de Enero del 2003
estrellaestrellaestrellaestrellaestrella
yo utilizo este:

<%Session.lcid=7178%>br
<%=FormatDateTime(Now,1)%>
Responder
Maiten
14 de Enero del 2003
estrellaestrellaestrellaestrellaestrella
Tambien tienen, por ejemplo:

1
setlocale(1033)
Responder
Daniel Tamayo
13 de Enero del 2004
estrellaestrellaestrellaestrellaestrella
No sirve
Responder
Esteban
14 de Junio del 2004
estrellaestrellaestrellaestrellaestrella
Esto no es una solución, sino más que una forma forzada y complicada de una solución ya creada.

Es como inventar el agua tibia
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s111