Funções que auxiliam a manipulação de Data.

Olá.

Hoje vou mostrar algumas funções úteis para a manipulação de datas que eu encontrei pesquisando no helpfacil. Lembrando que essas funções você não encontra no TDN.

DaySum( dDate , nDays ) //Soma Dias em Uma Data

DaySub( dDate , nDays ) //Subtrai Dias em Uma Data

MonthSum( dDate , nMonth ) //Soma Meses em Uma Data

MonthSub( dDate , nMonth ) //Subtrai Meses em Uma Data

YearSum( dDate , nYear ) //Soma Anos em Uma Data

YearSub( dDate , nYear ) //Subtrai Anos em Uma Data

DateDiffDay( dDate1 , dDate2 ) //Apura Diferença em Dias entre duas Datas

DateDiffMonth( dDate1 , dDate2 ) //Apura Diferença em Meses entre duas Datas

DateDiffYear( dDate1 , dDate2 ) //Apura Diferença em Anos entre duas Datas

DateDiffYMD( dDate1 , dDate2 ) //Retorna Array contendo a Diferença de Anos/Meses/Dias entre duas Datas

Até a próxima! 

TMultiBtn com Array de Funções

Nesse post eu vou mostrar como usar o TMultiBtn Passando um array de funções. Isso pode ser muito útil quando não sabemos quantos botões serão necessários, e dessa forma pode mos montar uma lista de botões em tempo de execução.

Segue abaixo o exemplo:

Local _aMenu := {}
Local _cExec := ""

/*
Aqui você vai popular o array
colocando na primeira posição o Nome do botão
e na segunda posição a chamada da função
*/

aAdd(_aMenu,{"Nome da Função","U_MINHAFUNCAO()"})

DEFINE DIALOG oDlg TITLE "Exemplo TMultiBtn" FROM 180,180 TO 550,700 PIXEL 
otMultiBtn := tMultiBtn():New( 01,01,'Titulo',oDlg, {|x,y| (_cExec := _aMenu[y,2], &_cExec ) },200,150, 'Afastamento',0,'Mensagem',3 )
otMultiBtn:SetFonts('Tahoma',16,'Tahoma',10) 
For a:=1 To Len(_aMenu) 
 otMultiBtn:AddButton(_aMenu[a,1])
Next a
ACTIVATE DIALOG oDlg CENTERED

O Inicio

Oi, eu sou o Leonardo e estou procurando uma nova forma de estudar e me aprimorar. Pretendo com esse blog, trazer conteúdo dos quais estudo e aprender com criticas e comentários.
Utilizarei esse blog para compartilhar o meu conhecimento e adquirir o conhecimento de meus leitores.

Espero que gostem! Até o próximo post!