PRIMEIRO E ULTIMO DIA DO MES CORRENTE
Pessoal, boa noite, estou a trabalhar com umas datas aqui, e gostaria de preencher dois determinados controles que contem datas, com o primeiro e ultimo dia do mes corrente, exemplo : tenho um option button para cada mes, se eu clico em janeiro, e para preencher o campo ex: text1.text = [Ô][Ô] & [Ô]01/01/2010[Ô] e o text2.text = [Ô]31/01/2010[Ô] .. o option2 tambem a mesma coisa.. option 3.. etc.. ou seja, cada option corresponde a um mes, porem o que acontece.. e o tal do ano bissexto, ou seja, todos os meses do ano vai dar certinho, pois todos tem 30 ou 31 dias, em excessao do mes de fevereiro, que tem 28 ou 29 se for ano bissexto, como eu poderia tratar isso? ou seja, se o cara selecionou la.. ano 2014, mes fevereiro, é ano bissexto, entao ele teria que preencher de 01/02/2014 a 29/02/2010 e nao 28/02.. entenderam????
Desde ja brigadao..
Desde ja brigadao..
Experimenta assim
Dim fever as integer
Dim UltimoDiaMes as variant
if Year(date) mod 4 = 0 then
fever = 29
else
fever = 28
end if
UltimoDiaMes = array((31, fever, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
datDataFinal = dateserial(Year(date),Month(date),UltimoDiaMes(Month(date)-1)
Dim fever as integer
Dim UltimoDiaMes as variant
if Year(date) mod 4 = 0 then
fever = 29
else
fever = 28
end if
UltimoDiaMes = array((31, fever, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
datDataFinal = dateserial(Year(date),Month(date),UltimoDiaMes(Month(date)-1)
[ô]CALCULA DATA ATUAL PARA JOGAR NO DATE O DIA 1 DO MES
Dim VALOR As String
VALOR = Date.Now.Day - 1
DateTimePicker1.Value = Date.Now.AddDays(-VALOR)
TO PEGANDO AI CRIANDO UMA VARIAVEL (VALOR) , E ATRIBUO PARA ELA A DATA DE HJ MENOS 1
DEPOIS PEGO O DATATIMEPICKER E JOGO O DIA DE HJ - VALOR !!
EX HJ E DIA 27 - 1 = 26
ENTAO SE SUBTRAIR 26 DE 27 VAI DAR NO DIA 1 DE CADA MES!!!!
AI VC PEGA ESSA LOGICA E APLICA DA MELHOR MANEIRA NA SUA APLICAÇAO
VLW IRMAO
Dim VALOR As String
VALOR = Date.Now.Day - 1
DateTimePicker1.Value = Date.Now.AddDays(-VALOR)
TO PEGANDO AI CRIANDO UMA VARIAVEL (VALOR) , E ATRIBUO PARA ELA A DATA DE HJ MENOS 1
DEPOIS PEGO O DATATIMEPICKER E JOGO O DIA DE HJ - VALOR !!
EX HJ E DIA 27 - 1 = 26
ENTAO SE SUBTRAIR 26 DE 27 VAI DAR NO DIA 1 DE CADA MES!!!!
AI VC PEGA ESSA LOGICA E APLICA DA MELHOR MANEIRA NA SUA APLICAÇAO
VLW IRMAO
Tópico encerrado , respostas não são mais permitidas