Acho que é isto que você quer:
(talvez esteja mais completo :))
Semana do ano: edSemanadoAno.Text := IntToStr( WeekOfTheYear(
dtData.Date));
Dia do ano: edDiaDoAno.Text := IntToStr( DayOfTheYear(
dtData.Date));
Semana do mês: edSemanaDoMes.Text := IntToStr( WeekOfTheMonth(
dtData.Date));
Semanas p/ fim do ano: edSemanasFim.Text := IntToStr( WeeksInYear(
dtData.Date) -
WeekOfTheYear( dtData.Date));
Dias p/ fim do ano: edDiasFim.Text := IntToStr( DaysInYear(
dtData.Date) -
DayOfTheYear( dtData.Date));
PS: Estamos na semana 19.
Abraço,
Rogério Ricardo Fernandes Desenvolvimento http://www.strategies.inf.br
----- Original Message -----
From: "Daniel / Tecnobyte" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, May 13, 2005 7:00 PM
Subject: Re: [delphi-br] Número da semana
> > Obrigado Cristina, mas não era exatamente isso que eu precisava.
> > O que eu precisava era saber a semana do ano...
> > Hoje, por exemplo, estamos na semana 18.
> > Precisava disso para fazer um quebra por semana.
>
> Já fiz muitos relatórios com quebra por semana e nunca precisei saber
> o número da semana.
>
> Em vez disso eu sempre testo o dia da semana:
>
> - Se o dia da semana da próxima data é 1, então mudou de semana!
> - Ou se o dia da semana da data anterior é 7, então está no fim da semana
> (sábado).
>
> Enfim, não precisa saber o número da semana para fazer a quebra. Basta
saber
> quando muda de semana, o que é perfeitamente possível pelo dia da semana
> (weekday).
>
> Atenciosamente.
>
> Daniel P. Guimarães
> Tecnobyte Informática
> www.tecnobyte.com.br
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.308 / Virus Database: 266.11.9 - Release Date: 12/5/2005
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
