na data

[Viuvo 0]

Eu estou a fazer um trabalho para a escola mas estou com algumas duvida!!!

 

Eu tenho no meu form 6Command

a command1 corresponde a segunda-feira

a command2 corresponde a terça-feira

a command3 corresponde a quarta-feira

a command4 corresponde a quinta-feira

a command5 corresponde a sexta-feira

o trabalho que tenho que desenvolver é marcar senhas num refeitorio

- um aluno pode marcar os dias que quer comer

ex: (terça e quarta)

 

para resolver isto eu estava a pensar seguir esta logica

descobri o dia d semana que estamos e depois d saber o dia marcavamos as senhas com a data

 

se fixer Data = (Day(Date) + 4) ele ao dia soma 4dias mas a um problema os meses no maximo terminão a 31

[Viuvo 0]

xxx= Date - (CDbl(Weekday(Date)) - 2)