[Gamael Hdez]

Empezado por darkborrego

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;

queda asi:

recibos.MesLoc.Caption:=formatdatetime('mmmm',DateTimePicker1.Date);
recibos.MesVis.Caption:=formatdatetime('mmmm',DateTimePicker1.Date);