Como imprimir el mes en letra de la fecha del sistema

[[oscarac]]

En el sistema contable que estoy desarrollando tengo esta rutina
quiza la puedas modificar a tu gusto

Código Delphi [-]
Function NombreMes (Mes : Integer) : string;
begin
  result :=  Trim ( Copy(
 'Apertura Enero    Febrero  Marzo    Abril    Mayo     Junio     Julio    Agosto  SetiembreOctubre  NoviembreDiciembreAjustes  Cierre', 
(Mes+1)*9-8,9));
End;

La llamo asi

NombreMes (0); // Devuelve Apertura

[ContraVeneno]

mas bien necesitas dar más detalles de dónde y cómo lo quieres mostrar. Solamente dices que es un reporte, pero no indicas si es quickreports, rave, reportbuilder, crystal o cuál estas utilizando.

tampoco dices si es una variable, si es una expresión, si es un campo del sistema o cómo lo quieres mostrar.

Realmente no necesitas agregar nada de código, solamente con el formato te deberá permitir mostrar el mes en letra.

[rufo]

Es en un quickreports y solo quiero que hagarre el mes del sistema de mi pc y lo muestre en mi reporte, de antemano gracias por responder y estarme ayudando.

[[oscarac]]

con la rutina que te pase, puedes asignarsela a una variable y mostrarla en un label eb el quickreport

[beginner01]

saludos.

En delphi tambien esta la función longMonthNames que muestra los nombre de los meses en letras

[[maeyanes]]

Hola...

QuickReports debe tener un componente u objeto que te permita mostrar la fecha del sistema, a este solo le aplicas el formato como quieres que te la muestre y listo.

dd/MMMM/yyyy

Saludos...

[cloayza]

Empezado por beginner01

saludos.

En delphi tambien esta la función longMonthNames que muestra los nombre de los meses en letras

Amigo una corrección longMonthNames no es una funcion es un vector que contiene los nombres largos de los meses de acuerdo al idioma que tienes definido en configuración regional

Código Delphi [-]
begin
    showmessage(longMonthNames[1]); //Enero
    showmessage(longMonthNames[6]); //Junio

end

Un abrazo

[beginner01]

Empezado por cloayza

Amigo una corrección longMonthNames no es una funcion es un vector que contiene los nombres largos de los meses de acuerdo al idioma que tienes definido en configuración regional

gracias por la corrección.

http://www.delphibasics.co.uk/RTL.as...LongMonthNames