Fórum Nro da Semana #191880
31/10/2003
0
Tenho uma consulta onde o usuário apontarará a semana do ano que ele precisa e tenho que mostrar que período se refere. Ou vice-versa.
Alguém poderia me ajudar?
Alguém poderia me ajudar?
Julianomc
Curtir tópico
+ 0
Responder
Posts
31/10/2003
Luineumann
a função abaixo calcula o número da semana com base no dia primeiro de janeiro. a semana 1 é a semana entre o dia da semana em que ocorre o dia primeiro de janeiro e o sábado seguinte
function TForm1.Semana_Corrente (const parData:tDateTime) : Word;
var
aa,mm,dd:Word;
data_Primeiro_Janeiro:TDateTime;
begin
DecodeDate(parData, aa, mm, dd);
data_primeiro_janeiro := encodedate(aa, 1, 1); // 1º de janeiro do ano corrente
Result := ( (Trunc(parData-data_primeiro_janeiro)+(DayOfWeek(data_primeiro_janeiro)-1)) DIV 7 ) + 1;
End;
para fazer o contrário
function TForm1.Semana_Corrente (const parData:tDateTime) : Word;
var
aa,mm,dd:Word;
data_Primeiro_Janeiro:TDateTime;
begin
DecodeDate(parData, aa, mm, dd);
data_primeiro_janeiro := encodedate(aa, 1, 1); // 1º de janeiro do ano corrente
Result := ( (Trunc(parData-data_primeiro_janeiro)+(DayOfWeek(data_primeiro_janeiro)-1)) DIV 7 ) + 1;
End;
para fazer o contrário
Responder
Gostei + 0
31/10/2003
Julianomc
Valeu!!!
Mas, eu pra eu converter o nro da semana para data? Alguém sabe?
Mas, eu pra eu converter o nro da semana para data? Alguém sabe?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)