Re: [delphi-br] Primeiro dia da semana[RESOLVIDO]

2009/8/31 Richardson Freddo : > Bom dia pessoal. > > Usei a funçao: > > function ProximaSegundaHojeI nclusive( VData : TDateTime) : TDateTime; > begin > Result := VData + ((9 - DayOfWeek(VData) ) mod 7); > end; > > foi exatamente o que eu estava procurando. Ele aponta para a segunda feira > vigent

Res: [delphi-br] Primeiro dia da semana[RESOLVIDO]

Bom dia pessoal. Usei a funçao: function ProximaSegundaHojeI nclusive( VData : TDateTime) : TDateTime; begin Result := VData + ((9 - DayOfWeek(VData) ) mod 7); end; foi exatamente o que eu estava procurando. Ele aponta para a segunda feira vigente, ou seja, da semana corrente. Obrigado. Richard