Datumsformatierung Englisches und Deutsches Format

[Freiwilderer]

so gehts
... nich grad schön, aber es klappt wenigstens

Delphi-Quellcode:

        if pos('.',cxgPLZGebietDBTableView1.GetColumnByFieldName('GueltigAb').EditValue) > 0 then
         recTmpGrid[dxMemData.RecNo - 1].GueltigAb    := cxgPLZGebietDBTableView1.GetColumnByFieldName('GueltigAb').EditValue
        else
         begin
          recTmpGrid[dxMemData.RecNo - 1].GueltigAb   := copy(cxgPLZGebietDBTableView1.GetColumnByFieldName('GueltigAb').EditValue,9,2) + '.' +
                                                         copy(cxgPLZGebietDBTableView1.GetColumnByFieldName('GueltigAb').EditValue,6,2) + '.' +
                                                         copy(cxgPLZGebietDBTableView1.GetColumnByFieldName('GueltigAb').EditValue,1,4)
         end;

mfg

Freiwilderer

[edit=mkinzler]Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler[/edit]