Fecha en castellano con VBScript Enero 18, 2007
Publicado por lineadecodigo en : VBScript , trackbackLa idea de este ejemplo es el mostrar por pantalla una fecha con el formato domingo, 25 de agosto de 2002 mediante el lenguaje VBScript. Por defecto si usamos el objeto Date lo que obtendremos será el formato 25/08/02, del cual, mediante algunas funciones, podemos obtener acronimos de los días y los meses, eso si, en formato anglosajón.
Lo primero a realizar es separar en 3 partes la fecha. Para ello utilizaremos las siguientes funciones...
anno = Year(Date) mes = Month(Date) dia= Day (Date)
Tanto el año como el día van a quedar invariantes, pero el mes lo tenemos que formatear a una cadena de texto. La solución pasa por utilizar una estructura selectiva del tipo select case.
select case Month(Date)
case 1
document.write("Enero")
...
case 12
document.write("Diciembre")
end select
Para mostrar el día de la semana utilizaremos la función WeekDay() la cual nos devuelve un número indicando el día de la semana. Por defecto sigue la secuencia 1 para el Domingo, 2 para el Lunes,... y 7 para el sábado. Si queremos que la secuencia asigne el número 1 a otro día, tendremos que pasar dicho día a la función WeekDay() como segundo parámetro. Para esto podemos utilizar las constantes de VBScript vbMonday, vbTuesday, vbWensday,...
De tal manera que a partir de dicho número y utilizando nuevamente una estructura select case mostraremos el día de la semana como una cadena de caracteres...
select case WeekDay(Date,vbMonday)
case 1
document.write("Lunes")
...
case 7
document.write("Domingo")
end select
Visualizar el ejemplo (Solo en Internet Explorer) | Descargar el código
Articulos Similares:
- Conocer el tipo de una variable en VBScript
- Redimensionar un array con VBScript
- Cómo definir una constante en VBScript
- Localización en ASP
- Obtener la fecha en un JSP
Enviar entrada por email
| 
Imprimir
| 8041 visitas
(Todavia sin evaluar)
Loading ...
Comentarios»
Documento sin título
=#12:00:00 PM# and (weekday (fecha,domingo)=7) or time()<= #12:00:00 AM# then
response.Write(“buenas tardes hoy es un dia laborable ” &hora&”")
else
response.Write(“buenas dias”)
end if
%>
‘**********************************************************************************************
‘**********************************************************************************************
‘********************************************************************************************
‘********************************************************************************************
<%
dim a,b,aleatorio,resultado,valor,mayusculas
valor=”1987″
response.Write(“el resultado de len es:” &len(valor)& “”)
aleatorio=1+100*rnd()
response.Write(“el numero aleatorio es:” &aleatorio& “”)
a=(65)
response.Write(asc(a)& “”)
b=”luis”
response.Write(mid(b,3,2)& “”)
mayusculas=”LUIS”
response.Write(“la letra en mayuscula es:” &UCASE(mayusculas)& “” )
raiz=25
response.Write(“la raiz de 25 es:” &sqr(raiz)& “”)
response.Write(“EL AÑO ES:” &year(date())& “”)
MES=TRIM(“7/27/2008″)
response.Write(“EL MES ES:” &month(MES)& “”)
%>
‘*************************INVERTIR UN NUMERO*************************************************
‘*************************NUMERO PALINDROMO*************************************************
‘******************************************************************************************
<%
dim r
r=1
do
response.Write r& ” borreguitos ”
if r=10 then
response.Write(“ya tengo todos los borreguitos”)
END IF
r=r+1
loop while (r
<%
dim i
for i=1 to 10
select case i
case 1:
response.Write(“este es el maximo tamaño de letra”)
case 2:
response.Write(“este es un menor tamaño de letra”)
end select
response.Write(” LUIS MIGUEL “&i&” “)
next
%>
Hola soy estudiante de la universidad Tecnica de Babahoyo este es mi aporte hacia la programacion
Response.Write(Day(Date()) & “”)
Response.Write(Month(Date()) & “”)
Response.Write(Year(Date()) & “”)
Response.Write(Hour(Time()) & “”)
Response.Write(Minute(Time()) & “”)
Response.Write(Second(Time()) & “”)
Response.Write(DateAdd(“m”, -2, “30-12-03″))