Código de Access - Obtener el número de la semana de una fecha dada

Imágen de perfil

Obtener el número de la semana de una fecha dadagráfica de visualizaciones


Access

Publicado el 17 de Agosto del 2017 por Administrador (686 códigos)
1.204 visualizaciones desde el 17 de Agosto del 2017
Función que calcula el número de semana de la fecha pasada o por defecto de la actual según la ISO 8601 la primera semana del año es la que tiene al menos cuatro días del nuevo año.

Versión 1

Actualizado el 5 de Octubre del 2017 (Publicado el 17 de Agosto del 2017)gráfica de visualizaciones de la versión: Versión 1
1.205 visualizaciones desde el 17 de Agosto del 2017
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella


Forma parte de La página Web de Emilio Sancha
 
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
'*******************************************************************************
'* NumeroSemanaISO
'* Calcula el número de semana de la fecha pasada o por defecto de la actual
'* según la ISO 8601 la primera semana del año es la que tiene al menos cuatro
'* días del nuevo año
'* Argumentos: datFecha => Opcional Fecha de calculo
'* uso: NumeroSemanaISO (Date)
'* Attributed to Daniel Maher
'* ESH 20/04/05 16:05
'*******************************************************************************
 
Public Function NumeroSemanaISO(Optional datFecha As Date) As Integer
	Dim lngFecha As Long
 
	On Error GoTo NumeroSemanaISO_TratamientoErrores
 
	If datFecha = 0 Then datFecha = Date
 
	lngFecha = DateSerial(Year(datFecha - Weekday(datFecha - 1) + 4), 1, 3)
	NumeroSemanaISO = Int((datFecha - lngFecha + Weekday(lngFecha) + 5) / 7)
 
	NumeroSemanaISO_Salir:
		On Error GoTo 0
		Exit Function
 
	NumeroSemanaISO_TratamientoErrores:
 
		MsgBox "Error " & Err.Number & " en proc.: NumeroSemanaISO de Módulo: Módulo1 (" & Err.Description & ")"
		Resume NumeroSemanaISO_Salir
End Function            ' NumeroSemanaISO



Comentarios sobre la versión: Versión 1 (0)


No hay comentarios
 

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s4117