fork download

copy

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

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

Standard output is empty