Obter mes de uma data...

Question

Amigos, como obter o mes de uma data!N�o seria assim Now.Month?...

Motta · Answer

use DecodeDate....

Ezdala · Answer

Var dia,Mes,Ano:word;begin   DecodeDate(now, ano, mes, dia);//   o mes esta na variavel �mes�;end;...

Host · Answer

Procedure CreateCodNumber;var  Present: TDateTime;  Ano, Mes, Dia, Hora, Min, Seg, MSeg: Word; begin  Present:= Now;  DecodeDate(Present, Ano, Mes, Dia);  CodCust:=IntToStr(Ano)+ IntToStr(Mes)+ IntToStr(Dia);  CodCust1:=IntToHex(StrToInt(CodCust), 5);  DecodeTime(Present, Hora, Min, Seg, MSeg);  CodCust:=IntToStr(Hora)+ IntToStr(Min)+ IntToStr(Seg)+IntToStr(MSeg);  CodCust1:=CodCust1+IntToHex(StrToInt(CodCust), 6);  GerenciadorCustomer.Edit1.Text:=CodCust1;  end;E mais do que vc precisa, mas esta ai!!Espero que o tenha ajudado!!...

Nildo · Answer

A seguinte funcao retorna o Mes de uma data:formatDateTime(�mm�, date);Por exemplo;showmessage(formatDateTime(�mm�, date));...

Paulo Oliveira · Answer

Obrigado companheiros......

Paulo Oliveira · Answer

OK! muito obrigado......

F�rum Obter mes de uma data... #173941