Nro da Semana
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
Curtidas 0
Respostas
Luineumann
31/10/2003
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
GOSTEI 0
Julianomc
31/10/2003
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?
GOSTEI 0