Código de ASP - Muestra la fecha

Imágen de perfil

Muestra la fechagráfica de visualizaciones


ASP

estrellaestrellaestrellaestrellaestrella(9)
Publicado el 20 de Febrero del 2002 por Administrador
12.401 visualizaciones desde el 20 de Febrero del 2002. Una media de 21 por semana
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.402 visualizaciones desde el 20 de Febrero del 2002. Una media de 21 por semana
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:
<%
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...

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...

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
08 de Enero del 2003
estrellaestrellaestrellaestrellaestrella
Perdon, va asi:

<%Session.lcid=7178%><br>
<%=FormatDateTime(Now,1)%>
Responder
José Homero De La Fuente
08 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:

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

http://lwp-l.com/s111