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
|
JOINVILLE
SC - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 05/04/2006 16:45 hs
"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. |
|
|
|
|
|
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
|
|
|
|
|
|
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+ |
|
|
|
|
|
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! |
|
|
|
