Delphi - Vencimiento

   
Vista:

Vencimiento

Publicado por Dario (29 intervenciones) el 19/10/2010 01:32:50
DecodeDate, EncodeDate es lo que no entiendo, cuanto mas especifico sea tu respuesta mejor para mi. Disculpa la ignorancia Eva.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Vencimiento

Publicado por Eva (484 intervenciones) el 20/10/2010 00:57:18
No pongas lo mismo en tantos hilos.

En la ayuda tienes DecodeDate y EncodeDate, molestate en buscarlo y aprenderás mucho más.

Algo como esto puede servirte.

procedure TForm1.Button1Click(Sender: TObject);
Var
Anio, Mes, Dia: Word;
begin
DecodeDate(Date,Anio,Mes,Dia);
Mes := Mes + StrToInt(Edit1.Text);
If (Mes > 12) and (Mes < 25)then
begin
Mes := Mes - 12;
Anio := Anio + 1;
end;
If (Mes > 24) and (Mes < 37)then
begin
Mes := Mes - 24;
Anio := Anio + 2;
end;
If Mes > 36 then
begin
ShowMessage('No damos prestamos tan largos');
Exit;
end;
DateTimePicker1.Date := EncodeDate(Anio,Mes,Dia);
end;

Adaptatelo a tus necesidades.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar