FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Descomponer Fecha
Hola,
he estado buscando por el foro pero no encuentro exactamente lo que necesito. Tengo un archivo de tipo date el cual necesito descomponer en años, meses y dias, es decir, tengo por ejemplo 22/07/2010 y necesito sacar una variable dia que contenga 22, una variable mes que contenga 07 y una variable año que contenga 2010. Estoy empezando con Delphi y no tengo mucha idea de Pascal por eso me gustaría que me ayudarais. Muchas gracias. |
#2
|
||||
|
||||
En delphi presiona F1 y busca las siguientes funciones:
DecodeDate DecodeDateTime EncodeDate EncodeDateTime Saludos.
__________________
|
#3
|
|||
|
|||
a mi se me oscurre una forma rapida con el formatdatetime('dd',strtodate('22/07/2010')) ahi obtienes el 22 , formatdatetime('mm',strtodate('22/07/2010')) el 07 y formatdatetime('yyyy',strtodate('22/07/2010')) el 2010 , es una manera facil, rapida y sencilla.
|
#4
|
|||
|
|||
jeje, si, el único problema es que no puedo ver la ayuda por el Windows 7 de los...
|
#5
|
||||
|
||||
bueno, para eso están los enlaces... y si no, puedes bajar la herramienta para ver archivo hlp en windows 7....
__________________
|
#6
|
|||
|
|||
Cita:
Ahora resulta que he hecho lo siguiente para poder escribir el mes en letras que es lo que necesitaba. Como es la primera vez que trabajo con Pascal no se pasarlo a función, ¿podría alguién decirme como se pasaría a una función el siguiente código? Código:
if formatdatetime('mm',DateTimePicker1.Date)='01' then begin recibos.MesLoc.Caption:='Enero'; recibos.MesVis.Caption:='Enero'; end; if formatdatetime('mm',DateTimePicker1.Date)='02' then begin recibos.MesLoc.Caption:='Febrero'; recibos.MesVis.Caption:='Febrero'; end; if formatdatetime('mm',DateTimePicker1.Date)='03' then begin recibos.MesLoc.Caption:='Marzo'; recibos.MesVis.Caption:='Marzo'; end; if formatdatetime('mm',DateTimePicker1.Date)='04' then begin recibos.MesLoc.Caption:='Abril'; recibos.MesVis.Caption:='Abril'; end; if formatdatetime('mm',DateTimePicker1.Date)='05' then begin recibos.MesLoc.Caption:='Mayo'; recibos.MesVis.Caption:='Mayo'; end; if formatdatetime('mm',DateTimePicker1.Date)='06' then begin recibos.MesLoc.Caption:='Junio'; recibos.MesVis.Caption:='Junio'; end; if formatdatetime('mm',DateTimePicker1.Date)='07' then begin recibos.MesLoc.Caption:='Julio'; recibos.MesVis.Caption:='Julio'; end; if formatdatetime('mm',DateTimePicker1.Date)='08' then begin recibos.MesLoc.Caption:='Agosto'; recibos.MesVis.Caption:='Agosto'; end; if formatdatetime('mm',DateTimePicker1.Date)='09' then begin recibos.MesLoc.Caption:='Septiembre'; recibos.MesVis.Caption:='Septiembre'; end; if formatdatetime('mm',DateTimePicker1.Date)='10' then begin recibos.MesLoc.Caption:='Octubre'; recibos.MesVis.Caption:='Octubre'; end; if formatdatetime('mm',DateTimePicker1.Date)='11' then begin recibos.MesLoc.Caption:='Noviembre'; recibos.MesVis.Caption:='Noviembre'; end; if formatdatetime('mm',DateTimePicker1.Date)='12' then begin recibos.MesLoc.Caption:='Diciembre'; recibos.MesVis.Caption:='Diciembre'; end; |
#7
|
||||
|
||||
Cita:
Método 1:
Método 2:
__________________
|
#8
|
|||
|
|||
asi es mas facil: formatdatetime('mmmm',DateTimePicker1.Date)
ahi te pone: ENERO,FEBRERO, etc dependiendo de el numero de mes showmessage(formatdatetime('mm',strtodate('22/02/2010'))) muestra: Febrero |
#9
|
|||
|
|||
Cita:
recibos.MesLoc.Caption:=formatdatetime('mmmm',DateTimePicker1.Date); recibos.MesVis.Caption:=formatdatetime('mmmm',DateTimePicker1.Date); |
#10
|
|||
|
|||
Cita:
jeje, muchísimas gracias, perfecto así . Duda resuelta. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Descomponer cadena @String | Alejo15x | Varios | 3 | 04-02-2010 03:23:21 |
Descomponer nombre y apellidos | lgarcia | SQL | 4 | 15-04-2009 22:16:37 |
Descomponer un numero con 7 digitos | Camilo | Varios | 3 | 05-11-2007 21:58:02 |
Desde la fecha inicio hasta la fecha final que me grabe los meses contenidos | Renis | SQL | 4 | 01-10-2007 17:21:44 |
Ayuda, Como calcular fecha de vencimiento mensual a partir de una fecha x en delphi | Renis | Impresión | 4 | 23-08-2007 23:45:14 |
|