Make(delphi)
ver(4.04 build 185)
Add(SimpleForm,2953706,140,238)
{
 Width=242
 Height=196
}
Add(Edit,14905850,252,189)
{
 Left=20
 Top=20
 Width=120
 Text="1972-07-12"
}
Add(VBJScript,839591,252,238)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|7:onError|
 DataPoints=#6:inData|
 Script=#18:Sub doWork(dt,idx)|0:|29:Dim tmp,val1,val2,val3,val4,i|31:Dim dtYear,dtMonth,dtDay,formDt|18:Dim arrMatrix(3,3)|0:|50:  formDt = FormatDateTime(sys.inData, vbShortDate)|24:  If IsDate(formDt) Then|73:    dtYear = Year(formDt) : dtMonth = Month(formDt) : dtDay = Day(formDt)|53:    tmp = CStr(dtDay ) & CStr(dtMonth) & CStr(dtYear)|26:    ' первое рабочее число|25:    For i = 1 To Len(tmp)|40:      val1 = val1 + CInt(Mid(tmp, i,1)) |8:    Next|26:    ' второе рабочее число|32:    For i = 1 To Len(CStr(val1))|40:      val2 = val2 + CInt(Mid(val1, i,1))|8:    Next|26:    ' третье рабочее число|41:    val3 = val1 - CInt(Mid(dtDay, 1,1))*2|29:    ' четвёртое рабочее число|32:    For i = 1 To Len(CStr(val3))|41:      val4 = val4  + CInt(Mid(val3, i,1))|8:    Next|23:    ' получем ряд чисел|66:    tmp = tmp & CStr(val1) &  CStr(val2) & CStr(val3) & CStr(val4)|23:    ' заполняем матрицу|25:    For i = 1 To Len(tmp)|43:      Select Case CInt(Mid(CStr(tmp), i,1))|54:        Case 1  arrMatrix(1,1) = arrMatrix(1,1) & "1" |54:        Case 2: arrMatrix(2,1) = arrMatrix(2,1) & "2" |54:        Case 3: arrMatrix(3,1) = arrMatrix(3,1) & "3" |54:        Case 4: arrMatrix(1,2) = arrMatrix(1,2) & "4" |54:        Case 5: arrMatrix(2,2) = arrMatrix(2,2) & "5" |54:        Case 6: arrMatrix(3,2) = arrMatrix(3,2) & "6" |54:        Case 7: arrMatrix(1,3) = arrMatrix(1,3) & "7" |54:        Case 8: arrMatrix(2,3) = arrMatrix(2,3) & "8" |60:        Case 9: arrMatrix(3,3) = arrMatrix(3,3) & "9"       |20:      End Select    |8:    Next|21:    ' выводим матрицу|75:    sys.onRes  arrMatrix(1,1) & ";" & arrMatrix(1,2) & ";" & arrMatrix(1,3)|75:    sys.onRes  arrMatrix(2,1) & ";" & arrMatrix(2,2) & ";" & arrMatrix(2,3)|79:    sys.onRes  arrMatrix(3,1) & ";" & arrMatrix(3,2) & ";" & arrMatrix(3,3)    |6:  Else|56:    sys.onError "Введённые данные не соответствуют дате"|8:  End If|7:End Sub|
 UseName=0
 link(inData,14905850:Text,[])
 link(onRes,11393166:doAdd,[(306,244)(306,167)])
 link(onError,6727960:doMessage,[])
}
Add(Button,14087767,140,168)
{
 Left=155
 Top=20
 link(onClick,11325768:doEvent1,[])
}
Add(StringTable,11393166,329,161)
{
 Left=20
 Top=50
 Width=120
 Height=100
 Columns=#4:1=40|4:2=40|4:3=40|
}
Add(Hub,11325768,203,168)
{
 link(onEvent1,11393166:doClear,[])
 link(onEvent2,839591:doWork,[(227,181)(227,244)])
}
Add(Message,6727960,329,245)
{
 Caption="Внимание!"
 Icon=3
}