public void testDateValue() {
Date date = new Date();
final Date date1 = Vba.dateValue(date);
Calendar calendar = Calendar.getInstance();
calendar.setTime(date1);
assertEquals(0, calendar.get(Calendar.HOUR_OF_DAY));
assertEquals(0, calendar.get(Calendar.MINUTE));
assertEquals(0, calendar.get(Calendar.SECOND));
assertEquals(0, calendar.get(Calendar.MILLISECOND));
}
