• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

patoche

[VB6] Achar a Semana atraves do dia

5 mensagens neste tópico

Boas o todos.

Ora vamos la ver os cranios que por aqui andam... ;)

Preciso de um procedimento, em VB 6.0 que me ache a semana actual em que estamos consuante a data, partindo do principio que a semana começa ao Domingo.

Ex: Dia 7 Fevereiro = Semana 6

Dia 18 abril = Semana 16

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Da-me erros. Isso deve ser para Vb Net ou coisa do genero.

A linha "Return Math.Ceiling(expenseDate.DayOfYear / 7)" Fica logo a vermelho mal faço enter

Math.Ceiling, isto tb nao existe a nao ser que tenha que acrescentar alguma referencia ou objecto.

Private Function GetWeekNumber(ByVal expenseDate As Date) As Integer
   XPTO = Math.Ceiling(expenseDate.DayOfYear / 7)
End Function

Ao correr assim da-me um erro no "espenseDate" diz: Invalid qualifier

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Adicionas o controlo MonthView, que se encontra no pacote Windows Common Controls 2.60 (SP4).

A partir daí deves conseguir fazer o que queres... :D

P.S.: Pede-se que este tópico seja movido para a secção vb6/vb.net

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Exactamente, basta acrescentar esse objecto, que ele proprio tem nas propriedades a Semana actual.

MonthView1.Value = Date
XPTO = MonthView1.Week

Obrigado pela ajuda, ja tenho o meu assunto resolvido

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora