formteo de fechas

haven · #1 (**permalink**) 04/12/2002, 04:32

tengo en mi BD el formato de fechas 01/12/2002, pero al mostrarlo tengo que pasarlo como 01 de diciembre de 2002.
Lo he puesto de esta forma:
formatDateTime(rs("Date"),vbLongDate)
pero esto me muestra domingo, 01 de diciembre de 2002.
La pregunta como puedo mostrar la fecha domingo, 01 de diciembre de 2002, pero sin mostrar el día de la semana, en este caso quitando dominingo y la ,????'
Un saludo

bakanzipp · #2 (**permalink**) 04/12/2002, 06:46

fecha=CDate("01/12/2002")

lubetpic · #3 (**permalink**) 04/12/2002, 12:01

esto te va a servir de mucho

haven · #4 (**permalink**) 05/12/2002, 06:05

Bueno.... no era exactamente eso lo que buscaba, pero bueno. Lo que tengo ahora es la fecha domingo, 01 de diciembre de 2002 y lo que quería es mostras esa misma fecha o se con letras pero sin el día, dominigo, lo único que se me ocurre es utlizar.
<%
fechanoticia=len(formatDateTime(rs("Date"),vbLongD ate))%>

con esto saco el número de caracteres que tiene la fecha y acorde con este número le quito caracteres, en este caso 24

<%Response.Write right(formatDateTime(rs("Date"),vbLongDate),24)%>

lo que me imagino es que debe haber una solución mejor,.... pero.... cual????

Un saludo

bakanzipp · #5 (**permalink**) 05/12/2002, 06:26

Cita:

DateSerial( año, mes, dia )

Función de fechas. Recibe como argumentos un año, un mes y un día, y devuelve una variable de subtipo Date que representa la fecha asociada a los argumentos recibidos.

Tanto año como mes y dia pueden ser cualquier nzmero o expresión válida para ellos, con las limitaciones derivadas de su tipo (año puede estar entre 100 y 9999, mes entre 1 y 12 y dia entre 1 y 31). El argumento año se debe pasar con 4 cifras, salvo si pasamos entre 0 y 99, en cuyo caso se interpretarán como años entre 1900 y 1999. Si pasamos como valor de dia un número mayor de 30, se tomarán 30 días del mes indicado y los restantes como pertenecientes al mes siguiente.

Ejemplo:

<%

Dim Mifecha

MiFecha = DateSerial( 2001, 9, 15 )

%>

que asignará a MiFecha el valor 15 de septiembre del 2001.

funciones vbscript

Manoloweb · #6 (**permalink**) 05/12/2002, 16:14

A ver si te sirve esta funcion que hice... solo cambiala a tu conveniencia.

Recibe dos variables, "cuando" es la fecha que quieres desplegar, pudiendo se Now(), y "forma" decide si es forma larga o corta de la fecha.

Código:

function fechaEsp(cuando,forma)
	Dim meses
	Dim dias

	meses= Array("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre")

	dias= Array("Domingo","Lunes","Martes","Mi&eacutercoles","Jueves","Viernes","S&aacute;bado")

	If forma=1 Then
		response.write dias(Weekday(cuando)-1)&" "&Day(cuando)&" de "&meses(month(cuando)-1)&" de "&year(cuando)

	Else
		response.write meses(month(cuando)-1)&" "&Day(cuando)
	End If
End Function