Foros Club Delphi - Sacar mes

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Sacar mes (https://www.clubdelphi.com/foros/showthread.php?t=67923)

sizne

13-05-2010 22:37:16

Sacar mes

Hola, alguien podria decirme por favor, como puedo sacar solo el mes de una fecha, si:
fecha:TDateTime
DayOfTheWeek (fecha); <---para sacar el dia.

Quiero una sentencia similar pero para sacar el mes.
Ejemplo: 05/11/2010
Necesito : 11 // osea el mes noviembre

Graacias!

rgstuamigo

13-05-2010 22:50:47

Cita:

Empezado por sizne (Mensaje 363969)

Puedes utilizar los procedimientos "DecodeDate" o "DecodeDateTime" para separar dia, mes y año en variables independientes.;).
Si tienes dudas has una busqueda con tales palabras y encontraras miles de referencias por ejemplo ésta.;)
Saludos...:)

Casimiro Notevi

13-05-2010 22:52:23

No recuerdo una función de delphi, pero como dice rgstuamigo, puedes usar decodedate, o crearte una función más o menos así:

Código:



function getDiaMesAno( cQue:char; dFecha:TDateTime ):integer;

var

  iD, iM, iA : Word;

  cT : Char;

begin

  Result :=0;

  DecodeDate(dFecha,iD,iM,iA);

  cT := UpCase(cQue);

  if      cT='D' then result := integer(iD)

  else if cT='M' then result := integer(iM)

  else if cT='A' then result := integer(iA);

end;

Cuando necesites obtener el mes:

Código:

iMes := getDiaMesAno('M',fecha);

Lord Delfos

13-05-2010 23:19:55

El mes se puede obtener con la función MonthOf, de la unidad DateUtils. Sin embargo, creo que está a partir de Delphi 7. Si no vas a tener que hacer lo que ya te han apuntado.

Saludos.

sizne

14-05-2010 01:03:06

Hola!

Gracias a todos!!!

Saludos!

Casimiro Notevi

14-05-2010 01:31:37

Me he equivocado en el orden de los parámetros en DecodeDate, es

Código:

DecodeDate(dFecha,iA,iM,iD);

La franja horaria es GMT +2. Ahora son las 19:22:25.