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

Узнай цену своей работы

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

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

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

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4 из 5