|
|
Postada em 04/07/2005 18:11 hs
Pessoal, alguém sabe de alguma função que retorna a semana do mês? Por exemplo: Eu passo 01/07/2005 e ele me retorna 1 eu passo 02/07/2005 e ele me retorna 2 eu passo 01/08/2005 e ele me retorna 1 |
|
|
|
|
|
Jayme
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 08/07/2005 10:27 hs
Experimente isto: MsgBox Format("01/01/2005", "ww")
MsgBox Format("01/04/2005", "ww")
MsgBox Format("08/05/2005", "ww")
MsgBox Format("08/07/2005", "ww")
Jayme |
|
|
|
Guina
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/01/2009 10:18 hs
Jayme, esse format retorna o mes corrente do Ano e nao a semana dentro do MES.... te, alguma outra maneira?? abs |
|
|
|
|
|
Postada em 30/01/2009 11:43 hs
Olá leandrotr... lendo seu post, pensei numa solução e montei esse procedimento.
Tenta adaptá-lo as suas necessidades. Espero ter ajudado e que funcione como você precisa!!!
Sub SemanaMes ()
Dim sem_ano As Byte, sem_mes As Byte
sem_ano = Format(Now, "ww") 'retorna as semanas do ano de 1 a 53
Select Case sem_ano
Case 1, 5, 9, 13, 17, 21, 25, 29, 33, 37, 41, 45, 49, 53: ' semana 1
sem_mes = 1
Case 2, 6, 10, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50: ' semana 2
sem_mes = 2
Case 3, 7, 11, 15, 19, 23, 27, 31, 35, 39, 43, 47, 51: ' semana 3
sem_mes = 3
Case 4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52: ' semana 4
sem_mes = 4
Case Else
sem_mes = 0
End Select
If sem_mes <> 0 Then
MsgBox "semana do mês: " & sem_mes, vbInformation, "Aviso"
Else
MsgBox "Erro indeterminado!", vbInformation, "Aviso"
End If
End Sub
Sem mais, 
Abraços!!! 
by
Gustavo Bittencourt Costa
|
|
|
|
|
