Fecha en castellano con VBScript

18/Ene/2007 VBScript , , , , , , , , 3 Comentarios

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

  1. anno = Year(Date)
  2. mes = Month(Date)
  3. 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.

  1. select case Month(Date)
  2. case 1
  3. document.write("Enero")
  4. ...
  5. case 12
  6. document.write("Diciembre")
  7. 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, vbWednesday,...

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

  1. select case WeekDay(Date,vbMonday)
  2. case 1
  3. document.write("Lunes")
  4. ...
  5. case 7
  6. document.write("Domingo")
  7. end select

Visualizar el ejemplo (Solo en Internet Explorer) | Descargar el código

3 comentarios en “Fecha en castellano con VBScript”

Víctor Cuervo

LUIS

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”))

Víctor Cuervo

LUIS

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

¿Algo que nos quieras comentar?

Déjanos tu comentario, no te preocupes que tu email no será publicado

*

*