Funcao para Identificar dia da semana

Question

preciso de algo que o sistema verifique determinada data , e me diga se � domingo , ou terca , ou seja o dia da semana.

if domingo then acumula = 0
if seguna then acumula = + 1

mais ou menos isso , mais como indentifico o dia tipo , 04-04-2003 , como saber que o dia � sexta feira.

Anonymous · Answer

Use assim :   DayOfWeek(data)domingo � 1segunda � 2assim por diante....

Aroldo Zanela · Answer

[quote:180653927b=�DragonWar�]preciso de algo que o sistema verifique determinada data , e me diga se � domingo , ou terca , ou seja o dia da semana.if domingo then acumula = 0if seguna  then acumula = + 1mais ou menos isso , mais como indentifico o dia tipo , 04-04-2003 , como saber que o dia � sexta feira.[/quote:180653927b]1 = Domingo;...7 = S�bado;[code:1:180653927b]Case DayOfWeek(Date) of  1: Acumula := 0;    2: Acumula := Acumula + 1;    3: .    4: .    5: .    6: begin    Execute(Acumula);        Acumula := CalculaYX(y,z);       end;    7: ToDo(Acumula,y,z);  end;[/code:1:180653927b]...