Crear fecha corta

[rufo]

Hola amigos aqui ando d enuevo consultando a los expertos, resulta que tengo un programa que me pide vigencia de xxxx al xxxx ahi no esta el problema ya que logro que aparesca en el reporte pero en si yo quiero saber como se hace para que aparesca asi:

Vigencia 01/2010 Al 06/2010

ya que para capturar la fecha lo hago con el objeto datetimepicker y lo almaceno en la base de datos pero ya estuvie viendo en las mascaras de access y no encuentro algo que me solucione el problema entonces quisiera pedirles de favor si me pueden decir que puedo hacer y gracias de antemano.

[roman]

Puedes usar la función FormatDateTime.

// Saludos

[Jucho69]

Hola

No soy un experto ni por mucho, pero como me han ayudado tambien en este Foro trato de hacer lo mismo

A mi me funciona esta solución:

Adapté una función que encontré en Trucosmania.

function GetToken(Cadena,Separador:string;Token:integer):string;
var
Posicion:integer;
begin
while Token > 1 do begin
Delete(Cadena,1,Pos(Separador,Cadena));
Dec(Token);
end;
Posicion:=Pos(Separador,Cadena);
if Posicion=0
then result:=cadena
else Result:=Copy(Cadena,1,Posicion-Length(Separador));
end;


Luego hice esta solución:

Busco la fecha con el formáto que tenga y la almaceno en un label como en este caso

label13.Caption:=GetLocalT; //// fecha del Sistema ////
for n:=1 to 1 do
Combobox28.Items.Add(GetToken(label13.Caption,' ',n));
Combobox28.Items.Delete(2);
for n:=1 to 2 do
Combobox28.Items.Add(GetToken(label13.Caption,'/',n));
for n:=1 to 3 do
sep:=(GetToken(label13.Caption,'/',n));delete(sep,5,20);
b:=(GetToken(label13.Caption,'/',n));delete(b,2,20);

Al final tengo un combo con varios itens que corresponden a partes de la fecha, solo tienes que usarlos (unirlos) segun necesites y funciona con otros formátos de fecha de la pc, (01/03/2009 o 1/3/09) yo tuve problemas con eso y para no meterme en configuraciones de pc de los usuarios hice esto.

No obstante estoy a la caza de soluciones mejores y menos complicadas
que algun maestro debe tener por aquí.

Saludos