Calcula El Numero de Semana Actual

[Rodo_Rodo]

Esto es otra ayudita que me sirvio mucho para realizar mis consultas en mi base de datos
Espero Les Sirva...

Código Delphi [-]
  

//*Introducir la Fecha Como String, o ustedes ya vean
 
function NumSemana(Fecha:string):integer;
var
   PrimerDia:TDate;
   DiaDelPrimerDia:integer;
begin
    {Calculamos primer dia del año}
 
    PrimerDia:=StrToDate('01/01/'+Copy(Fecha,7,4));
 
    {Calculamos dia de la semana que empieza por lunes}
 
    If DayOfWeek(PrimerDia)-1 =0
      then DiaDelPrimerDia:=7
      else DiaDelPrimerDia:=DayOfWeek(PrimerDia)-1;
 
    {Calculamos el numero de semana del año}
 
    Result:=Trunc(
                 (StrToDate(Fecha)-
                 PrimerDia+
                 DiaDelPrimerDia-1
                 ) /7)+1;
end;
 
 
//* Llaman a la funcion y ya ta 

[[Lepe]]

¿En tu delphi no tienes WeekOf?

Unit
DateUtils

Syntax

[delphi] function WeekOf(const AValue: TDateTime): Word;

Description
Call WeekOf to obtain the week of the year represented by a specified TDateTime value. WeekOf returns a value between 1 and 53.

Saludos

[Rodo_Rodo]

Me comentaron que esta tiene muchas funciones de manejo de Fechas las cuales me reducirian el trabajo, si alguien me pudiera ayudar por favor GRACIAS

[[Lepe]]

En la unidad, añade "uses Dateutils" después ya puedes acceder a todas las funciones.

Te aconsejo que primero busques en tu ayuda de delphi, así sabrás si dispones de esa Unidad y de las funciones que tiene.

saludos

[delphi.com.ar]

Te agrego un consejo mas: Para calcular, comparar y almacenar información, es recomendable utilizar los tipos de datos definidos para tal fin. No utlizar strings para tratar fechas, es mucho mas costoso en concepto de memoria y procesador.

Saludos!