Изменение формата даты - VBA

Формулировка задачи:

Всем хорошего дня! У меня такая проблема: Написал функцию расчёта срока изготовления изделия для этапов производства, в зависимости от общей даты Старта (А1) и Финиша (А2) Заказа, (К - коэффициент, зависящий от очерёдности этапа):

                    Листинг программы
                
Public Function FSrok(ByVal A1 As Variant, ByVal A2 As Variant, ByVal K As Variant) As Date
    Dim A As Variant
        A = A1 - (A1 - A2) * K
        FSrok = A
End Function

Эта функция возвращает мне дату в формате: 25.12.2015 23:02:24, а мне нужно просто: 25.12.2015. Как изменить формат даты? Пытаюсь с помощью доп переменной:

                    Листинг программы
                
B=Format (A, "Short Date")

но это вообще не работает( Подскажите, что не так? Спасибо)

Решение задачи: «Изменение формата даты»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Function IsEmptyDate(ByVal Value As Date) As Boolean
    Dim EmptyDate As Date
    If Value = EmptyDate Then IsEmptyDate = True Else IsEmptyDate = False
End Function
 
Public Function FSrok(ByVal A1 As Date, ByVal A2 As Date, ByVal K As Single) As Date ' К - плавающей точкой (single), например 0,78, но вряд ли в этом дело
    Dim A As Date
        If Not IsEmptyDate(A1) Or Not IsEmptyDate(A2) Then
            A = A1 - (A1 - A2) * K
            B = FormatDateTime(A, vbShortDate) ' нужен короткий формат даты, к примеру 01.01.2011
        End If
        FSrok = B
End Function