Problem mit Variants und YearOf Funktion

[Ascuriah]

Moin Moin DP`ler

Ich habe folgendes Problem. Ich habe eine Tabelle in der es eine Spalte mit Datum und (noch leere) Spalten Jahr, Monat, Woche usw...

Delphi-Quellcode:

buchdat := qryFibu.FieldByName('KBU_Buchungsdatum').Value;

datum := VarToDateTime(buchdat);

jahr := YearOf(datum);

1. Ich komme nicht drum rum das die variable buchdat vom typ variant ist.
2. Dann wandel ich den variant in ein DateTime um (um die Funktionen der DateUtils zu nutzen)
3. Jahr ist vom typ variant und YearOf(datum) liefert mir ja word zurück, klar das das so irgendwie ned gehen kann aber wie bekomm ich den word in mein variant, bzw geht das überhaupt?

Alternativ habe ich das ganze (für Jahr) nun so gelöst:
jahr    := RightStr(buchdat, 4); // die letzten 4 Stellen des Datums ergeben das Jahr Meinen Leuten wärs aber wesentlich lieber es über die DateUtils zu lösen, wenn jemand also nen Tipp hat wär das super.

mfg

Ascu


PS: Sollte das der Falsche Forums-Bereich sein bitte ich um verschieben war mir ned sicher wo ich damit nun hingehör