En español. Descarga programas libres y Open-Source. Añade tu programa a la librería de Scripts en Autoit.es
http://autoit.es/
Código: Seleccionar todo
Switch @MDAY
Case 1 to 7
ConsoleWrite("Primer semana" & @CRLF)
Case 8 to 14
ConsoleWrite("Segunda semana" & @CRLF)
Case 15 to 21
ConsoleWrite("Tercer semana" & @CRLF)
Case 22 to 28
ConsoleWrite("Cuarta semana" & @CRLF)
Case Else
ConsoleWrite("Quinta semana" & @CRLF)
EndSwitchCódigo: Seleccionar todo
Local $iDateCalc = Ceiling(@MDAY/7)
MsgBox(4096, "", "Número de la semana del mes actual: " & $iDateCalc)
.
Código: Seleccionar todo
#include <Date.au3>
Local $iWeekday = _DateToDayOfWeek(@YEAR, @MON, 1) ;averiguo el día en que empieza el mes
;tengo que corregir lo anterior, ya que está en formato americano, o sea que la semana empieza por domingo no por lunes.
If $iWeekday=1 Then
$iWeekday=6
Else
$iWeekday-=2
EndIf
Local $iDateCalc = Ceiling((@MDAY+$iWeekday)/7)
MsgBox(4096, "", "Número de la semana del mes actual: " & $iDateCalc)
Mil GraciasChefito escribió:Tengo la impresión que no es eso lo que busca.
Todo lo relacionado con las fechas puedes encontrarlo en la ayuda, en la udf date. Son las funciones que empiezan por _date . Míralas.
Si lo que quieres es saber el número de la semana según el número de día, como si todos los meses empezasen por lunes, una forma fácil podría ser esta:Pero como he dicho al principio, no creo que sea esto. Supongo que lo que el quiere es saber el número real de semana del mes en que cae ese día. Un mes puede empezar por cualquier día de la semana. En esta situación te descuadra todos los cálculos. Hay que hacerlos nuevos y un poquito más enrevesados....no muchoCódigo: Seleccionar todo
Local $iDateCalc = Ceiling(@MDAY/7) MsgBox(4096, "", "Número de la semana del mes actual: " & $iDateCalc)Saludos.Código: Seleccionar todo
#include <Date.au3> Local $iWeekday = _DateToDayOfWeek(@YEAR, @MON, 1) ;averiguo el día en que empieza el mes ;tengo que corregir lo anterior, ya que está en formato americano, o sea que la semana empieza por domingo no por lunes. If $iWeekday=1 Then $iWeekday=6 Else $iWeekday-=2 EndIf Local $iDateCalc = Ceiling((@MDAY+$iWeekday)/7) MsgBox(4096, "", "Número de la semana del mes actual: " & $iDateCalc)
! me salvastes la vida Chefito!, es justo lo que buscaba.
, pero ese codigo ya lo habia encontrado en los foros de autoit en ingles y justamente como dice chefito no es exacto.