Delphi - FORMATO FECHA '01-MAY-07'

HOLA BUENOS DÍAS:

Os comento, trabajo en Delphi5 con una BD en Oracle. Cuando le mando la fecha, me devuele ERROR por el formato (más bien por el mes).

La fecha la establezco con un DateTimePicker, que admite dos formatos (dfShort, dfLong) que no me valen; y he pensado en asignarselo a una variable y luego a esta variable darle el formato que me pide Oracle '00-MMM-00'.


Entonces pregunto:

¿Como puedo cambiar en Delphi el formato '00-00-00' a '00-MMM-00'?

Algo como esto podría ayudarte, necesitas agregar la unidad "DateUtils" a tu proyecto, con las funciones "DecodeDayOfWeekInMonth" y "DecodeDate"

var AYear, AMonth, ANthDayOfWeek, ADayOfWeek,Year, Month, Day: Word;
begin
FPrincipal.Refresh;
DecodeDayOfWeekInMonth(now,AYear, AMonth, ANthDayOfWeek, ADayOfWeek);
LbFecha.Caption:='Hoy es ';
Case ADayOfWeek of
1:LbFecha.Caption:=LbFecha.Caption+'lunes ';
2:LbFecha.Caption:=LbFecha.Caption+'martes ';
3:LbFecha.Caption:=LbFecha.Caption+'miércoles ';
4:LbFecha.Caption:=LbFecha.Caption+'jueves ';
5:LbFecha.Caption:=LbFecha.Caption+'viernes ';
6:LbFecha.Caption:=LbFecha.Caption+'sábado ';
7:LbFecha.Caption:=LbFecha.Caption+'domingo ';
end;
DecodeDate(Now, Year, Month, Day);
LbFecha.Caption:=LbFecha.Caption+IntToStr(day)+' ';
Case Month of
1:LbFecha.Caption:=LbFecha.Caption+'de enero del ';
2:LbFecha.Caption:=LbFecha.Caption+'de febrero del ';
3:LbFecha.Caption:=LbFecha.Caption+'de marzo del ';
4:LbFecha.Caption:=LbFecha.Caption+'de abril del ';
5:LbFecha.Caption:=LbFecha.Caption+'de mayo del ';
6:LbFecha.Caption:=LbFecha.Caption+'de junio del ';
7:LbFecha.Caption:=LbFecha.Caption+'de julio del ';
8:LbFecha.Caption:=LbFecha.Caption+'de agosto del ';
9:LbFecha.Caption:=LbFecha.Caption+'de septiembre del ';
10:LbFecha.Caption:=LbFecha.Caption+'de octubre del ';
11:LbFecha.Caption:=LbFecha.Caption+'de noviembre del ';
12:LbFecha.Caption:=LbFecha.Caption+'de diciembre del ';
end;
LbFecha.Caption:=LbFecha.Caption+IntToStr(Year);
end;