Funcao para Identificar dia da semana

Delphi

04/04/2003

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

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

04/04/2003

Use assim :

DayOfWeek(data)

domingo é 1
segunda é 2
assim por diante.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

04/04/2003

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.


1 = Domingo;
.
.
.
7 = Sábado;
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;



GOSTEI 0
POSTAR