Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Cálculo entre Datas...
 
Notifications
Clear all

Cálculo entre Datas - Função UDF

 
2024 - VBA & Macros
4 Posts
3 Usuários
0 Reactions
1,135 Visualizações
RSS
 jlvfranca
(@jlvfranca)
Posts: 20
Eminent Member
Topic starter
 

Pessoal, bom dia.

Tenho uma fórmula que cálculo o tempo de serviço entre duas datas, mas quando a diferença dos dias forem superior a 14 dias, considero como 1 mês.
A fórmula abaixo vem me atendendo, mas gostaria de transformá-la em uma função UDF, poré não tenho conhecimento necessário em VBA para fazê-lo.

Alguém poderia ajudar-me nesta questão?

Segue abaixo a fórmula que venho utilizando.

B1(Data Admissão) = 16/12/1997
B2(Data Demissão) = 30/09/2011

B4 =IF(DATEDIF($B$1;$B$2;"MD")<14;DATEDIF($B$1;$B$2;"Y")+DATEDIF($B$1;$B$2;"YM")/12;DATEDIF($B$1;$B$2;"Y")+(DATEDIF($B$1;$B$2;"YM")+1)/12)

Resultado B4 = 13,8333

 
Postado : 04/07/2015 12:35 pm
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
 

só para te dar um adianto
tentei aqui

Public Function dIFdATA(ByVal DATA1 As Range, ByVal DATA2 As Range)

If DateDiff("md", DATA1, DATA2) < 14 Then

dIFdATA = DateDiff("y", DATA1, DATA2) + DateDiff("ym", DATA1, DATA2) / 12
Else
dIFdATA = DateDiff("y", DATA1, DATA2) + (DateDiff("ym", DATA1, DATA2) + 1) / 12

End If
End Function

mas depois descobri que não tem md nem ym

mas vc pode tentar a ajuda desse topico
https://social.msdn.microsoft.com/Forum ... orum=vbapt

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 04/07/2015 1:37 pm
 jlvfranca
(@jlvfranca)
Posts: 20
Eminent Member
Topic starter
 

Quero agradecer pela ajuda.
Valeu :D

 
Postado : 05/07/2015 7:00 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

jlvfranca

Para agradecer, clique na mãozinha, que fica do lado da ferramenta Citar, da resposta do Edcronos.

No fórum, mesmo em tópicos de outras pessoas, sempre que achar uma resposta útil, Clique na mãozinha, para incentivar os colaboradores.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/07/2015 11:30 am
Forum Jump:
  Tópico Anterior
Próximo Tópico