Carmita
30 de Agosto del 2003

Puede alguien por favor ayudarme a calcular el numero de semana actual. les agradecería mucho.

pacohj
30 de Agosto del 2003

textbox = format(now,"ww")
ww = semana

Juan
30 de Agosto del 2003

Prueba la función DatePart, en la ayuda viene este ejemplo
que muestra el trimestre:

Dim LaFecha As Date ' Declara las variables.
Dim Msj
LaFecha = InputBox("Escriba una fecha:")
Msj = "Trimestre: " & DatePart("q", LaFecha)
MsgBox Msj

Para otras partes del año envia estas cadenas en el
primer parámetro:

"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" Minuto, "s" Segundo.

Carmita
30 de Agosto del 2003

Gracias por su respuesta Juan.