"всё внимание на последний рассказ об ананасовой воде"" |
видел во сне тебя, первый раз, кажется, в выходные дни. Помню, ждал тебя у дверей, потом ты вышла и что-то быстро-быстро стала кому-то говорить, а потом повернулась ко мне..Забавный такой эпизод, в реальности всё было бы точно также.
- Твой мир расширяется сейчас, как наша Вселенная, поэтому в нём много пустот и неопределённостей. Со временем они заполнятся и снова всё будет на своих местах, но пока... замечательно и чудесно наблюдать, раскрывая сердце миру *-* потом всё будет только внутри и в прошлом.
- Нет, я наверное, снова что-то не то говорю, у людей нет судьбы.
- Но есть путь, который они теряют. Теряют и обретают, и так до бесконечности.
- Нет-нет-нет, главное, что все люди разные-*-***** она не такая, как ты.
Разговор конечно же не такой, во сне я такого никогда не запомню -_ может, выложу чего-нибудь из рисунков . Мучаю свою базу данных, читаю текст своего товарища, и всё время куда-то проваливаюсь::
Function РЗ_группы(Год, Причина, Группа_причин)
If Группа_причин = 7 Then
РЗ_группы = "Непатогенные факторы"
ElseIf Группа_причин = 6 Then
РЗ_группы = "Антропогенные факторы"
ElseIf Группа_причин = 5 Then
РЗ_группы = "Повреждение дикими животными"
ElseIf Группа_причин = 4 Then
РЗ_группы = "Болезни леса"
ElseIf Группа_причин = 2 Then
РЗ_группы = "Повреждение насекомыми"
ElseIf Группа_причин = 3 Then
If Причина = "821" Or Причина = "822" Or Причина = "881" Or Причина = "882" Then
Select Case Год
Case 2010
РЗ_группы = "Ураганные ветра 2010 г."
Case 2011
РЗ_группы = "Ураганные ветра 2011 г."
Case 2012
РЗ_группы = "Ураганные ветра 2012 г."
Case Else
РЗ_группы = "Ураганные ветра прошлых лет"
End Select
ElseIf Причина = "830" Then РЗ_группы = "Засуха"
ElseIf Причина = "828" Then РЗ_группы = "Ожеледь"
ElseIf Причина = "823" Or Причина = "883" Then РЗ_группы = "Снеговал, снеголом"
Else: РЗ_группы = "Погодные условия (прочие)"
End If
ElseIf Группа_причин = 1 Then
Select Case Год
Case 2010
РЗ_группы = "Лесные пожары 2010 г."
Case 2011
РЗ_группы = "Лесные пожары 2011 г."
Case 2012
РЗ_группы = "Лесные пожары 2012 г."
Case Else
РЗ_группы = "Лесные пожары прошлых лет"
End Select
End If
End Function
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |