Descrição
DateDiffYMD - Retorna a diferença de dias, meses e anos de duas Data Informada.
|
Sintaxe
| DateDiffYMD( <dDate01>, <dDate02> ) |
Parâmetros
| Par |
Nome |
Tipo |
Descrição |
Default |
Obg |
Ref |
01
|
dDate01 |
Date |
Data que você deseja comparar |
|
X |
|
| 02 |
dDate02 |
Date |
Data que você deseja comparar |
|
X |
|
Retorno
| Retorno |
Tipo |
Descrição |
| aRet |
Array
|
Diferença de Dias, Meses e Anos
|
Exemplo
#INCLUDE "TOTVS.CH"
User Function DiffYMD()
Local dDate01 := Date()
Local dDate02 := YearSum( MonthSum( DaySum( Date(), 1 ), 2 ), 3 )
Local aRet := DateDiffYMD( dDate01, dDate02 )
MsgInfo( 'Valor 01: ' + cValtoChar( dDate01 ) ;
+ CRLF + 'Valor 02: ' + cValtoChar( dDate02 ) ;
+ CRLF + 'Anos: ' + cValtoChar( aRet[01] ) ;
+ CRLF + 'Meses: ' + cValtoChar( aRet[02] ) ;
+ CRLF + 'Dias: ' + cValtoChar( aRet[03] ) , 'UniversoADVPL' )
Return( Nil )
Resultado
aRet
|
aRet[01]
|
Anos
|
|
aRet[02]
|
Meses
|
|
aRet[03]
|
Dias
|
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
