Descomponer Fecha

[darkborrego]

Empezado por Gamael Hdez

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.

Funciona perfecta esa forma, muchas gracias.


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?

 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;