FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
obtener el dia,mes y año
Saludos a todos en el foro de este club.
Bueno mi pregunta es la siguiente: Como puedo hacer para obtener de la fecha que esta en un edit, el dia, el mes y el año, y pasar el dia a un edit, el mes a otro y el año al restante. Teniendo en cuenta que el formato que tiene la fecha que esta dentro del edit es: dd/mm/aaaa Bueno, les agradezco sus sugerencias y espero me puedan ayudar. Gracias Atte. Noe |
#2
|
||||
|
||||
Copy(Edit.Text, 1, 2) -> día
Copy(Edit.Text, 4, 2) -> mes Copy(Edit.Text, 7, 4) -> año // Saludos |
#3
|
||||
|
||||
Muchas gracias Roman!, era justo lo que necesitaba.
En verdad te agradezco tu ayuda. Saludos. |
#4
|
||||
|
||||
Hola.
la solución de ROMAN esta bien para ese caso, pero si la fecha llega a ser "1/1/2005" te puedes complicar (Claro el formato dice dd/mm/yyyy) pero como no se sabe de donde viene... si implementas esto: Código:
procedure TForm1.ButtonClick(Sender: TObject); var fecha:TDate; aNo, Mes, Dia:Word; begin fecha:=StrToDate(edit1.text); DecodeDate(fecha, aNo, Mes, Dia); Label1.Caption := 'Dia ' + IntToStr(Dia) + ' del Mes ' + IntToStr(Mes) + ' del Año ' + IntToStr(aNo); end; Saludos desde Colombia
__________________
En Colombia hay muchos, pero muchos colombianos muy buenos. Los violentos son pocos y los vamos a controlar... |
|
|
|