09. september 2007 - 11:40Der er
5 kommentarer og 1 løsning
hvordan konverterer man dato i et str-felt til num-værdi ?
datoen (dd-mm-åååå) gemmes i et karakterfelt i en dbf-fil det ønskes konverteret til et talfelt - således at talværdien angiver / svarer til dato-rækkefølgen....
illustreret eksempel: dato 1 10-09-2007 svarer til tallet 4711 dato 2 09-09-2007 svarer til tallet 4710
function ConvDateStrToInt1(s : string) : integer; var d, m, y : integer; begin d := StrToInt(Copy(s, 1, 2)); m := StrToInt(Copy(s, 4, 2)); y := StrToInt(Copy(s, 7, 4)); ConvDateStrToInt1 := Y * 31 * 12 + m * 31 + d; end;
ellers så brug:
function ConvDateStrToInt2(s : string) : integer; var dt : TDateTime; begin ShortDateFormat := 'dd-mm-yyyy'; dt := StrToDate(s); ConvDateStrToInt2 := trunc(dt); end;
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.