Это после VB Decompiler.
Кто знает, что получится в итоге?
Смущает var_7C - 2018 * 360.
Может, декомпилер скобки не расставляет?
Ведь похоже, что разницу в годах переводят в дни?
А получается, что нужно от 2018 отнять 2018*360...
Ну и далее Month(Now) - 1 * 30.
Тоже, наверное, нужно (Month(Now) - 1) * 30)?

И особенно var_ret_5 = (var_44 < ""). Что это, присвоение var_ret_5 true или false?
И как может быть меньше, чем ""?

loc_001: var_6C = Now
loc_002: var_7C = Year(var_6C)
loc_003: call undef 'Ignore this '__vbaFreeVar
loc_004: var_44 = var_7C - 2018 * 360 + Month(Now) - 1 * 30 + Day(Now)
loc_005: call undef 'Ignore this '__vbaFreeVar
loc_00E6: var_ret_5 = (var_44 < "")
loc_007: var_ret_7 = var_8C Or (var_44 > 360)

| Сообщение посчитали полезным:

egorus2010 пишет:
Кто знает, что получится в итоге?
А слабо было исходник приложить? Ну медитирует там VB Decompiler , ну и что, разбираться, что должно быть?
Если версия официальная, спрашивай у автора, он ответит...

| Сообщение посчитали полезным:

Спросил тоже...

| Сообщение посчитали полезным:

Обычная проверка, юзаем ли мы софт больше года:
var_ret_7 = (Год-2018)*360+(Месяц-1)*30+День;
Для даты 14.02.2019:
var_ret_7 = (2019-2018)*360+(2-1)*30+14 = 404
var_ret_7 = (Нужно_обновиться = true) or (404 > 360); = Беги юзер за обновлением или регистрируй триал ;)

var_ret_5 = (var_44 < ""); - var_44 < 0 = не ушла ли дата (дни) в минус.

-----
Don_t hate the cracker - hate the code.

| Сообщение посчитали полезным: egorus2010, 0xC3