DataCipher = "24.01.2010"
DataName = Format(DataCipher, "dd mmmm yyyy г.")
DC = Format(Replace(DataName, " г.", ""), "dd/mm/yyyy")
MsgBox DataCipher + vbCrLf + DataName + vbCrLf + DC
sDate1 = "26.05.2009" ' Дата в символьном виде
sDate2 = "28.01.2010"
Date1 = DateValue(sDate1) ' преобразую дату из символьного типа в тип дата
Date2 = DateValue(sDate2)
IntMonth = DateDiff("m", Date1, Date2) ' Высчитываю интервал в месяцах
Date1m = DateAdd("m", IntMonth, Date1) ' Прибавляю к начальной дате кол-во месяцев
IntDays = DateDiff("d", Date1m, Date2) ' Высчитываю остаток в днях
MsgBox sDate1 + vbCrLf + sDate2 + vbCrLf + CStr(IntMonth) + " мес. " + CStr(IntDays) + " дн."
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.