Por Alvaro
22/04/2009
Enviar esta pagina a un amigo.
O meses, semanas, años o Miercoles!
Sintaxis
DateDiff(intervalo, fecha1, fecha2 [, primerdíasemana] [, primerasemanaaño] )
intervalo:
Requerido. Expresión de cadena (expresión de cadena: expresión que
evalúa una secuencia de caracteres contiguos. Los elementos de la
expresión pueden ser: funciones que devuelven una cadena o un tipo
Variant (VarType 8) de cadena; un tipo literal, constante, variable o
Variant de cadena.) que es el intervalo de tiempo que se utiliza para
calcular la diferencia entre fecha1 y fecha2.
Tiene los siguientes valores,
"yyyy" = Año
"q" = Trimestre
"m" = Mes
"y" = Día del año
"d" = Día
"w" = Día de la semana
"ww" = Semana
"h" = Hora
"n" = Minutos
"s" = Segundos
fecha1, fecha2:
Requerido. Variant (Date). Las dos fechas que se desean utilizar en el cálculo.
primerdíasemana:
Opcional. Constante (constante: valor que no ha sido calculado y que,
por tanto, no varía. Por ejemplo, el número 210 y el texto "Ingresos
trimestrales" son constantes. Las expresiones, o los valores
resultantes de ellas, no son constantes.) que especifica el primer día
de la semana. Si no se especifica, se supone que es el domingo.
Con los siguientes valores,
vbUseSystem = 0, Se utiliza la configuración NLS API.
vbSunday = 1, Domingo (valor predeterminado)
vbMonday = 2, Lunes
vbTuesday = 3, Martes
vbWednesday = 4, Miércoles
vbThursday = 5, Jueves
vbFriday = 6, Viernes
vbSaturday = 7, Sábado
primerasemanaaño:
Opcional. Constante que especifica la primera semana del año. Si no se
especifica, se supone que es la semana en la que trascurre el 1 de
enero.
Con valores,
vbUseSystem = 0, Se utiliza la configuración NLS API.
vbFirstJan1 = 1, Se comienza con la semana en la que transcurre el 1 enero (predeterminado).
vbFirstFourDays = 2, Se comienza con la primera semana que tenga como mínimo cuatro días en el año nuevo.
vbFirstFullWeek = 3, Se comienza con la primera semana completa del año.
Ejemplo:
Dim Fecha As Date ' Declara variables.
Dim Msg
Fecha = InputBox("Mete una fecha")
Msg = "Dias desde hoy: " & DateDiff("d", Now, Fecha)
MsgBox Msg
|