Obter mes de uma data...
Amigos, como obter o mes de uma data!
Não seria assim Now.Month?
Não seria assim Now.Month?
Paulo Oliveira
Curtidas 0
Respostas
Motta
08/08/2003
use DecodeDate.
GOSTEI 0
Ezdala
08/08/2003
Var dia,Mes,Ano:word;
begin
DecodeDate(now, ano, mes, dia);
// o mes esta na variavel ´mes´;
end;
begin
DecodeDate(now, ano, mes, dia);
// o mes esta na variavel ´mes´;
end;
GOSTEI 0
Host
08/08/2003
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!!
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!!
GOSTEI 0
Nildo
08/08/2003
A seguinte funcao retorna o Mes de uma data:
formatDateTime(´mm´, date);
Por exemplo;
showmessage(formatDateTime(´mm´, date));
formatDateTime(´mm´, date);
Por exemplo;
showmessage(formatDateTime(´mm´, date));
GOSTEI 0
Paulo Oliveira
08/08/2003
Obrigado companheiros...
GOSTEI 0
Paulo Oliveira
08/08/2003
OK! muito obrigado...
GOSTEI 0