[VB6] Achar a Semana atraves do dia

[patoche]

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

[satanuke]

Não sou nenhum pro em VB, mas este topico que encontrei num forum pareçe-me ser bom.

Private Function GetWeekNumber(ByVal expenseDate As Date) As Integer

Return Math.Ceiling(expenseDate.DayOfYear / 7)

End Function

Fonte : http://www.developerfusion.co.uk/forums/topic-27118

[patoche]

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

[vbmaster]

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

A partir daí deves conseguir fazer o que queres... 😄

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

[patoche]

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