Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-01-2004
NuncaMas NuncaMas is offline
Miembro
 
Registrado: oct 2003
Posts: 70
Poder: 22
NuncaMas Va por buen camino
Nombre del mes

Hay alguna funcion a la que le pases un numero y te devuelva el nombre del mes?? algo asi como

Código:
            bonitafuncion(1)='Enero'
            bonitafuncion(2)='Febrero'
Responder Con Cita
  #2  
Antiguo 05-01-2004
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.954
Poder: 27
delphi.com.ar Va camino a la fama
FormatDateTime('mmmm', Date)

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #3  
Antiguo 02-10-2010
fporcel fporcel is offline
Registrado
NULL
 
Registrado: oct 2010
Posts: 2
Poder: 0
fporcel Va por buen camino
Thumbs up Esto te resuelve el problema

Esta función muy simple, solo tienes que adptarla a la herramienta de desarrollo o Base de Datos que uses:

/////////////////////////////////////////////////////////////////////////
// Funtion: f_nom_mes
// Creada originalmente en Clipper y adaptada a Power Builder
// Argumentos:
// ai_num_mes número de mes (0 al 13 con, apertura y cierre)
// ai_lmes longitud de respuesta:
// Cuando es 3 DIC, o
// cuando es 9 DICIEMBRE
// Returns: String
// Descripción: Retorna el nombre del mes
////////////////////////////////////////////////////////////////////////
String ls_nom_mes, ls_nmeses
If ai_lmes =3 Then
ls_nmeses="APEENEFEBMARABRMAYJUNJULAGOSETOCTNOVDICCIE"
Else
ls_nmeses=" Apertura Enero Febrero Marzo Abril Mayo Junio Julio AgostoSetiembre OctubreNoviembreDiciembre Cierre"
End if
ls_nom_mes=mid(ls_nmeses,ai_num_mes*ai_lmes+1,ai_lmes)
Return ls_nom_mes
Responder Con Cita
  #4  
Antiguo 02-10-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola NuncaMas.

No conozco ninguna función predefinida en Delphi que haga eso,
quizá no la hayan incorporado por la simplicidad de la confección
del código...

Código Delphi [-]
function NombreMes(mes: Integer): string;
const
  MESES: array[1..12] of string = ('enero','febrero','marzo','abril','mayo',
        'junio','julio','agosto','septiembre','octubre','noviembre','diciembre');
begin
  Result:= MESES[mes];
end;

Saludos.

Última edición por ecfisa fecha: 02-10-2010 a las 19:40:43.
Responder Con Cita
  #5  
Antiguo 02-10-2010
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 26
Caral Va por buen camino
Hola
Lo malo de vosotros los maestros es que pensais que con la mitad del dato ya tenemos nosotros los novatos.
Me parece muy bien para hacernos pensar, pero, sabremos como implementar una funcion?.
Bueno, aqui una manera de implementacion, para aquellos que como yo estamos empezando en esto.
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(NombreMes(StrToInt(Edit1.Text)));
end;
Saludos
__________________
Siempre Novato
Responder Con Cita
  #6  
Antiguo 02-10-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por Caral Ver Mensaje
Hola
Lo malo de vosotros los maestros es que pensais que con la mitad del dato ya tenemos nosotros los novatos.
Me parece muy bien para hacernos pensar, pero, sabremos como implementar una funcion?.
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(NombreMes(StrToInt(Edit1.Text)));
end;
¿Ves que no soy el único que les dá todo echo ?

Saludos.
Responder Con Cita
  #7  
Antiguo 02-10-2010
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
huy, huy, huy... eso no vale, así cualquiera
Responder Con Cita
  #8  
Antiguo 02-10-2010
fporcel fporcel is offline
Registrado
NULL
 
Registrado: oct 2010
Posts: 2
Poder: 0
fporcel Va por buen camino
Thumbs up Mas corta

Versión más corta

ai_num_mes = 12

ls_nom_mes=mid(" Apertura Enero Febrero Marzo Abril Mayo Junio Julio AgostoSetiembre OctubreNoviembreDiciembre Cierre", ai_num_mes*9+1, 9)

Retorno: ls_nom_mes = "Diciembre"

MID es como el SUBSTR: extrae parte de la cadena

Saludos

Fredy
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:53:41.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi