Ver Mensaje Individual
  #2  
Antiguo 23-10-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
 Dia,Mes,Anno:Word;
 begin
 DecodeDate(Date,Anno,Mes,Dia);
 label1.Caption:=IntToStr(Dia);
 label2.Caption:=IntToStr(Mes);
 label3.Caption:=IntTostr(Anno);
 end;

Un Saludo
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita