CONVERTENDO DIA DA DATA

IRENKO 05/06/2015 16:00:14
#447437
Pessoal, tenho uma data:

25/03/2015

Baseando-se no mês, queria converte-la sempre para o primeiro dia da mesma, ou seja, conforme abaixo:

01/03/2015

existe função para isso?

Grato
F001E 05/06/2015 16:17:43
#447440 Resposta escolhida
Veja ae.....da para ter uma ideia....

Private Sub Form_Load()

  Dim dataInicio As Date
  Dim dataFim As Date
  
  dataInicio = CDate([Ô]10/5/2010[Ô]) [ô]Data inicio digitada pelo cliente
  dataFim = CDate([Ô]28/5/2010[Ô])  [ô]Data fim digitada pelo cliente
  
  Dim Primeiro_Dia_Mes As Date
  Dim Ultimo_Dia_Mes As Date
  
  Primeiro_Dia_Mes = [Ô]01/[Ô] & Month(dataInicio) & [Ô]/[Ô] & Year(dataInicio)
  Ultimo_Dia_Mes = Func_Ultimo_Dia_Mes(dataFim)
  
  txtPrimeiro = Primeiro_Dia_Mes
  txtUltimo = Ultimo_Dia_Mes

End Sub
[ô]Função que retorna o ultimo dia do mes
Public Function Func_Ultimo_Dia_Mes(paramDataX As Date) As Date
  Func_Ultimo_Dia_Mes = DateAdd([Ô]m[Ô], 1, DateSerial(Year(paramDataX), Month(paramDataX), 1))
  Func_Ultimo_Dia_Mes = DateAdd([Ô]d[Ô], -1, Func_Ultimo_Dia_Mes)
End Function
IRENKO 05/06/2015 20:35:02
#447447
F001E, isso mesmo! Valeu!
Tópico encerrado , respostas não são mais permitidas
Voltar