нужно реализовать функцию ДАТА
исходные значения
год месяц день
1993 9 3
я получаю желаемый результат только формат даты не совпадает с желаемым сейчас мне выводит дату в виде числа 34215 которое хранится в переменной Data.
желаемый результат 03.09.1993. Как переконвертировать .
вот код:
Public Function me_data(Year, Month, Day As Integer) As String
Dim g As Integer
Dim m As Integer
Dim d As Integer
Dim dmg As Date
Dim Ma, Mb, Ya, Yb, n, i As Integer
Dim Data As Long
Dim mon(12) As Integer
Selection.NumberFormat = "m/d/yyyy"
If Year < 0 Or Year > 9999 Then
MsgBox ("Íåäîïóñòèìîå çíà÷åíèå!")
GoTo E
End If
If Year >= 1900 Then
Year = Year - 1900
End If
Ma = Month \ 12 ' + Ìà ëåò
Mb = Month Mod 12 'Íàçâàíèå ìåñÿöà
Year = Year + Ma
If Mb <= 0 Then
Year = Year - 1
n = 12 + Mb
Else: n = Mb
End If
Ya = Year \ 4 'êîë-âî âûñîêîñíûõ ëåò
Yb = Year Mod 4 ' ÿâë-ñÿ ëè äàí. ãîä âûñîê.
If Yb = 0 Then
mon(2) = 29
Data = -1
Else: mon(2) = 28
Data = 0
End If
mon(1) = 31
mon(3) = 31
mon(5) = 31
mon(7) = 31
mon(8) = 31
mon(10) = 31
mon(12) = 31
mon(9) = 30
mon(4) = 30
mon(6) = 30
mon(11) = 30
For i = 1 To n - 1
Data = Data + mon(i)
Next
Data = Data + (Year - Ya) * 365 + Ya * 366 + Day + 1
If Data < 0 Then
MsgBox ("Ââåäåíî íåäîïóñòèìîå çíà÷åíèå")
Else
me_data = Data
ActiveCell.NumberFormat = "m/d/yyyy"
End If
E:
End Function
Примечание:
прошу прощение за кодировку русских букв
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.