Формат даты для установки даты начала и окончания встречи Outlook в коде Java

Question

Я создаю встречу в Outlook через код Java. здесь я могу установить новые значения для полей в назначении. Код для этого

OleAutomation appointment = invoke(outlook, "CreateItem", 1).getAutomation();
appointment.setProperty(property(appointment, "Subject"), new Variant("Test"));

этот код установит поле темы со значением "Тест".

здесь я использую общий механизм OLE "Вариант" для передачи данных разных типов через общий интерфейс. Теперь я хочу знать, как установить дату встречи. Пожалуйста, помогите мне..

Заранее спасибо:)

Answer 1

Как указано в моем комментарии, даты в OLE хранятся как количество дней с 1899-12-30. Вы можете легко рассчитать это число. Если у вас есть, передайте его правильному свойству OLE, используя стандартный вариант.

К сожалению, я не установил здесь SWT и не могу протестировать код, но он должен выглядеть примерно так

public class Test {
    static Calendar OLE_BASE_DATE = Calendar.getInstance();
    static {
        OLE_BASE_DATE.set(1899, 11, 30); // 1899-12-30
    }

    static double oleDateFormat(Calendar cal) {
        long diff = cal.getTimeInMillis() - OLE_BASE_DATE.getTimeInMillis();
        return diff / 86400000L;
    }

    public static void main(String[] args) {
        // get outlook instance etc...
        OleAutomation appointment = invoke(outlook, "CreateItem", 1).getAutomation();
        appointment.setProperty(property(appointment, "Subject"), new Variant("Test"));
        // compute the appointment start & stop
        double todayAtNoon = oleDateFormat(Calendar.getInstance()) + 0.5;
        double todayAt13_12 = oleDateFormat(Calendar.getInstance()) + 0.55;
        // set the vars
        appointment.setProperty(property(appointment, "Start"), new Variant(String.valueOf(todayAtNoon)));
        appointment.setProperty(property(appointment, "End"), new Variant(String.valueOf(todayAt13_12)));
        appointment.setProperty(property(appointment, "Location"), new Variant("At foo's"));
        // do more stuff
    }
}

Более подробную информацию об автоматизации Outlook можно найти здесь для полного примера в VB