C/C++-Quelltext

var
  I: Integer;
  DayTable: PDayTable;
begin
  Result := False;
  DayTable := @MonthDays[IsLeapYear(Year)];
  if (Year >= 1) and (Year <= 9999) and (Month >= 1) and (Month <= 12) and
    (Day >= 1) and (Day <= DayTable^[Month]) then
  begin
    for I := 1 to Month - 1 do Inc(Day, DayTable^[I]);
    I := Year - 1;
    Date := I * 365 + I div 4 - I div 100 + I div 400 + Day - DateDelta;
    Result := True;
  end;
end;

Java-Quelltext

private static long getDateValue(Timestamp value) {

        long year = value.getYear();
        boolean leap = (year % 4 == 0 && year % 100 != 0) || (year % 400 == 0);

        long days = value.getDate();

        for (int i = 0; i < value.getMonth() - 1; i++) {
            days += daysOfYear[leap ? 1 : 0][i];
        }
        long i = year - 1;
        long date = i * 365 + Math.round(i / 4) - Math.round(i / 100)
                - Math.round(i / 400) + days - 693584;

        return date;
    }

C/C++-Quelltext

function TryEncodeTime(Hour, Min, Sec, MSec: Word; out Time: TDateTime): Boolean;
begin
  Result := False;
  if (Hour < HoursPerDay) and (Min < MinsPerHour) and (Sec < SecsPerMin) and (MSec < MSecsPerSec) then
  begin
    Time := (Hour * (MinsPerHour * SecsPerMin * MSecsPerSec) +
             Min * (SecsPerMin * MSecsPerSec) +
             Sec * MSecsPerSec +
             MSec) / MSecsPerDay;
    Result := True;
  end;
end;

Java-Quelltext

private static double getTimeValue(Timestamp value) {
        double t = value.getHours() * (3600000) + value.getMinutes()
                * (60000) + value.getSeconds() * 1000;
        return t / (86400000);
    }

Java-Quelltext

@Override
    public byte[] getBytes(Timestamp value, Annotation[] annos) {

        long value1 = Double.doubleToLongBits(getDateValue(value)
                + getTimeValue(value));
        return toByteArray(value1);
    }

C/C++-Quelltext

procedure recivie(d:array[] of byte)
var k:record timestamp:TDateTime end absolute d;
begin 
  showmessage(datetimetostr(k.timestamp);
end;