Fórum Função para identificar a semana do mês #343856
31/07/2007
0
Pessoal, fora a função nativa do Delphi ´WeekOfTheMonth´, que não atende minha necessidade, alguém tem ou conhece alguma função que identifique a semana do mês conforme indicado abaixo?
valeu.
D S T Q Q S S
1 => Semana 1
2 3 4 5 6 7 8 => Semana 2
9 10 11 12 13 14 15 => Semana 3
16 17 18 19 20 21 22 => Semana 4
23 24 25 26 27 28 29 => Semana 5
30 31 => Semana 6valeu.
Rtava
Curtir tópico
+ 0
Responder
Posts
01/08/2007
Emerson Nascimento
veja se esta função atende ao que você precisa:
function SemanaDoMes(DataAnalisada: TDateTime): byte; var DiaCorte: word; begin DiaCorte := DayOfWeek(StartOfTheMonth(DataAnalisada)) - 1; Result := Round(((DayOf(DataAnalisada)+DiaCorte) / 7) + 0.45); end;
Responder
Gostei + 0
01/08/2007
Rtava
Fala emerson.en!
Era exatamente isso que eu precisava.
Valeu pela ajuda.
T+
Era exatamente isso que eu precisava.
Valeu pela ajuda.
T+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)