Byte nach BCD

[DelphiManiac]

Hallo,

ich habe ein Problem bei der Konvertierung eines Datums
Vielleicht könnt ihr mir ja da helfen.

Delphi-Quellcode:

var
  day:Byte;
begin
  day:=$23; // Also Tag ist der 23. eines Monats, so bekomme ich den Tag geliefert (in BCD)

nun muss ich den Tag als Word in ein DateTimePicker schreiben
hier kann ich nun aber nicht die $23 nehmen, da das ja dezimal 35 wären (also der 35. eines Monats --> gibt ja net :lol: )
wie kann ich nun die Hex Zahl als dezimalzahl betrachten quasi $10 als 10 dezimal,
oder $31 als dezimal 31?

Danke euch!

[Reinhard Kern]

Zitat:

Zitat von DelphiManiac

Hallo,

ich habe ein Problem bei der Konvertierung eines Datums
Vielleicht könnt ihr mir ja da helfen.

Delphi-Quellcode:

var
  day:Byte;
begin
  day:=$23; // Also Tag ist der 23. eines Monats, so bekomme ich den Tag geliefert (in BCD)

nun muss ich den Tag als Word in ein DateTimePicker schreiben
hier kann ich nun aber nicht die $23 nehmen, da das ja dezimal 35 wären (also der 35. eines Monats --> gibt ja net :lol: )
wie kann ich nun die Hex Zahl als dezimalzahl betrachten quasi $10 als 10 dezimal,
oder $31 als dezimal 31?

Danke euch!

Delphi-Quellcode:

function BCDVal (BCD : Byte) : Byte;
begin
Result := (BCD and $F0) * 10 div 16 + (BCD and $0F);
end;

(habs nicht ausprobiert)
Gruss Reinhard

[DelphiManiac]

Hey danke,

so klappts!!