Function Qsarz( n1 As Integer, n2 As Integer, k1 As Integer, k2 As Integer, gyn1 As Double, gyn2 As Double, Chart As String, Regime As String, Month As String)
Dim b As Double
If Month = "ßíâàðü" Then i = 7
If Month = "Ôåâðàëü" Then i = 8
If Month = "Ìàðò" Then i = 9
If Month = "Àïðåëü" Then i = 10
If Month = "Ìàé" Then i = 11
If Month = "Èþíü" Then i = 12
If Month = "Èþëü" Then i = 13
If Month = "Àâãóñò" Then i = 14
If Month = "Ñåíòÿáðü" Then i = 15
If Month = "Îêòÿáðü" Then i = 16
If Month = "Íîÿáðü" Then i = 17
If Month = "Äåêàáðü" Then i = 18
If Chart = "Ãðàôèê 1" Then k = 34
If Chart = "Ãðàôèê 2" Then k = 36
If Chart = "Ãðàôèê 3" Then k = 38
If Chart = "Ãðàôèê 4" Then k = 40
If Chart = "Ãðàôèê 5" Then k = 42
If Chart = "Ãðàôèê 6" Then k = 44
If Chart = "Ãðàôèê 7" Then k = 46
If Chart = "Ãðàôèê 8" Then k = 48
If Chart = "Ãðàôèê 9" Then k = 50
If Chart = "Ãðàôèê 10" Then k = 52
If Chart = "Ãðàôèê 1" Then l = 35
If Chart = "Ãðàôèê 2" Then l = 37
If Chart = "Ãðàôèê 3" Then l = 39
If Chart = "Ãðàôèê 4" Then l = 41
If Chart = "Ãðàôèê 5" Then l = 43
If Chart = "Ãðàôèê 6" Then l = 45
If Chart = "Ãðàôèê 7" Then l = 47
If Chart = "Ãðàôèê 8" Then l = 49
If Chart = "Ãðàôèê 9" Then l = 51
If Chart = "Ãðàôèê 10" Then l = 53
t1mo = Sheets( "temperature" ) .Cells ( i, k) 'òåìïåðàòóðà â ïîäà÷å ñðåäíåìåñÿ÷íàÿ
t2mo = Sheets("temperature").Cells(i, l) ' òåìïåðàòóðà â îáðàòêå ñðåäíåìåñÿ÷íàÿ
Qsarz = ( n1 + n2) * ( ( gyn1 * k1 * ( t1mo - tx) * wskDSWT( t1mo - tx) ) + ( gyn2 * k2 * ( t2mo - tx) * wskDSWT( t2mo - tx) ) ) / 1000000
End Function
RnVuY3Rpb24gUXNhcnoobjEgQXMgSW50ZWdlciwgbjIgQXMgSW50ZWdlciwgazEgQXMgSW50ZWdlciwgazIgQXMgSW50ZWdlciwgZ3luMSBBcyBEb3VibGUsIGd5bjIgQXMgRG91YmxlLCBDaGFydCBBcyBTdHJpbmcsIFJlZ2ltZSBBcyBTdHJpbmcsIE1vbnRoIEFzIFN0cmluZykKCkRpbSBiIEFzIERvdWJsZQoKICAgIElmIE1vbnRoID0gIsOfw63DosOgw7DDvCIgVGhlbiBpID0gNwogICAgSWYgTW9udGggPSAiw5TDpcOiw7DDoMOrw7wiIFRoZW4gaSA9IDgKICAgIElmIE1vbnRoID0gIsOMw6DDsMOyIiBUaGVuIGkgPSA5CiAgICBJZiBNb250aCA9ICLDgMOvw7DDpcOrw7wiIFRoZW4gaSA9IDEwCiAgICBJZiBNb250aCA9ICLDjMOgw6kiIFRoZW4gaSA9IDExCiAgICBJZiBNb250aCA9ICLDiMO+w63DvCIgVGhlbiBpID0gMTIKICAgIElmIE1vbnRoID0gIsOIw77Dq8O8IiBUaGVuIGkgPSAxMwogICAgSWYgTW9udGggPSAiw4DDosOjw7PDscOyIiBUaGVuIGkgPSAxNAogICAgSWYgTW9udGggPSAiw5HDpcOtw7LDv8Ohw7DDvCIgVGhlbiBpID0gMTUKICAgIElmIE1vbnRoID0gIsOOw6rDssO/w6HDsMO8IiBUaGVuIGkgPSAxNgogICAgSWYgTW9udGggPSAiw43DrsO/w6HDsMO8IiBUaGVuIGkgPSAxNwogICAgSWYgTW9udGggPSAiw4TDpcOqw6DDocOww7wiIFRoZW4gaSA9IDE4CiAgICAKICAgICAgICBJZiBDaGFydCA9ICLDg8Oww6DDtMOow6ogMSIgVGhlbiBrID0gMzQKICAgICAgICBJZiBDaGFydCA9ICLDg8Oww6DDtMOow6ogMiIgVGhlbiBrID0gMzYKICAgICAgICBJZiBDaGFydCA9ICLDg8Oww6DDtMOow6ogMyIgVGhlbiBrID0gMzgKICAgICAgICBJZiBDaGFydCA9ICLDg8Oww6DDtMOow6ogNCIgVGhlbiBrID0gNDAKICAgICAgICBJZiBDaGFydCA9ICLDg8Oww6DDtMOow6ogNSIgVGhlbiBrID0gNDIKICAgICAgICBJZiBDaGFydCA9ICLDg8Oww6DDtMOow6ogNiIgVGhlbiBrID0gNDQKICAgICAgICBJZiBDaGFydCA9ICLDg8Oww6DDtMOow6ogNyIgVGhlbiBrID0gNDYKICAgICAgICBJZiBDaGFydCA9ICLDg8Oww6DDtMOow6ogOCIgVGhlbiBrID0gNDgKICAgICAgICBJZiBDaGFydCA9ICLDg8Oww6DDtMOow6ogOSIgVGhlbiBrID0gNTAKICAgICAgICBJZiBDaGFydCA9ICLDg8Oww6DDtMOow6ogMTAiIFRoZW4gayA9IDUyCiAgICAKICAgICAgICAgICAgSWYgQ2hhcnQgPSAiw4PDsMOgw7TDqMOqIDEiIFRoZW4gbCA9IDM1CiAgICAgICAgICAgIElmIENoYXJ0ID0gIsODw7DDoMO0w6jDqiAyIiBUaGVuIGwgPSAzNwogICAgICAgICAgICBJZiBDaGFydCA9ICLDg8Oww6DDtMOow6ogMyIgVGhlbiBsID0gMzkKICAgICAgICAgICAgSWYgQ2hhcnQgPSAiw4PDsMOgw7TDqMOqIDQiIFRoZW4gbCA9IDQxCiAgICAgICAgICAgIElmIENoYXJ0ID0gIsODw7DDoMO0w6jDqiA1IiBUaGVuIGwgPSA0MwogICAgICAgICAgICBJZiBDaGFydCA9ICLDg8Oww6DDtMOow6ogNiIgVGhlbiBsID0gNDUKICAgICAgICAgICAgSWYgQ2hhcnQgPSAiw4PDsMOgw7TDqMOqIDciIFRoZW4gbCA9IDQ3CiAgICAgICAgICAgIElmIENoYXJ0ID0gIsODw7DDoMO0w6jDqiA4IiBUaGVuIGwgPSA0OQogICAgICAgICAgICBJZiBDaGFydCA9ICLDg8Oww6DDtMOow6ogOSIgVGhlbiBsID0gNTEKICAgICAgICAgICAgSWYgQ2hhcnQgPSAiw4PDsMOgw7TDqMOqIDEwIiBUaGVuIGwgPSA1MwogICAgCiAgICAgICAgICAgICAgICB0MW1vID0gU2hlZXRzKCJ0ZW1wZXJhdHVyZSIpLkNlbGxzKGksIGspICfDssOlw6zDr8Olw7DDoMOyw7PDsMOgIMOiIMOvw67DpMOgw7fDpSDDscOww6XDpMOtw6XDrMOlw7HDv8O3w63DoMO/CiAgICAKICAgICAgICAgICAgICAgIHQybW8gPSBTaGVldHMoInRlbXBlcmF0dXJlIikuQ2VsbHMoaSwgbCkgJ8Oyw6XDrMOvw6XDsMOgw7LDs8Oww6Agw6Igw67DocOww6DDssOqw6Ugw7HDsMOlw6TDrcOlw6zDpcOxw7/Dt8Otw6DDvwogICAgCiAgICAgICAgICAgICAgICBRc2FyeiA9IChuMSArIG4yKSAqICgoZ3luMSAqIGsxICogKHQxbW8gLSB0eCkgKiB3c2tEU1dUKHQxbW8gLSB0eCkpICsgKGd5bjIgKiBrMiAqICh0Mm1vIC0gdHgpICogd3NrRFNXVCh0Mm1vIC0gdHgpKSkgLyAxMDAwMDAwCgpFbmQgRnVuY3Rpb24=
compilation info
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 4.0.1 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.
/home/esa8Jg/prog.vb (1,10) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (3,4) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (5,7) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (6,7) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (7,7) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (8,7) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (9,7) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (10,7) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (11,7) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (12,7) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (13,7) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (14,7) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (15,7) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (16,7) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (18,11) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (19,11) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (20,11) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (21,11) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (22,11) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (23,11) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (24,11) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (25,11) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (26,11) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (27,11) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (29,15) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (30,15) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (31,15) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (32,15) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (33,15) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (34,15) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (35,15) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (36,15) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (37,15) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (38,15) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (40,21) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (42,21) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (44,22) : error VBNC30203: Identifier expected.
/home/esa8Jg/prog.vb (46,13) : error VBNC30203: Identifier expected.
There were 38 errors and 0 warnings.
Compilation took 00:00:00.6827350
stdout