USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  MonthView
Vity
CANOAS
RS - BRASIL
ENUNCIADA !
Postada em 05/04/2006 16:19 hs            
Olá Amigos, boa tarde!
 
Alguém poderia me dizer alguma coisa sobre este controle? Que tipo de propriedades e como usá-las? Se possível tudo.
 
Obrigado!
 
Sou novo no fórum, então, esperopoder contribuir de alguma forma. 
   
Geronimo
Pontos: 2843
JOINVILLE
SC - BRASIL
ENUNCIADA !
Postada em 05/04/2006 16:45 hs            
Amigo veja estas dicas :
 

"O pior inimigo que você poderá encontrar será sempre você mesmo."
   
Vity
CANOAS
RS - BRASIL
ENUNCIADA !
Postada em 06/04/2006 12:43 hs            
Eu já olhei este tópico do Macoratti. Não tem o q eu preciso.
 
Eu preciso saber como capturar o último dia de cada mês.
 
Alguém sabe?
 
Obrigado pela atenção.
   
-> Mike <-
CIDADE
PT - PORTUGAL
ENUNCIADA !
Postada em 08/04/2006 18:04 hs            
Olá,
'porque é que vc não faz uma condição:
 
Dim mesvar
Dim ultimodia
 
If mesvar = "Setembro" then
ultimodia = "30"
End If
If mesvar = "Outubro" then
ultimodia = "31"
End If
 
Mike

   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 08/04/2006 19:15 hs            
 
Use esta função:
 
Private Function F_UltimoDia(ByVal bMes As Integer) As Integer
Dim i As Integer
Dim data As String
For i = 31 To 1 Step -1
    data = i & "/" & bMes & "/" & Year(Date)
    If IsDate(data) Then F_UltimoDia = i: Exit For
Next
 
 
Só chamar assim por exemplo:
 
MsgBox F_UltimoDia(4) 'último dia do mês de Abril
 
t+
   
Vity
CANOAS
RS - BRASIL
Postada em 14/04/2006 21:45 hs            
É isso aí gurizada, obrigado pela ajuda.
 
Com isto já consigo resolver meu problema.
 
Consegui outras funções para últimodia e postarei elas para quem quiser.
 
Abraço a todos!
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página