Separar el mes de un campo date

[Camilo]

Hola amigos: primero aclaro que busque en el historial del foro y por google y las respuestas encontradas respecto al tema no me ayudaron aunque son parecidas. Supongo que es falta de pericia para adecuarlas a mi problema.

Tengo una tabla llamada "Tarifas_ISS" dentro de ella hay un campo llamado "vencimiento" ese vencimiento es un campo tipo "Date" (Tabla echa en paradox).
Necesito que cuando en una form yo llame a ese registro por un campo llamado "documento" (Eso ya esta resuelto); en un Dbedit me aparezca solamente el numero que corresponde al mes que esta grabado en el campo "vencimiento" del registro.

E intentado el decodedate pero solo me funciona con la fecha del sistema y no con fechas almacenadas en dicho campo.

USo D-7.

Gracias por la ayuda.

[ContraVeneno]

Empezado por Camilo

...intentado el decodedate pero solo me funciona con la fecha del sistema y no con fechas almacenadas en dicho campo...

¿por que no funcionó? debería de tener el mismo funcionamiento, es decir, decodedate recibe una fecha como parámetro, si no te funcionó es porque no le pasaste una fecha.

en fin, la función formatdatetime con un formato "MM" te podría funcionar tambien.

¿Paradox no tiene una función "month" o algo similar?

En SQL Server sería:

Código SQL [-]
Select datepart(mm, fecha)

[Camilo]

Mira yo lo intento asi en el OnCreate de una Form:

var
Fecha: TDate;
Ano, mes, dia: Word;
begin
TableTarifas_ISs.Open;
Fecha:= Now;
DecodeDate(Fecha, ano, mes, dia);
DbEdit12.Text:= IntToStr(dia);
DbEdit13.Text:= IntToStr(mes);
DbEdit14.Text:= IntToStr(ano);

Pero el tema es que "Fecha:= Now;" es la que no he podido reemplazar por el campo que corresponde.

Gracias.

[ContraVeneno]

Empezado por Camilo

Pero el tema es que "Fecha:= Now;" es la que no he podido reemplazar por el campo que corresponde.

¿porque no? ¿te marca error? ¿cuál?

Código Delphi [-]
  
  Fecha := TableTarifas_ISs.FieldByName('Tufecha').AsDateTime;
  //directo:
  DecodeDate( TableTarifas_ISs.FieldByName('Tufecha').AsDateTime, ano, mes, dia);

[Camilo]

Contraveneno eres un "AS"

Me funciona perfectamente; Mil Gracias

[egarc]

Una manera más fácil es usar las funciones de fechas del SQL.

Código SQL [-]
 
select Nro, Concepto, MonthOf(fecha) as Mes, DayOf(Fecha) as Día 
from 
Tarifa
order by YearOf(Fecha)

[Camilo]

Gracias Egarc por tu interes y aporte; tambien funciono.