Изменение формата даты - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д