5.2
localhost:7325
3
0
0
0
0
3.0.0
3.0.0
2007.10.30
0
1
0
0
134217984
1
4
1768123448
81FBFBFBFBFBFBFBFCFCFCFCFCFCFFFFACACAC00000000000000000000000000FB00002A002A002A002A2A0000FF0000FFF5FCFB000000000000000000000000FB002A002A2A2A2A2A2A2AF5FF00000000FFFF2BFB0000000000000000000000FB2A002A2A2A2A2A2A2A55FF00000000000000FFF78100000000000000000000FB002A2A2A2A2A2A2A2AFF000000000000000000FFFFFB000000000000000000FB2A2A2A2A2A2A2A2AFF000000000000000000000000FFFB0000000000000000FB002A2A2A2A2A2AFF000000000000000000000000F500FFFFFFFF0000000000FB2A2A2A2A2A2AFF000000000000000000000000F5002AF6F6FF33FF00000000FB002A2A2A2AFF000000000000000000000000F500F5547FF6F6FFFF00000000FB2A2A2A2AFF00000000000000000000547FF500F5547FF5F5F6F5F6FF000000FB000000FF00000000000000000000F500F57F7F547FF5F5F5F5F6F5F6FFFF00FB000000FF000000000000000000547FF500F5547FF5F5F5F5F5F5F6F5F6FFFFFC00000000FF0000000000F500F500F57F7F547F2AAB7FF5F5F5F5F5F6FFF6FFFC000000F500FF000000F500F5002A2A2A547FF5F5F52AABF5F5F5F6FF00F6FFFC00000000F5FFFFFFF500F5547F7F7F7FAB2AAB7FF5F5F5F5F5F5F5F6FFF6FFFC000000F5FF000808FFF500F500F5002A7FF5F52AABF5F5F5F5F5F6F52BFFFFFC000000FF0008080808FFFFF5F5F5F52AABF5F5F5F5F5F5F5F5F6F5F6F62BFFFC000000FF00080808080808FFF6F5F52AABF5F5F5F5F5F5F5F6F5F6F62BFF00FC0000FF000808080808080808FFFFF5F5F5F5F5F5F5F6F5F6F5F6F62BFF0000FC0000FF0008080808080808083333FFF6F5F5F6F5F6F5F6F5FFFFFFFF000000FC00FF00080808080808083333080808FFFFF6F5F6F5FFFFFF000833FF000000FC00FF000808080808080808080808080808FFFFFFFF00080808335EFF000000AC00FF080808080808080808080808080808080808080808335E5EFF00000000ACFF0008080808080808080808080808080808333333335E5EFFFF0000000000FF0008080808080808080808080808080808085E5E5E5EFFFF00000000000000FF000808080833330808080808083333335E5EFFFFFFFFF7FF00000000000000ACFF000808080808333333333333FFFFFFFFFFF5F6F5F6F7FFF6000000000000AC00FFFF33080833335EFFFFFFFFF5F5F5F5F5F6F5F6F6F7FFF8F7F600000000AC0000F5FFFF335E5EFFF5F5F5F5F5F5F5F5F6F5F6F5F6F7FFF9F8F72BF60000AC00F500F500FFFFFFF5F5F5F5F5F5F6F5F6F5F6F5F6F6F7FFFAF9F8F8F70000AC0000F5F5F5F5F5F5F5F5F5F6F5F6F5F6F5F6F5F6F5F6F7FFFAFA56F82B0000ACFDFDFDFDFDFDFDFDFDFEFEFEFEFEFEFEFEFFFFFFFFFFFFFFFAF956F7F60000
1229147683
FFFFE0008004B000800868008010140080200E0080400300808001E081000050820001308400420888003406880108038400D605820021098387D8058440440388304001880840029006000490010078A000C388A0003C18A0000070C00001E080001F8080007E80C003E080B07C00808DC00080838000C0800000E0FFFFFFC0FFFFE0009564F000AFF87800DFF01C00BFE00E00FFC00300BF8005E0FF000BF0BE0017F0FC00EFF888017FFE8803BFFF8415FFFF8A2BFFFB87DFFFFF8DEAFFFF8BFFFFFF8BFFFFFE97FFFFFC97FFFFF8AFFFFFB8AFFFFDF8BFFFFFF0DFFFFFE0BFFFFF80BFFFFF80DFFFFFC0BFFFFFF09FFFFFFCABFFFFFC9FFFFFFCFFFFFFFC
0
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
Na03
8D488C7C8ED090EA977090BF8B818F91
My Application (Mac OS X)
26214400
10485760
My Application
AppName.exe
0
text
Na03
TEXT
0
Bill
0
189
100001107
189
275
96
Bill
0
False
False
16777215
0
8D488C7C8ED090EA977090BF8B818F91
True
False
True
False
False
False
False
0
2
0
395
437
64
64
32000
32000
Bill
144
Window
0
65535
ReadClientDate
0
9
68
9
68
134217984
Sub ReadClientDate()
Dim tFolderItem as FolderItem
Dim tBinaryInput as BinaryStream
Dim i as Integer
2F2F8ED096BC837483408343838B82CC82A082E98FEA8F8A81693D466F6C6465724974656D816A82F093BE82E9
74466F6C6465724974656D203D204D616B65466F6C6465722867426173696350617468202B202290DD92E82229
2774466F6C6465724974656D203D20476574466F6C6465724974656D2874466F6C6465724974656D2E4162736F6C75746550617468202B20228ED096BC2229
74466F6C6465724974656D203D20476574466F6C6465724974656D2874466F6C6465724974656D2E4162736F6C75746550617468202B202294848A7C8ED096BC2E4441542229
2F2F837483408343838B82AA91B68DDD82B582C482A282E981693D466F6C6465724974656D82AA91B68DDD82B582C482A282E9816A82C882E7
If tFolderItem <> Nil Then
2F2F82BB82CC837483408343838B82F093C78D9E82DD8382815B836882C58A4A82AD
tBinaryInput = tFolderItem.OpenAsBinaryFile(True)
2F2F837483408343838B82F08A4A82AD82B182C682AA82C582AB82E981693D7454657874496E70757482AA91B68DDD82B582C482A282E9816A82C882E7
If tBinaryInput <> Nil Then
tBinaryInput.LittleEndian = True
i = 1
2F2F837483408343838B82CC8DC58CE382DC82C593C782DD82C282C382AF82E9
While tBinaryInput.EOF = False
2F2F838A83588367837B8362834E835882D692C789C182B582C482A282AD
tBinaryInput.Position = tBinaryInput.Position + 5
ClientName.Addrow Trim(tBinaryInput.ReadPString)
tBinaryInput.Position = tBinaryInput.Position + 98
i = i + 1
Wend
tBinaryInput.Close
ClientName.ListIndex = 0
End If
End If
End Sub
65535
ReadUrikake
tClientName as String,StartDate as String,EndDate as String
0
17
0
21
6
134217984
Sub ReadUrikake(tClientName as String,StartDate as String,EndDate as String)
Dim tFolderItem as FolderItem
Dim tBinaryInput as BinaryStream
Dim tReadDate as String
Dim tReadTekiyou as String
Dim tReadKarikata as String
Dim tStart as Integer
Dim tEnd as Integer
Dim tDate as Integer
Dim Syamei As String
tStart = Val(NthField(StartDate,"/",2) + NthField(StartDate,"/",3))
tEnd = Val(NthField(EndDate,"/",2) + NthField(EndDate,"/",3))
74466F6C6465724974656D203D204D616B65466F6C6465722867426173696350617468202B202294848A7C8BE02229
tFolderItem = MakeFolder(tFolderItem.AbsolutePath + NthField(StartDate,"/",1))
74466F6C6465724974656D203D204D616B65466F6C6465722874466F6C6465724974656D2E4162736F6C75746550617468202B205374722856616C284E74684669656C64285374617274446174652C222F222C32292929202B20228C8E2229
If LenB(tClientName) > 30 Then
Syamei = LeftB(tClientName,LenA(tClientName,30,31))
Else
Syamei = LeftB(tClientName,30)
End IF
tFolderItem = GetFolderItem(tFolderItem.AbsolutePath + Syamei)
tReadDate = tFolderItem.AbsolutePath
If tFolderItem <> Nil Then
tBinaryInput = tFolderItem.OpenAsBinaryFile(True)
If tBinaryInput <> Nil Then
tBinaryInput.LittleEndian = True
While tBinaryInput.EOF = False
2F2F93FA957482AF
tReadDate = Trim(tBinaryInput.ReadPString)
2F2F934B9770
tReadTekiyou = Trim(tBinaryInput.ReadPString)
2F2F93C782DD94F282CE82B5
tBinaryInput.Position = tBinaryInput.Position + 26
2F2F8ED895FB
tReadKarikata = Trim(tBinaryInput.ReadPString)
tDate = Val(NthField(tReadDate,"/",1) + NthField(tReadDate,"/",2))
496620745374617274203C3D20744461746520416E64207444617465203C3D2074456E6420416E6420745265616454656B69796F75203C3E20228FC194EF90C52220416E64204368616E676553657175656E63652874526561644B6172696B61746129203C3E2030205468656E
gTotal = gTotal +ChangeSequence(tReadKarikata)
End If
2F2F93C782DD94F282CE82B5
tBinaryInput.Position = tBinaryInput.Position + 60
Wend
tBinaryInput.Close
End If
End If
End Sub
65535
ReadTax
0
5
56
5
62
134217984
Sub ReadTax()
Dim tFolderItem as FolderItem
Dim tTextInput as TextInputStream
74466F6C6465724974656D203D204D616B65466F6C6465722867426173696350617468202B202290DD92E82229
74466F6C6465724974656D203D20476574466F6C6465724974656D2874466F6C6465724974656D2E4162736F6C75746550617468202B20228FC194EF90C52229
If tFolderItem <> Nil Then
tTextInput = tFolderItem.OpenAsTextFile()
If tTextInput <> Nil Then
gTax = Val(tTextInput.ReadLine)
tTextInput.Close
End If
End If
End Sub
65535
PrintIvent
String
0
10
22
10
22
134217984
Function PrintIvent() As String
Dim tGraph as Graphics
Dim tPrintSetting as PrinterSetup
tPrintSetting = New PrinterSetup
tPrintSetting.SetupString = gPrintSettings
tGraph = OpenPrinterDialog(tPrintSetting)
If tGraph <> Nil Then
536C69705072696E74287447726170682C2D31302C38352C22817990BF81408B8181408F91817A2229
tGraph.NextPage
536C69705072696E74287447726170682C2D31302C38352C22817990BF208B81208F91208D54817A2229
52657475726E202290AC8CF722
End If
52657475726E20228EB8947322
End Function
65535
SlipPrint
tGraph as Graphics,tSetOrgX as Integer,tSetOrgY as Integer,tDaimeiString as String
0
33
35
33
35
134217984
Sub SlipPrint(tGraph as Graphics,tSetOrgX as Integer,tSetOrgY as Integer,tDaimeiString as String)
2F2F976182E88F918141976182E88F918D54814193FC93FA8B4C82CC88F38DFC8370835E815B8393
Dim i as Integer
Dim tPrintString as string
Dim tPrintPage as Integer
4F70656E5072696E74287447726170682C745365744F7267582C745365744F7267592C2236303B34303B36303B3430222C2231313B3131222C2231383B31333B3233222C229345814081408140977622202B20436872283929202B20228BE0814081408A7A22202B20436872283929202B202294F581408140814081408D6C222C224D3B523B4C222C2295BD90AC96BE92A9222C2231342229
2F2F88EA8D7396DA
745072696E74537472696E67203D202295CA8E8690BF8B8196BE8DD78F91814022202B205472696D284D65697361694669656C642E5445787429202B2022968722202B20436872283929
tPrintString = tPrintString + Trim(Seikyu.Text) + Chr(9)
tPrintPage = AddPrint(tGraph,tPrintString)
2F2F93F18D7396DA
745072696E74537472696E67203D202290E68C8E8C4A897A8E638D8222202B20436872283929
tPrintString = tPrintString + Trim(Kurikosi.Text) + Chr(9)
tPrintPage = AddPrint(tGraph,tPrintString)
2F2F8E4F8D7396DA
745072696E74537472696E67203D20228FC1814094EF814090C522202B20436872283929
tPrintString = tPrintString + Trim(Tax.Text) + Chr(9)
tPrintPage = AddPrint(tGraph,tPrintString)
2F2F8E6C8D7396DA
745072696E74537472696E67203D20228D8781408C7681408BE081408A7A22202B20436872283929
tPrintString = tPrintString + Trim(Total.Text) + Chr(9)
tPrintPage = AddPrint(tGraph,tPrintString)
2F2F919782E890E6
SendNamePrint(tGraph,tSetOrgX,tSetOrgY,tDaimeiString)
2F2F8ED096BC838D8353
LogoPrint(tGraph,tSetOrgX,tSetOrgY)
2F2F93FA957482AF819591E896BC
HeardFootPrint(tGraph,tSetOrgX,tSetOrgY,tDaimeiString)
2F2F8352815B836894D48D86
CodeNoPrint(tGraph,ClientName.Text)
ListPrint tGraph,lPageLineNumber(1)
ClearPrintSet()
End Sub
65535
SendNamePrint
tGraph as Graphics,tSetOrgX as Integer,tSetOrgY as Integer,tDaimeiString as String
0
1
7
1
15
134217984
Sub SendNamePrint(tGraph as Graphics,tSetOrgX as Integer,tSetOrgY as Integer,tDaimeiString as String)
7447726170682E54657874466F6E74203D202295BD90AC96BE92A922
49462022817990BF208B81208F91208D54817A22203D20744461696D6569537472696E67205468656E
If LenB(ClientName.Text) < 24 Then
tGraph.TextSize = 18
Else
tGraph.TextSize = 14
End If
4F75745072696E74207447726170682C6C5072696E74446174612836292C6C5072696E7444617461283729202D2033352C436C69656E744E616D652E54657874202B202281408CE4928622
7447726170682E447261774C696E65206C5072696E7444617461283629202B20745365744F7267582C6C5072696E7444617461283729202D203333202B20745365744F7267592C6C5072696E7444617461283629202B207447726170682E537472696E67576964746828436C69656E744E616D652E54657874202B202281408CE492862229202B20745365744F7267582C6C5072696E7444617461283729202D203333202B20745365744F726759
Else
If LenB(NoChecker(ClientName.Text)) < 24 Then
tGraph.TextSize = 18
Else
tGraph.TextSize = 14
End If
4F75745072696E74207447726170682C6C5072696E74446174612836292C6C5072696E7444617461283729202D2033352C4E6F436865636B657228436C69656E744E616D652E5465787429202B202281408CE4928622
7447726170682E447261774C696E65206C5072696E7444617461283629202B20745365744F7267582C6C5072696E7444617461283729202D203333202B20745365744F7267592C6C5072696E7444617461283629202B207447726170682E537472696E675769647468284E6F436865636B657228436C69656E744E616D652E5465787429202B202281408CE492862229202B20745365744F7267582C6C5072696E7444617461283729202D203333202B20745365744F726759
End If
4F75745072696E74207447726170682C6C5072696E74446174612836292C6C5072696E7444617461283729202D2031302C228CE490BF8B818BE08A7A8140818F814022202B20546F74616C2E54657874202B2022815122
End Sub
65535
LogoPrint
tGraph as Graphics,tSetOrgX as Integer,tSetOrgY as Integer
0
19
0
19
0
134217984
Sub LogoPrint(tGraph as Graphics,tSetOrgX as Integer,tSetOrgY as Integer)
Dim tSize as Integer
7447726170682E54657874466F6E74203D20228263826597EA8F9191CC22
tGraph.TextSize = 18
4576656E6C795072696E74287447726170682C6C5072696E74446174612838292C33302C2296408C8E8D488C7C8ED02229
7453697A65203D207447726170682E537472696E675769647468282296408C8E8D488C7C8ED02229202B203130
tGraph.TextSize = 14
7453697A65203D207447726170682E537472696E67576964746828228A948EAE89EF8ED02229202B207453697A65
7447726170682E44726177537472696E6720228A948EAE89EF8ED0222C6C5072696E7444617461283829202D207453697A65202B20745365744F7267582C3330202B20745365744F726759
7447726170682E54657874466F6E74203D202295BD90AC96BE92A922
tGraph.TextSize = 11
4576656E6C795072696E74287447726170682C6C5072696E74446174612838292C34302C2281A73432322D38303036814090C389AA8E738F7889CD8BE68BC88BE035929A96DA313794D431338D862229
EvenlyPrint(tGraph,lPrintData(8)+8,52,"TEL(054)281-0230 FAX(054)281-8305")
4576656E6C795072696E74287447726170682C6C5072696E74446174612838292C36352C2283568358836583808A4A94AD92BC92CA2054454C28303534293238312D383339352229
4576656E6C795072696E74287447726170682C6C5072696E74446174612838292C37362C22B2DDC0B0C8AFC44850202020687474703A2F2F7777772E6E6F72697A756B692E636F6D2229
End Sub
65535
HeardFootPrint
tGraph as Graphics,tSetOrgX as Integer,tSetOrgY as Integer,tDaimeiString as String
0
17
101
17
105
134217984
Sub HeardFootPrint(tGraph as Graphics,tSetOrgX as Integer,tSetOrgY as Integer,tDaimeiString as String)
Dim tInteger as Integer
7447726170682E54657874466F6E74203D202295BD90AC96BE92A922
tGraph.TextSize = 12
4576656E6C795072696E74287447726170682C6C5072696E74446174612838292C31352C2290BF8B81944E8C8E93FA814022202B205374722848616B6B6F7562692E5965617229202B2022944E22202B205374722848616B6B6F7562692E4D6F6E746829202B20228C8E22202B205374722848616B6B6F7562692E44617929202B202293FA2229
tGraph.TextSize = 24
OutPrint tGraph,lPrintData(6) - 20,lPrintData(7) - 60,tDaimeiString
tInteger = tGraph.StringWidth(tDaimeiString)
tGraph.TextSize = 14
4F75745072696E74207447726170682C6C5072696E7444617461283629202B3135302C6C5072696E7444617461283729202D2036302C22816922202B20537472285374617274444174652E4D6F6E746829202B20228C8E22202B20537472285374617274444174652E44617929202B202293FA816022202B2053747228456E64446174652E4D6F6E746829202B20228C8E22202B2053747228456E64446174652E44617929202B202293FA95AA816A2220
4F75745072696E74207447726170682C6C5072696E74446174612836292C6C5072696E7444617461283729202B2035202A206C5072696E7444617461283429202B2033302C228FE38B4C82CC92CA82E88CE490BF8B81905C82B58FE382B082DC82B7814222
tGraph.TextSize = 12
4576656E6C795072696E74287447726170682C6C5072696E74446174612838292C6C5072696E7444617461283729202B2035202A206C5072696E7444617461283429202B2034352C228EE688F88BE28D7381408FA48D4891678D879286899B8BE08CC9814090C389AA8E789358814093968DC08140323030383932312229
4576656E6C795072696E74287447726170682C6C5072696E74446174612838292C6C5072696E7444617461283729202B2035202A206C5072696E7444617461283429202B2036302C2290C390B4904D97708BE08CC98140927293638E789358814093968DC08140303032313933372229
End Sub
65535
SaveIvent
0
4
0
4
15
134217984
Sub SaveIvent()
SaveSupport()
536176655472616E73666572282294848A7C8BE0222C48616B6B6F7562692E546578742C436C69656E744E616D652E5465787429
SaveFuriden()
536176654E79756B696E596F74656928292F2F93FC8BE0975C92E8
End Sub
65535
SaveSupport
0
14
0
14
62
134217984
Sub SaveSupport()
Dim tFolderItem as FolderItem
Dim tBinaryOutput as BinaryStream
Dim Syamei as String
74466F6C6465724974656D203D204D616B65466F6C6465722867426173696350617468202B202294848A7C8BE02229
tFolderItem = MakeFolder(tFolderItem.AbsolutePath + Str(Hakkoubi.Year))
74466F6C6465724974656D203D204D616B65466F6C6465722874466F6C6465724974656D2E4162736F6C75746550617468202B205374722848616B6B6F7562692E4D6F6E746829202B20228C8E2229
If LenB(ClientName.Text) > 30 Then
Syamei = LeftB(ClientName.Text,LenA(ClientName.Text,30,31))
Else
Syamei = LeftB(ClientName.Text,30)
End IF
tFolderItem = GetFolderItem(tFolderItem.AbsolutePath + Syamei)
If tFolderItem <> Nil Then
tBinaryOutput = tFolderItem.OpenAsBinaryFile(True)
If tBinaryOutput = Nil Then
tBinaryOutput = tFolderItem.CreateBinaryFile("TEXT")
tBinaryOutput.WritePString SpaceSup("",5)
7442696E6172794F75747075742E577269746550537472696E672053706163655375702822914F8C8E8C4A897A222C333629
tBinaryOutput.WritePString SpaceSup("",10)
tBinaryOutput.WritePString SpaceSup("",14)
tBinaryOutput.WritePString SpaceSup("",14)
tBinaryOutput.WritePString SpaceSup("",14)
tBinaryOutput.WritePString SpaceSup("",2)
tBinaryOutput.WritePString SpaceSup("",39)
tBinaryOutput.WritePString CHR(13)
End If
If tBinaryOutput <> Nil Then
While tBinaryOutput.EOF = False
tBinaryOutput.Position = tBinaryOutput.Position + 144
Wend
tBinaryOutput.WritePString SpaceSup(RightB(Hakkoubi.Text,5),5)
7442696E6172794F75747075742E577269746550537472696E6720537061636553757028228FC194EF90C5222C333629
tBinaryOutput.WritePString SpaceSup("1",10)
tBinaryOutput.WritePString SpaceSup(Tax.Text + ".00",14)
tBinaryOutput.WritePString SpaceSup(Tax.TExt,14)
tBinaryOutput.WritePString SpaceSup("",14)
tBinaryOutput.WritePString SpaceSup("1",2)
tBinaryOutput.WritePString SpaceSup("",39)
tBinaryOutput.WritePString CHR(13)
tBinaryOutput.Close
End If
End If
End Sub
65535
SaveFuriden
0
15
27
15
27
134217984
Sub SaveFuriden()
Dim tFolderItem as FolderItem
Dim tBinaryOutput as BinaryStream
Dim tOutputPath as String
Dim tFilePath as String
Dim tKari as String
Dim tKasi as String
Dim i as Integer
2F2F905593608366815B835E8F6F97CD90E682F093BE82E9
//tOutputPath = ReadFuridenOutput()
74466F6C6465724974656D203D20476574466F6C6465724974656D2867426173696350617468202B20228F6F97CD82B382EA82BD905591D69360955B3A905591D69360955B22202B2048616B6B6F7562692E5465787429
If tFolderItem <> NIl Then
tBinaryOutput = tFolderItem.OpenAsBinaryFile(True)
If tBinaryOutput = Nil Then
tBinaryOutput = tFolderItem.CreateBinaryFile("TEXT")
End If
If tBinaryOutput <> NIl Then
tBinaryOutput.LittleEndian = True
While tBinaryOutput.EOF = False
tBinaryOutput.Position = tBinaryOutput.Position +160
Wend
536176654C696E65287442696E6172794F75747075742C48616B6B6F7562692E546578742C5461782E546578742C2294848A7C8BE0222C436C69656E744E616D652E546578742C22819689BC8EF38FC194EF90C5222C5461782E546578742C22312229
tBinaryOutput.Close
End If
End If
End Sub
65535
SaveLine
tBinaryOutput as BinaryStream,tDate as String,tKariKingaku as String,tKariKamoku as String,tTekiyou as String,tKasiKamoku as String,tKasiKingaku as String,tKubun as String
0
10
42
10
42
134217984
Sub SaveLine(tBinaryOutput as BinaryStream,tDate as String,tKariKingaku as String,tKariKamoku as String,tTekiyou as String,tKasiKamoku as String,tKasiKingaku as String,tKubun as String)
tBinaryOutput.WritePString SpaceSup(tDate,10)
tBinaryOutput.WritePString SpaceSup(tKariKingaku,14)
tBinaryOutput.WritePString SpaceSup("",4)
tBinaryOutput.WritePString SpaceSup(tKariKamoku,12)
tBinaryOutput.WritePString SpaceSup(tTekiyou,38)
tBinaryOutput.WritePString SpaceSup("",6)
tBinaryOutput.WritePString SpaceSup("",4)
tBinaryOutput.WritePString SpaceSup(tKasiKamoku,12)
tBinaryOutput.WritePString SpaceSup(tKasiKingaku,14)
tBinaryOutput.WritePString SpaceSup(tKubun,2)
tBinaryOutput.WritePString SpaceSup("",31)
tBinaryOutput.WritePString CHR(13)
End Sub
65535
ReadFuridenOutput
String
0
5
62
5
70
134217984
Function ReadFuridenOutput() As String
Dim tFolderItem as FolderItem
Dim tBinaryInput as BinaryStream
Dim tReadPath as String
74466F6C6465724974656D203D20476574466F6C6465724974656D28507265666572656E636573466F6C6465722E4162736F6C75746550617468202B2022905591D69360955B8F898AFA90DD92E8837483408343838B2229
2F2F466F6C6465724974656D82AA93BE82E782EA82BD82E7
If tFolderItem <> Nil Then
tBinaryInput = tFolderItem.OpenAsBinaryFile(True)
If tBinaryInput <> Nil Then
tReadPath = tBinaryInput.ReadPString
End If
tBinaryInput.Close
End If
Return tReadPath
End Function
65535
SaveNyukinYotei
0
23
51
23
51
134217984
Sub SaveNyukinYotei()
Dim tFolderItem,tFolderItem2 as FolderItem
Dim tBinaryOutput as BinaryStream
Dim i As Integer
Dim Ans As String
74466F6C6465724974656D203D204D616B65466F6C6465722867426173696350617468202B202293FC8BE0975C92E82229
tFolderItem = MakeFolder(tFolderItem.AbsolutePath + Str(Hakkoubi.Year))
74466F6C6465724974656D203D204D616B65466F6C6465722874466F6C6465724974656D2E4162736F6C75746550617468202B205374722848616B6B6F7562692E4D6F6E746829202B20228C8E2229
tFolderItem2 = GetFolderItem(tFolderItem.AbsolutePath + FolderNameMAN(LeftB(ClientName.Text,30)))
If tFolderItem <> Nil Then
tBinaryOutput = tFolderItem2.OpenAsBinaryFile(True)
If tBinaryOutput = Nil Then
tBinaryOutput = tFolderItem2.CreateBinaryFile("TEXT")
7442696E6172794F75747075742E577269746550537472696E67205370616365537570284B7572696B6F73692E546578742C3134292F2F914F8C8E8C4A897A8BE0
7442696E6172794F75747075742E577269746550537472696E67205370616365537570285365696B79752E546578742C3134292F2F90BF8B818BE08A7A
7442696E6172794F75747075742E577269746550537472696E67205370616365537570285461782E546578742C3134292F2F8FC194EF90C5
tBinaryOutput.WritePString CHR(13)
End If
Else
tBinaryOutput = tFolderItem2.CreateBinaryFile("TEXT")'
If tBinaryOutput <> Nil Then
tBinaryOutput = tFolderItem2.OpenAsBinaryFile(True)
7442696E6172794F75747075742E577269746550537472696E67205370616365537570284B7572696B6F73692E546578742C3134292F2F914F8C8E8C4A897A8BE0
7442696E6172794F75747075742E577269746550537472696E67205370616365537570285365696B79752E546578742C3134292F2F90BF8B818BE08A7A
7442696E6172794F75747075742E577269746550537472696E67205370616365537570285461782E546578742C3134292F2F8FC194EF90C5
tBinaryOutput.WritePString CHR(13)
End If
tBinaryOutput.Close
End If
tFolderItem = Nil
tFolderItem2 = Nil
End Sub
65535
CodeNoPrint
tGraph as Graphics,tClientName as String
0
4
7
4
15
134217984
Sub CodeNoPrint(tGraph as Graphics,tClientName as String)
Dim NoString as String
NoString = NoChecker2(Trim(tClientName))
If NoString <> "" Then
7447726170682E54657874466F6E74203D202295BD90AC96BE92A922
tGraph.TextSize = 8
7447726170682E44726177537472696E6720228352815B83683A22202B204E6F537472696E672C3437302C323438
End If
End Sub
65535
FolderNameMAN
Fname As String
String
0
12
35
12
35
134217984
Function FolderNameMAN(Fname As String) As String
Dim tFolderItem as FolderItem
Dim tBinaryOutput as BinaryStream
Dim i As Integer
Dim Ans As String
Ans = Trim(Fname)
74466F6C6465724974656D203D204D616B65466F6C6465722867426173696350617468202B202293FC8BE0975C92E82229
tFolderItem = MakeFolder(tFolderItem.AbsolutePath + Str(Hakkoubi.Year))
74466F6C6465724974656D203D204D616B65466F6C6465722874466F6C6465724974656D2E4162736F6C75746550617468202B205374722848616B6B6F7562692E4D6F6E746829202B20228C8E2229
49662020526967687428416E732C3229203D20228F948CFB22205468656E
Ans = Ans +"("+ Hakkoubi.Text + ")"
End If
For i =2 To 100
If GetFolderItem(tFolderItem.AbsolutePath + Ans).Exists = False Then
Exit
Else
Ans = Fname + STR(i)
End If
Next
Return Ans
End Function
65535
KeyDown
1
0
1
0
134217984
Function KeyDown(Key As String) As Boolean
End Function
65535
EnableMenuItems
1
19
1
19
134217984
Sub EnableMenuItems()
AppleAbout.Enabled = True
Print.Enabled = True
tCp.Enabled = True
Save.Enabled = True
End Sub
65535
Open
18
0
18
10
134217984
Sub Open()
2F2F8D488C7C8ED0977082C64F41977082C58DAC93AF82B382EA82C482A282BD82CC82C5814190D48E9A82C5928D88D395B682F082C282AF82E98140323030302F30352F3039
2F2F81758FA48D489286899B8BE08CC9817682A982E781758FA48D4891678D879286899B8BE08CC9817682D695CF8D5820202020323030302F30372F3235
2F2F8B4E93AE82B582BD8E9E82C9834A838C8393835F815B8345834383938368834582AA8A4A82A282BD8FF391D482C982B782E9814220323030302F31312F32
2F2F93FC8BE0975C92E8977082C9837483408343838B82F08F9182AB8F6F82B7
2F2F323030322F30372F30342089EF8ED08352815B836892C789C1
2F2F323030322F30372F31372088F38DFC82C98352815B836894D48D8692C789C18142
2F2F323030322F30372F31392090BF8B818F9182A982E793FC8BE0975C92E88366815B835E8F9182AB8F6F82B5959495AA82CC8F4390B3
2F2F825083968C8E82C993AF82B6948482E890E682C9825189F188C88FE390BF8B818F9182F094AD8D7382B582BD8FEA8D8782C991CE899E8142
2F2F323030322F30382F3237208F948CFB82CC8FEA8D8782CD93FC8BE0975C92E8955C8366815B835E82CC96BC914F82C993FA957482F092C789C1
2F2F323030322F30392F303981404C656E4182F092C789C182DC82BD5472616E7366657282F08D589056
Dim tWindow as CalendarWindow
Dim tMsgWindow as MsgDlg
Dim tFolderItem as FolderItem
Dim FileReadFrom as TextInputStream
gBasicPath = GetFolderItem("").AbsolutePath
6756657273696F6E537472696E67203D20228FC194EF90C52056657220322E302E322020323030302F30372F323522
2F2F8140837483408343838B82F08A4A82AD
74466F6C6465724974656D203D204D616B65466F6C6465722867426173696350617468202B202290DD92E82229
74466F6C6465724974656D203D20476574466F6C6465724974656D2874466F6C6465724974656D2E4162736F6C75746550617468202B2022945B95698F918376838A8393835E815B90DD92E82229
If tFolderItem <> Nil Then //SP
FileReadFrom=tFolderItem.OpenAsTextfile
IF FileReadFrom <> Nil Then// 2#
gPrintSettings = FileReadFrom.ReadAll
FileReadFrom.Close
ELSE// 2#
END IF// 2#
END IF//SP
6753617665436865616B203D202295DB91B68DCF22
2F2F8D488C7C8ED08E64976C82CD915382C48FAC9094935F88C889BA90D882E88ECC82C482CC82B182C6
gDecimal = 1
StartDate.Month = EndDate.Month
StartDate.Day = EndDate.Day
StartDate.IncDay
StartDate.Decmonth
StartDate.Redraw
ReadTax()
ReadClientDate()
2F2F3D3D3D3D3D834A838C8393835F815B8345834383938368834582F08A4A82AD3D3D3D3D3D3D
gDateField = Hakkoubi
tWindow = New CalendarWindow
2F2F8345834283938368834582CC88CA927582F092B290AE82B782E9
if screen(0).width = 640 then
tWindow.Left = Bill.Left + Bill.Width - tWindow.Width - 1
Else
tWindow.Left = Me.Left + Bill.Left + 1
end if
tWindow.Top = 50//Me.Top + Me.Height + Bill.Top + 1
tWindow.ShowModal
gDateField.SetFocus
//=====================================
End Sub
65535
tCp
1
0
6
1
134217984
Function Action As Boolean
'Dim PageSetup as PrinterSetup
'
'PageSetup=New PrinterSetup
'If PageSetup.PageSetupDialog Then
'gPrintSettings=PageSetup.SetupString
'End If
Dim tFolderItem as FolderItem
Dim tTextOutput as TextOutputStream
Dim Pa as PrinterSetup
Pa = New PrinterSetup
Pa.SetupString = gPrintSettings
If Pa.PageSetupDialog Then
gPrintSettings = Pa.SetupString
2F2F8140837483408343838B82F08A4A82AD
74466F6C6465724974656D203D204D616B65466F6C6465722867426173696350617468202B202290DD92E82229
74466F6C6465724974656D203D20476574466F6C6465724974656D2874466F6C6465724974656D2E4162736F6C75746550617468202B2022945B95698F918376838A8393835E815B90DD92E82229
If tFolderItem <> Nil Then //SP
tTextOutput=tFolderItem.CreateTextfile
IF tTextOutput <> Nil Then// 2#
tTextOutput.Write gPrintSettings
tTextOutput.Close
END IF//// 2#
End If//SP
END IF
End Function
65535
Print
2
22
2
22
134217984
Function Action As Boolean
Dim tString as String
tString = PrintIvent()
End Function
65535
Save
2
0
2
9
134217984
Function Action As Boolean
If ChangeSequence(Seikyu.Text) <> 0 Then
SaveIvent()
End If
6753617665436865616B203D202295DB91B68DCF22
End Function
65535
AppleAbout
3
25
3
25
134217984
Function Action As Boolean
Dim tWindow as AboutWindow
tWindow = New AboutWindow
End Function
65535
FileQuit
16
10
16
20
134217984
Function Action As Boolean
Dim tMsgWindow as MsgDlg
Dim tString as String
4966206753617665436865616B203D202295DB91B68DCF22205468656E
Quit
Else
2F2F96A295DB91B682C882E783818362835A815B835782F082BE82B5
tMsgWindow = New MsgDlg
744D736757696E646F772E5365744D65737361676520228F4997B982B782E9914F82C993E0976582F088F38DFC814595DB91B682B582DC82B782A9814822
744D736757696E646F772E7365744D6F6465202295DB91B622
tMsgWindow.showmodal
2F2F95DB91B682C882E78366815B835E82F095DB91B682B5814195DB91B682B582C882A282C882E795DB91B682B982B882C98F4997B98F88979D82F091B182AF82E9
496620744D736757696E646F772E517569744D6F6465203D202295DB91B622205468656E
2F2F88F38DFC8F88979D
tString = PrintIvent()
49662074537472696E67203D202290AC8CF722205468656E
2F2F95DB91B68F88979D
If ChangeSequence(Seikyu.Text) <> 0 Then
SaveIvent()
End If
Else
4D7367426F78202288F38DFC82B382EA82C882A982C182BD82CC82C5814122202B2043485228313329202B2022935D8B4C82B382EA82C482A282DC82B982F1814222
End If
456C7365496620744D736757696E646F772E517569744D6F6465203D2022834C83838393835A838B22205468656E
2F2F834C83838393835A838B82BE82C182BD82C682AB82C982CD93FC97CD8F88979D82F091B182AF82E9
Return True
End If
Quit
End If
End Function
144
PopupMenu
0
65535
MouseMove
1
0
1
0
134217984
Sub MouseMove(X As Integer, Y As Integer)
End Sub
65535
Change
1
0
1
10
134217984
Sub Change()
6753617665436865616B203D202296A295DB91B622
If StartDate.Month = EndDate.Month then
ReadUrikake(ClientName.Text,StartDate.TExt,EndDate.Text)
Else
ReadUrikake(ClientName.Text,StartDate.TExt,Str(StartDate.Year) + "/" + Str(StartDate.Month) + "/99")
ReadUrikake(ClientName.Text,Str(EndDate.Year) + "/" + Str(EndDate.Month) + "/01",EndDate.TExt)
End If
Kurikosi.TExt = SpaceSup("0",14)
Kurikosi.Value = 0
Seikyu.Text = Format(gTotal,"-,#")
Tax.Text = Format(DecimalPointDouble(gTotal * gTax),"-,#")
Total.Text = Format(DecimalPointDouble(gTotal * (gTax + 1)),"-,#")
gTotal = 0
End Sub
197
DateField
0
197
DateField
0
65535
EnterField
1
0
1
0
134217984
Sub EnterField()
End Sub
197
DateField
0
216
NumberField
0
65535
GotFocus
1
0
1
0
134217984
Sub GotFocus()
End Sub
65535
Open
4
22
4
22
134217984
Sub Open()
Me.IntLength = 3
Me.DecLength = 0
Me.SetFormat Me.IntLength, Me.DecLength
Me.TExt = SpaceSup("1",3)
End Sub
65535
KeyDown
1
0
1
0
134217984
Function KeyDown(Key as String) As Boolean
End Function
140
StaticText
0
216
NumberField
0
65535
TextChange
1
85
1
85
134217984
Sub TextChange()
Total.Text = Format(ChangeSequence(Seikyu.Text) * (gTax + 1) + ChangeSequence(Me.TExt),"-,#")
End Sub
65535
Open
1
17
1
17
134217984
Sub Open()
Me.IntLength = 11
Me.DecLength = 0
Me.SetFormat Me.IntLength, Me.DecLength
End Sub
65535
KeyDown
1
0
1
0
134217984
Function KeyDown(Key as String) As Boolean
End Function
136
Spin
0
65535
DownClick
1
55
1
55
134217984
Sub DownClick()
MeisaiField.Text = SpaceSup(Str(Val(MeisaiField.Text) - 1),3)
End Sub
65535
UpClick
1
19
1
61
134217984
Sub UpClick()
MeisaiField.Text = SpaceSup(Str(Val(MeisaiField.Text) + 1),3)
End Sub
65535
MouseClick
1
0
1
0
134217984
Sub MouseClick()
End Sub
120
Rectangle
0
120
Rectangle
0
140
StaticText
0
120
Rectangle
0
140
StaticText
0
132
PushButton
0
65535
Action
14
0
14
43
134217984
Sub Action()
EndDate.Year = Hakkoubi.Year
EndDate.Month = Hakkoubi.Month
EndDate.IncMonth
EndDate.Day = 1
EndDate.DecDay
StartDate.Year = EndDate.Year
StartDate.Month = EndDate.Month
StartDate.Day = 1
StartDate.Redraw
EndDate.Redraw
ClientName.ListIndex = ClientName.ListIndex
End Sub
132
PushButton
0
65535
Action
14
43
14
43
134217984
Sub Action()
EndDate.Year = Hakkoubi.Year
EndDate.Month = Hakkoubi.Month
EndDate.Day = 15
StartDate.Year = EndDate.Year
StartDate.Month = EndDate.Month
StartDate.DecMonth
StartDate.Day = EndDate.Day
StartDate.IncDay
StartDate.Redraw
EndDate.Redraw
ClientName.ListIndex = ClientName.ListIndex
End Sub
132
PushButton
0
65535
Action
14
43
14
43
134217984
Sub Action()
EndDate.Year = Hakkoubi.Year
EndDate.Month = Hakkoubi.Month
EndDate.Day = 20
StartDate.Year = EndDate.Year
StartDate.Month = EndDate.Month
StartDate.DecMonth
StartDate.Day = EndDate.Day
StartDate.IncDay
StartDate.Redraw
EndDate.Redraw
ClientName.ListIndex = ClientName.ListIndex
End Sub
132
PushButton
0
65535
Action
14
43
14
43
134217984
Sub Action()
EndDate.Year = Hakkoubi.Year
EndDate.Month = Hakkoubi.Month
EndDate.Day = Hakkoubi.Day
StartDate.Year = EndDate.Year
StartDate.Month = EndDate.Month
StartDate.DecMonth
StartDate.Day = EndDate.Day
StartDate.IncDay
StartDate.Redraw
EndDate.Redraw
ClientName.ListIndex = ClientName.ListIndex
End Sub
132
PushButton
0
65535
Action
1
0
14
19
134217984
Sub Action()
Dim tWindow as CalendarWindow
Dim tMsgWindow as MsgDlg
gDateField = Hakkoubi
tWindow = New CalendarWindow
2F2F8345834283938368834582CC88CA927582F092B290AE82B782E9
if screen(0).width = 640 then
tWindow.Left = Bill.Left + Bill.Width - tWindow.Width - 1
Else
tWindow.Left = Me.Left + Bill.Left + 1
end if
tWindow.Top = Me.Top + Me.Height + Bill.Top + 1
tWindow.ShowModal
gDateField.SetFocus
End Sub
140
StaticText
0
140
StaticText
0
140
StaticText
0
140
StaticText
0
140
StaticText
0
140
StaticText
0
140
StaticText
0
140
StaticText
0
120
GroupBox
0
65535
MouseMove
1
0
1
0
134217984
Sub MouseMove(X As Integer, Y As Integer)
End Sub
132
PushButton
0
65535
Action
6
0
6
9
134217984
Sub Action()
Dim tString as String
tString = PrintIvent()
49662074537472696E67203D202290AC8CF722205468656E
If ChangeSequence(Seikyu.Text) <> 0 Then
SaveIvent()
End If
6753617665436865616B203D202295DB91B68DCF22
Else
4D7367426F78202288F38DFC82B382EA82C882A982C182BD82CC82C5814122202B2043485228313329202B2022935D8B4C82B382EA82C482A282DC82B982F1814222
End If
End Sub
132
PushButton
0
65535
Action
20
0
20
9
134217984
Sub Action()
Dim tMsgWindow as MsgDlg
Dim tString as String
4966206753617665436865616B203D202295DB91B68DCF22205468656E
Quit
Else
2F2F96A295DB91B682C882E783818362835A815B835782F082BE82B5
tMsgWindow = New MsgDlg
744D736757696E646F772E5365744D65737361676520228F4997B982B782E9914F82C993E0976582F088F38DFC814595DB91B682B582DC82B782A9814822
744D736757696E646F772E7365744D6F6465202295DB91B622
tMsgWindow.showmodal
2F2F95DB91B682C882E78366815B835E82F095DB91B682B5814195DB91B682B582C882A282C882E795DB91B682B982B882C98F4997B98F88979D82F091B182AF82E9
496620744D736757696E646F772E517569744D6F6465203D202295DB91B622205468656E
2F2F88F38DFC8F88979D
tString = PrintIvent()
49662074537472696E67203D202290AC8CF722205468656E
2F2F95DB91B68F88979D
If ChangeSequence(Seikyu.Text) <> 0 Then
SaveIvent()
End If
Else
4D7367426F78202288F38DFC82B382EA82C882A982C182BD82CC82C5814122202B2043485228313329202B2022935D8B4C82B382EA82C482A282DC82B982F1814222
End If
456C7365496620744D736757696E646F772E517569744D6F6465203D2022834C83838393835A838B22205468656E
2F2F834C83838393835A838B82BE82C182BD82C682AB82C982CD93FC97CD8F88979D82F091B182AF82E9
Return
End If
Quit
End If
End Sub
132
PushButton
0
65535
Action
15
43
15
43
134217984
Sub Action()
Dim tWindow as CalendarWindow
Dim tMsgWindow as MsgDlg
gDateField = StartDAte
tWindow = New CalendarWindow
2F2F8345834283938368834582CC88CA927582F092B290AE82B782E9
if screen(0).width = 640 then
tWindow.Left = Bill.Left + Bill.Width - tWindow.Width - 1
Else
tWindow.Left = Me.Left + Bill.Left + 1
end if
tWindow.Top = Me.Top + Me.Height + Bill.Top + 1
tWindow.ShowModal
gDateField.SetFocus
ClientName.ListIndex = ClientName.ListIndex
End Sub
132
PushButton
0
65535
Action
3
0
3
0
134217984
Sub Action()
Dim tWindow as CalendarWindow
Dim tMsgWindow as MsgDlg
gDateField = EndDate
tWindow = New CalendarWindow
2F2F8345834283938368834582CC88CA927582F092B290AE82B782E9
if screen(0).width = 640 then
tWindow.Left = Bill.Left + Bill.Width - tWindow.Width - 1
Else
tWindow.Left = Me.Left + Bill.Left + 1
end if
tWindow.Top = Me.Top + Me.Height + Bill.Top + 1
tWindow.ShowModal
gDateField.SetFocus
ClientName.ListIndex = ClientName.ListIndex
End Sub
140
StaticText
0
120
GroupBox
0
140
StaticText
0
GroupBox
GroupBox
GroupBox1
-2147483648
0
True
105
107
266
79
True
False
False
False
False
Osaka
12
False
False
False
True
26
PopupMenu
PopupMenu
ClientName
-2147483648
0
True
105
31
266
20
True
False
False
False
False
Osaka
12
False
False
False
True
-1
0
EditField
EditField
Hakkoubi
-2147483648
0
True
105
69
87
22
True
False
False
False
False
Osaka
12
False
False
False
True
False
False
True
True
False
False
True
False
0
False
0
0
16777215
True
1
EditField
EditField
StartDAte
-2147483648
0
True
115
119
87
22
GroupBox1
True
False
False
False
False
Osaka
12
False
False
False
True
False
False
True
True
False
False
True
False
0
False
0
0
16777215
True
2
EditField
EditField
EndDate
-2147483648
0
True
253
119
87
22
GroupBox1
True
False
False
False
False
Osaka
12
False
False
False
True
False
False
True
True
False
False
True
False
0
False
0
0
16777215
True
3
EditField
EditField
MeisaiField
-2147483648
0
True
105
207
30
22
True
False
False
False
False
4F73616B61817C9399959D
14
False
False
False
True
False
False
True
True
False
False
True
False
0
False
0
0
16777215
True
4
EditField
EditField
Kurikosi
-2147483648
0
True
105
295
107
22
True
False
False
False
False
4F73616B61817C9399959D
14
False
False
False
True
False
False
False
False
False
False
True
False
0
False
0
0
16777215
True
6
Canvas
Canvas
Canvas1
-2147483648
0
True
135
207
13
22
True
False
False
False
False
0
True
True
False
False
7
Rectangle
Rectangle
Rectangle1
-2147483648
0
True
105
249
107
22
True
False
False
False
False
True
15658734
1
0
0
8
StaticText
StaticText
Seikyu
-2147483648
0
True
103
252
105
17
True
False
False
False
False
4F73616B61817C9399959D
14
False
False
False
2
0
False
True
5
Rectangle
Rectangle
Rectangle2
-2147483648
0
True
105
340
107
22
True
False
False
False
False
True
15658734
1
0
0
9
StaticText
StaticText
Tax
-2147483648
0
True
103
343
105
17
True
False
False
False
False
4F73616B61817C9399959D
14
False
False
False
2
0
False
True
10
Rectangle
Rectangle
Rectangle3
-2147483648
0
True
105
383
107
22
True
False
False
False
False
True
15658734
1
0
0
11
StaticText
StaticText
Total
-2147483648
0
True
103
386
105
17
True
False
False
False
False
4F73616B61817C9399959D
14
False
False
False
2
0
False
True
12
PushButton
PushButton
PushButton1
-2147483648
0
True
115
156
55
20
GroupBox1
True
False
False
False
False
Osaka
12
False
False
False
8C8E9696
False
False
True
13
PushButton
PushButton
PushButton2
-2147483648
0
True
179
156
55
20
GroupBox1
True
False
False
False
False
Osaka
12
False
False
False
313593FA
False
False
True
14
PushButton
PushButton
PushButton3
-2147483648
0
True
243
156
55
20
GroupBox1
True
False
False
False
False
Osaka
12
False
False
False
323093FA
False
False
True
15
PushButton
PushButton
PushButton4
-2147483648
0
True
308
156
55
20
GroupBox1
True
False
False
False
False
Osaka
12
False
False
False
967B93FA
False
False
True
16
PushButton
PushButton
PushButton5
-2147483648
0
True
193
70
70
20
True
False
False
False
False
Osaka
12
False
False
False
834A838C8393835F815B
False
False
True
17
StaticText
StaticText
StaticText4
-2147483648
0
True
29
31
60
17
True
False
False
False
False
Osaka
12
False
False
False
8ED08140814096BC
1
0
False
True
18
StaticText
StaticText
StaticText5
-2147483648
0
True
29
72
60
17
True
False
False
False
False
Osaka
12
False
False
False
94AD20208D73202093FA
1
0
False
True
19
StaticText
StaticText
StaticText6
-2147483648
0
True
29
122
60
17
True
False
False
False
False
Osaka
12
False
False
False
8AFA814081408AD4
1
0
False
True
20
StaticText
StaticText
StaticText7
-2147483648
0
True
29
209
60
17
True
False
False
False
False
Osaka
12
False
False
False
95CA8E8696BE8DD7
1
0
False
True
21
StaticText
StaticText
StaticText8
-2147483648
0
True
29
255
60
17
True
False
False
False
False
Osaka
12
False
False
False
90BF8B818BE08A7A
1
0
False
True
22
StaticText
StaticText
StaticText9
-2147483648
0
True
29
300
60
17
True
False
False
False
False
Osaka
12
False
False
False
914F8C8E8C4A897A
1
0
False
True
23
StaticText
StaticText
StaticText10
-2147483648
0
True
29
344
60
17
True
False
False
False
False
Osaka
12
False
False
False
8FC1202094EF202090C5
1
0
False
True
24
StaticText
StaticText
StaticText11
-2147483648
0
True
29
387
60
17
True
False
False
False
False
Osaka
12
False
False
False
8D878C768BE08A7A
1
0
False
True
25
PushButton
PushButton
PushButton6
-2147483648
0
True
273
251
100
20
True
False
False
False
False
Osaka
12
False
False
False
88F38DFC8CE395DB91B6
False
False
True
27
PushButton
PushButton
PushButton7
-2147483648
0
True
273
287
100
20
True
False
False
False
False
Osaka
12
False
False
False
8F4997B9
False
False
True
28
PushButton
PushButton
PushButton8
-2147483648
0
True
203
120
20
20
GroupBox1
True
False
False
False
False
Osaka
12
False
False
False
834A
False
False
True
29
PushButton
PushButton
PushButton9
-2147483648
0
True
341
120
20
20
GroupBox1
True
False
False
False
False
Osaka
12
False
False
False
834A
False
False
True
30
StaticText
StaticText
StaticText1
-2147483648
0
True
232
122
15
17
GroupBox1
True
False
False
False
False
Osaka
12
False
False
False
8160
0
0
False
True
31
GroupBox
GroupBox
GroupBox2
-2147483648
0
True
218
324
166
88
True
False
False
False
False
Osaka
12
False
False
False
8CE4928D88D38146
True
32
StaticText
StaticText
StaticText2
-2147483648
0
True
222
342
162
65
GroupBox2
True
False
False
False
False
Osaka
12
True
False
False
82B182CC90BF8B818F9182CD8D488C7C8ED090EA977082C582B781420D8D488C7C8ED08BE695AA88C88A4F82CC90BF8B818F9194AD8D7382CD8D7382ED82C882A282C582AD82BE82B382A28142
0
15538206
True
True
33
Menu
0
DateField
20
-1000
100001107
-1000
1
DateField
197
EditField
0
year as integer
month as integer
day as integer
weekDay as integer
date as date
format as string
currentPos as integer
RedrawFlg as boolean
65535
redraw
0
16
0
16
0
134217984
Sub redraw()
RedrawFlg = true
Text = format(Year, "0000") + "/" + format(Month, "00") + "/" + format(Day, "00")
select case currentPos
case 1
me.selstart = 0
me.sellength = 4
case 2
me.selstart = 5
me.sellength = 2
case 3
me.selstart = 8
me.sellength = 2
end select
RedrawFlg = false
End Sub
65535
Inc
0
13
0
13
0
134217984
Sub Inc()
select case currentPos
case 1//Year
IncYear()
case 2//Month
IncMonth()
case 3//Day
IncDay()
end select
Redraw
End Sub
65535
Dec
0
13
0
13
0
134217984
Sub Dec()
select case currentPos
case 1//Year
DecYear()
case 2//Month
DecMonth()
case 3//Day
DecDay()
end select
Redraw
End Sub
65535
IsLeapYear
Boolean
0
4
0
4
0
134217984
Function IsLeapYear() As Boolean
2F2F834A838C83938367944E82AA895B944E82C882E754727565
return (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0))
//1920/1/1 Thursday
End Function
65535
GetDaysOfMonth
Integer
0
6
20
6
20
134217984
Function GetDaysOfMonth() As Integer
dim days as integer
2F2F82BB82CC8C8E82CC93FA909482F095D482B7
days = val(NthField("31,28,31,30,31,30,31,31,30,31,30,31", ",",month))
2F2F895B944E82C882E782518C8E82C9825089C18E5A
if (month = 2) and IsLeapYear then
days = days + 1
end if
return days
End Function
65535
DecMonth
0
5
0
5
0
134217984
Sub DecMonth()
Month = Month - 1
if Month = 0 then
DecYear()
Month = 12
end if
End Sub
65535
DecDay
0
3
0
3
0
134217984
Sub DecDay()
Day = Day - 1
if Day = 0 then
DecMonth()
Day = GetDaysOfMonth()
end if
End Sub
65535
IncMonth
0
6
0
6
0
134217984
Sub IncMonth()
Month = Month + 1
if Month = 13 then
Month = 1
IncYear()
end if
End Sub
65535
IncDay
0
6
0
6
0
134217984
Sub IncDay()
Day = Day + 1
if Day > GetDaysOfMonth() then
Day = 1
IncMonth()
end if
End Sub
65535
IncYear
0
5
0
5
0
134217984
Sub IncYear()
Year = Year + 1
if Year > 2100 then
Year = 2100
end if
End Sub
65535
DecYear
0
3
11
3
11
134217984
Sub DecYear()
Year = Year - 1
if Year < 1920 then
Year = 1920
end if
End Sub
65535
EnterField
65535
LostFocus
1
0
1
0
134217984
Sub LostFocus()
End Sub
65535
TextChange
1
0
1
0
134217984
Sub TextChange()
End Sub
65535
KeyDown
3
0
3
10
134217984
Function KeyDown(Key As String) As Boolean
select case key
case chr(29)
currentPos = currentPos + 1
if currentPos > 3 then
currentPos = 1
end if
case chr(28)
currentPos = currentPos - 1
if currentPos < 1 then
currentPos = 3
end if
case chr(30)
Inc()
case chr(31)
Dec()
end select
if Key < "0" or Key > "9" then
redraw
return true
end if
select case currentPos
case 1
case 2
case 3
end select
End Function
65535
SelChange
5
0
11
6
134217984
Sub SelChange()
if RedrawFlg = true then
return
end if
if me.selstart < 4 then
currentPos = 1
elseif me.selstart < 8 then
currentPos = 2
else
currentPos = 3
end if
redraw
End Sub
65535
GotFocus
2
10
2
10
134217984
Sub GotFocus()
redraw
EnterField
End Sub
65535
Open
9
0
9
0
134217984
Sub Open()
dim s as string
me.date = new date
Year = date.Year
Month = date.Month
Day = date.Day
currentPos = 3
redraw
End Sub
Spin
20
-1000
100001107
-1000
1
Spin
136
Canvas
0
value as integer
minimum as integer
maximum as integer
stepValue as integer
65535
redraw
g as graphics
0
27
31
27
31
134217984
Sub redraw(g as graphics)
dim w as integer
dim h as integer
dim i as integer
w = g.width -1
h = g.height -1
g.forecolor = rgb(0, 0, 0)
g.drawline 1, 0, w - 1, 0
g.drawline w, 1, w, h - 1
g.drawline w - 1, h, 1, h
g.drawline 0, h - 1, 0, 1
g.drawline 0, h/2, w, h/2
g.forecolor = rgb(208, 208, 208)
g.fillrect 2, 2, w-3, h/2-2
g.forecolor = rgb(160, 160, 160)
g.drawline w-1, 1, w-1, h/2-1
g.drawline w-1, h/2-1, 1, h/2-1
g.forecolor = rgb(255, 255, 255)
g.drawline w-1, 1, 1, 1
g.drawline 1, 1, 1, h/2-1
g.forecolor = rgb(0, 0, 0)
for i = 0 to 3
g.drawline w/2-i, 4+i, w/2+i, 4+i
next
g.forecolor = rgb(208, 208, 208)
g.fillrect 2, h/2+2, w-3, h/2-2
g.forecolor = rgb(160, 160, 160)
g.drawline w-1, h/2+1, w-1, h-1
g.drawline w-1, h-1, 1, h-1
g.forecolor = rgb(255, 255, 255)
g.drawline w-1, h/2+1, 1, h/2+1
g.drawline 1, h/2+1, 1, h-1
g.forecolor = rgb(0, 0, 0)
for i = 0 to 3
g.drawline w/2-i, h-4-i, w/2+i, h-4-i
next
End Sub
65535
MouseClick
65535
UpClick
65535
DownClick
65535
Open
5
0
5
0
134217984
Sub Open()
value = 0
maximum = 100
minimum = 0
stepValue = 1
End Sub
65535
MouseDrag
1
0
1
0
134217984
Sub MouseDrag(X As Integer, Y As Integer)
End Sub
65535
MouseUp
5
0
5
0
134217984
Sub MouseUp(X As Integer, Y As Integer)
dim g as Graphics
g = me.graphics
redraw g
MouseClick
End Sub
65535
MouseDown
46
9
46
9
134217984
Function MouseDown(X As Integer, Y As Integer) As Boolean
dim w as integer
dim h as integer
dim i as integer
dim g as graphics
g = me.Graphics
w = g.width -1
h = g.height -1
if y < h/2 then
g.forecolor = rgb(96, 96, 96)
g.fillrect 2, 2, w-3, h/2-2
g.forecolor = rgb(160, 160, 160)
g.drawline w-1, 1, w-1, h/2-1
g.drawline w-1, h/2-1, 1, h/2-1
g.forecolor = rgb(64, 64, 64)
g.drawline w-1, 1, 1, 1
g.drawline 1, 1, 1, h/2-1
g.forecolor = rgb(255, 255, 255)
for i = 0 to 3
g.drawline w/2-i, 4+i, w/2+i, 4+i
next
value = value + stepValue
if value > maximum then
value = maximum
end if
UpClick
else
g.forecolor = rgb(96, 96, 96)
g.fillrect 2, h/2+2, w-3, h/2-2
g.forecolor = rgb(160, 160, 160)
g.drawline w-1, h/2+1, w-1, h-1
g.drawline w-1, h-1, 1, h-1
g.forecolor = rgb(64, 64, 64)
g.drawline w-1, h/2+1, 1, h/2+1
g.drawline 1, h/2+1, 1, h-1
g.forecolor = rgb(255, 255, 255)
for i = 0 to 3
g.drawline w/2-i, h-4-i, w/2+i, h-4-i
next
value = value - stepValue
if value < minimum then
value = minimum
end if
DownClick
end if
return true
End Function
65535
Paint
2
0
2
0
134217984
Sub Paint(g As Graphics)
redraw g
End Sub
NumberField
20
-1000
100001107
-1000
1
NumberField
216
EditField
0
Value as double
decimalPoint as Integer
max as double
min as double
IntLength as Integer
DecLength as Integer
FormatString as String
FormatLength as Integer
65535
SetFormat
tIntLength as Integer, tDecLength as Integer
0
4
84
4
84
134217984
Sub SetFormat(tIntLength as Integer, tDecLength as Integer)
IntLength = tIntLength
DecLength = tDecLength
FormatString = "-,#"
FormatLength = len(format(val(left("99999999999999999999",IntLength)),FormatString))
if DecLength <> 0 then
FormatLength=FormatLength+1+DecLength
FormatString = FormatString + "." + left("0000000000", DecLength)
end if
text = right(" " + format(value, FormatString), FormatLength)
refresh
End Sub
65535
SetValue
tValue as Double
0
2
79
2
79
134217984
Sub SetValue(tValue as Double)
Value = tValue
text = right(" " + format(value, FormatString), FormatLength)
refresh
End Sub
65535
KeyDown
Key as String
Boolean
65535
Open
65535
DropObject
1
0
1
0
134217984
Sub DropObject(obj As DragItem)
End Sub
65535
Open
1
0
4
0
134217984
Sub Open()
IntLength = 10
DecLength = 2
SetFormat IntLength, DecLength
Open
End Sub
65535
GotFocus
1
0
1
0
134217984
Sub GotFocus()
End Sub
65535
TextChange
1
0
1
0
134217984
Sub TextChange()
End Sub
65535
SelChange
1
0
1
0
134217984
Sub SelChange()
End Sub
65535
KeyDown
36
6
36
11
134217984
Function KeyDown(Key As String) As Boolean
if KeyDown(Key) = true then
return true
end if
if asc(key) >=48 and asc(key) <= 57 then
if decimalPoint = 0 then
if len(format(floor(value),"#")) < IntLength then
Value = Value * 10 + val(key)
end if
else
if decimalPoint <= DecLength then
Value = Value + val(key) * Pow(.1, decimalPoint)
decimalPoint = decimalPoint + 1
end if
end if
text = right(" " + format(value, FormatString), FormatLength)
refresh
return true
end if
select case asc(key)
case 45 ' "-"
value = value * -1
case 46 ' "."
if decimalPoint = 0 then
decimalPoint = 1
end if
case 8 ' BackSpace
if decimalPoint <> 0 then
decimalPoint = decimalPoint - 1
end if
if decimalPoint = 0 then
value=floor(value/10)
else
value=floor(value * Pow(10, decimalPoint-1))/Pow(10, decimalPoint-1)
end if
case 27 ' Clear
value = 0
DecimalPoint = 0
end select
text = right(" " + format(value, FormatString), FormatLength)
refresh
return true
End Function
65535
MouseEnter
1
0
1
0
134217984
Sub MouseEnter()
End Sub
65535
LostFocus
1
0
1
0
134217984
Sub LostFocus()
End Sub
MsgDlg
19
181
100001107
181
354
115
MsgDlg
2
False
False
16777215
0
Untitled
False
False
True
True
True
False
True
0
0
0
364
111
64
64
32000
32000
MsgDlg
156
Window
0
QuitMode as String
DialogMode as String
IconMode as string
65535
SetMode
tMode as string
0
41
24
41
24
134217984
Sub SetMode(tMode as string)
696620696E73747228744D6F64652C202295DB91B622293C3E30207468656E
4D6573736167654361702E74657874203D202295CF8D5893E0976582F095DB91B682B582C48F4997B982B582DC82B782A9814822
DialogMode = "Save"
IconMode="Stop"
end if
696620696E73747228744D6F64652C2022928D88D322293C3E30207468656E
IconMode="Note"
end if
696620696E73747228744D6F64652C20228C788D9022293C3E30207468656E
IconMode="Caution"
end if
696620696E73747228744D6F64652C202292E28E7E22293C3E30207468656E
IconMode="Stop"
end if
if instr(tMode, "OK")<>0 then
DialogMode = "OK"
end if
696620696E73747228744D6F64652C202288F38DFC22293C3E30207468656E
4469616C6F674D6F6465203D202288F38DFC22
end if
696620696E73747228744D6F64652C202243616E63656C22293C3E30206F7220696E73747228744D6F64652C2022834C83838393835A838B22293C3E30207468656E
DialogMode = "OKCancel"
end if
select case DialogMode
63617365202295DB91B622
627574746F6E2830292E63617074696F6E203D2295DB91B622
627574746F6E2831292E63617074696F6E203D22834C83838393835A838B22
627574746F6E2832292E63617074696F6E203D2295DB91B682B582C882A222
button(0).visible = true
button(1).visible = true
button(2).visible = true
case "OK"
button(0).caption ="OK"
button(0).visible = true
button(1).visible = false
button(2).visible = false
case "OKCancel"
button(0).caption ="OK"
627574746F6E2831292E63617074696F6E203D22834C83838393835A838B22
button(0).visible = true
button(1).visible = true
button(2).visible = false
43617365202288F38DFC22
627574746F6E2830292E63617074696F6E203D2288F38DFC22
627574746F6E2831292E63617074696F6E203D22834C83838393835A838B22
627574746F6E2832292E63617074696F6E203D2288F38DFC82B582C882A222
button(0).visible = true
button(1).visible = true
button(2).visible = true
end select
visible = true
End Sub
65535
SetMessage
tMessage as String
0
2
0
2
0
134217984
Sub SetMessage(tMessage as String)
MessageCap.text = tMessage
End Sub
65535
Open
1
0
1
0
134217984
Sub Open()
End Sub
132
PushButton
0
65535
Action
1
32
1
32
134217984
Sub Action(Index As Integer)
QuitMode = Button(Index).caption
hide
End Sub
140
StaticText
0
120
Canvas
0
65535
Paint
1
20
1
20
134217984
Sub Paint(g As Graphics)
select case IconMode
case "Note"
g.DrawNoteIcon 0,0
case "Caution"
g.DrawCautionIcon 0,0
case "Stop"
g.DrawStopIcon 0,0
end select
End Sub
PushButton
PushButton
Button
0
0
True
289
78
60
20
True
False
False
False
False
Osaka
12
False
False
False
95DB91B6
False
False
True
0
PushButton
PushButton
Button
1
0
True
171
78
84
20
True
False
False
False
False
Osaka
12
False
False
False
834C83838393835A838B
False
False
True
0
StaticText
StaticText
MessageCap
-2147483648
0
True
59
13
290
50
True
False
False
False
False
Osaka
12
False
False
False
5365744D6F6465202295DB91B62C8C788D902C92E28E7E2C928D88D32C4F4B2C834C83838393835A838B22205365744D6573736167652022955C8EA682B582BD82A293E097652220202F2053686F774D6F64616C202F20517569744D6F6465
0
0
True
True
1
PushButton
PushButton
Button
2
0
True
27
78
88
20
True
False
False
False
False
Osaka
12
False
False
False
95DB91B682B582C882A2
False
False
True
0
Canvas
Canvas
IconBox
-2147483648
0
True
13
13
32
32
True
False
False
False
False
0
True
True
False
False
2
AboutWindow
19
181
100001107
181
451
383
AboutWindow
4
False
True
16777215
0
True
False
True
True
True
False
True
0
0
0
300
300
64
64
32000
32000
AboutWindow
144
Window
0
65535
Open
2
15
2
29
134217984
Sub Open()
AppNameText.Text =Bill.Title
VerText.Text = gVersionString
End Sub
140
StaticText
0
65535
MouseMove
1
0
1
0
134217984
Sub MouseMove(X As Integer, Y As Integer)
End Sub
132
PushButton
0
65535
Action
1
5
1
5
134217984
Sub Action()
Close
End Sub
140
StaticText
0
140
StaticText
0
140
StaticText
0
65535
MouseMove
1
0
1
0
134217984
Sub MouseMove(X As Integer, Y As Integer)
End Sub
StaticText
StaticText
StaticText1
-2147483648
0
True
50
124
200
18
True
False
False
False
False
Osaka
12
False
False
False
Norizuki Industrial Arts Co.,Ltd.
0
0
False
True
0
StaticText
StaticText
AppNameText
-2147483648
0
True
50
36
200
35
True
False
False
False
False
Osaka
18
False
False
False
1
0
False
True
4
PushButton
PushButton
PushButton1
-2147483648
0
True
50
247
200
20
True
False
False
False
False
Osaka
12
False
False
False
OK
True
False
True
1
StaticText
StaticText
StaticText3
-2147483648
0
True
50
142
200
16
True
False
False
False
False
Osaka
12
False
False
False
53797374656D8A4A94AD
1
0
False
True
2
StaticText
StaticText
VerText
-2147483648
0
True
50
76
200
16
True
False
False
False
False
Osaka
12
False
False
False
1
0
False
True
3
Grobal
21
-1000
100001107
-1000
0
Grobal
56
0
gSaveCheak as String
gTotal as Double
gTax as Double
gPrintSettings as String
gDateField as DateField
CalendarWindow
19
181
100001107
181
368
114
CalendarWindow
2
False
False
16777215
0
Untitled
True
False
True
True
True
False
True
0
0
0
292
224
64
64
32000
32000
CalendarWindow
144
Window
0
65535
Open
1
0
1
0
134217984
Sub Open()
End Sub
188
Calendar
0
65535
MouseClick
4
22
4
22
134217984
Sub MouseClick()
DateBufferField.Year = Me.Year
DateBufferField.Month = Me.Month
DateBufferField.Day = Me.Day
DateBufferField.Redraw
End Sub
132
PushButton
0
65535
Action
2
15
2
15
134217984
Sub Action()
Calendar.DecMonth
Calendar.Redraw
End Sub
132
PushButton
0
65535
Action
1
12
1
12
134217984
Sub Action()
Calendar.IncMonth
Calendar.Redraw
End Sub
132
PushButton
0
65535
Action
6
0
6
0
134217984
Sub Action()
Dim tLineCount as Integer
gDateField.Year = Val(NthField(DateBufferField.Text,"/",1))
gDateField.Month = Val(NthField(DateBufferField.Text,"/",2))
gDateField.Day = Val(NthField(DateBufferField.Text,"/",3))
gDateField.Redraw
Close
End Sub
197
DateField
0
Canvas
Canvas
Calendar
-2147483648
0
True
20
41
253
165
True
False
False
False
False
0
True
True
False
False
0
PushButton
PushButton
PushButton1
-2147483648
0
True
196
13
35
20
True
False
False
False
False
Osaka
12
False
False
False
81838183
False
False
True
1
PushButton
PushButton
PushButton2
-2147483648
0
True
238
13
35
20
True
False
False
False
False
Osaka
12
False
False
False
81848184
False
False
True
2
PushButton
PushButton
PushButton3
-2147483648
0
True
111
12
60
20
True
False
False
False
False
Osaka
12
False
False
False
OK
False
False
True
3
EditField
EditField
DateBufferField
-2147483648
0
True
20
11
88
22
True
False
False
False
False
Osaka
12
False
False
False
True
False
False
True
True
False
False
True
False
0
False
0
0
16777215
True
4
RBlogo
24
5365727665722048443A496E7465726E616C3AE9968BE799BA3AE6A5ADE58B99E382B7E382B9E38386E383A03AE8B2A9E5A3B2E7AEA1E790863A52426C6F676F
0
Unknown
Window
0
Class
0
Module
0
Graphics
0
Calendar
20
-1000
100001107
-1000
1
Calendar
188
Canvas
0
Year as integer
Month as integer
Day as integer
TitleHeight as integer
SideMargin as integer
DaysLeft as integer
DaysTop as integer
DaysWidth as integer
DaysHeight as integer
PreviousDay as integer
TitleTextSize as integer
TextSize as integer
SelectTextSize as integer
Today as integer
OffScrn as Picture
CurrentMonth as integer
CurrentYear as integer
65535
IsLeapYear
Boolean
0
1
0
5
0
134217984
Function IsLeapYear() As Boolean
2F2F834A838C83938367944E82AA895B944E82C882E754727565
return (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0))
//1920/1/1 Thursday
End Function
65535
GetDaysOfMonth
tMonth as Integer
Integer
0
12
0
12
0
134217984
Function GetDaysOfMonth(tMonth as Integer) As Integer
2F2F82BB82CC8C8E82CC93FA909482F095D482B7
dim days as integer
days = val(NthField("31,28,31,30,31,30,31,31,30,31,30,31", ",",tMonth))
2F2F895B944E82C882E782518C8E82C9825089C18E5A
if (tMonth = 2) and IsLeapYear then
days = days + 1
end if
return days
End Function
65535
GetDayOfWeek
tDay as integer
Integer
0
18
0
18
0
134217984
Function GetDayOfWeek(tDay as integer) As Integer
dim i as integer
dim days as integer
//1920/1/1 Thursday
days = 4 + 365 * (Year - 1920) + tDay - 1
for i = 1920 to Year - 1
if (i mod 4 = 0) and ((i mod 100 <> 0) or (i mod 400 = 0)) then
days = days + 1
end if
next
for i = 1 to Month - 1
days = days + GetDaysOfMonth(i)
next
return days mod 7
End Function
65535
DrawDayCell
tDay as integer, tAttr as integer, g as Graphics
0
16
20
16
20
134217984
Sub DrawDayCell(tDay as integer, tAttr as integer, g as Graphics)
dim x as integer
dim y as integer
dim l as integer
dim t as integer
dim tw as integer
dim wc as integer//week count
if tDay = 0 then
return
end if
wc = 6
x = (GetDayOfWeek(1) + tDay - 1) mod 7
79203D20284765744461794F665765656B283129202B2074446179202D203129202F2037202F2F696E746567657282C582A082E982CC82C596DF82E8926C82CD8EA993AE934982C9466C6F6F7282B382EA82E9
g.TextFont = "Geneva"
select case tAttr
case 0
if tDay = Today and Month = CurrentMonth and Year = CurrentYear then
g.Bold = true
end if
g.TextSize = TextSize
//g.ForeColor= rgb(212, 212, 212)
//g.FillRect DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y,DaysWidth / 7, DaysHeight / wc
g.ForeColor= rgb(255, 255, 255)
g.DrawLine DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 2, DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y
g.DrawLine DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 2, DaysTop + DaysHeight / wc * y
//g.DrawLine DaysLeft + DaysWidth / 7 * x + 1, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 3, DaysLeft + DaysWidth / 7 * x + 1, DaysTop + DaysHeight / wc * y + 1
//g.DrawLine DaysLeft + DaysWidth / 7 * x + 1, DaysTop + DaysHeight / wc * y + 1, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 3, DaysTop + DaysHeight / wc * y + 1
g.ForeColor= rgb(168, 168, 168)
g.DrawLine DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 1, DaysTop + DaysHeight / wc * y + 2, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 1, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 1
g.DrawLine DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 1, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 1, DaysLeft + DaysWidth / 7 * x + 2, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 1
//g.ForeColor= rgb(128, 128, 128)
//g.DrawLine DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 , DaysTop + DaysHeight / wc * y + 2, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 , DaysTop + DaysHeight / wc * y + DaysHeight / wc
//g.DrawLine DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 , DaysTop + DaysHeight / wc * y + DaysHeight / wc , DaysLeft + DaysWidth / 7 * x + 2, DaysTop + DaysHeight / wc * y + DaysHeight / wc
select case x
case 0
g.ForeColor = rgb(255, 0, 0)
case 6
g.ForeColor = rgb(0, 0, 255)
else
g.ForeColor = rgb(0, 0, 0)
end select
tw = g.TextHeight / 2 * len(str(tDay)) / 2
g.DrawString str(tDay), DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 / 2 - tw, DaysTop + DaysHeight / wc * y + DaysHeight / wc / 2 + g.TextHeight / 4
case 1
if tDay = Today and Month = CurrentMonth and Year = CurrentYear then
g.Bold = true
end if
g.TextSize = SelectTextSize
g.ForeColor= rgb(212, 212, 255)
g.FillRect DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y,DaysWidth / 7, DaysHeight / wc
select case x
case 0
g.ForeColor = rgb(255, 0, 0)
case 6
g.ForeColor = rgb(0, 0, 255)
else
g.ForeColor = rgb(0, 0, 0)
end select
tw = g.TextHeight / 2 * len(str(tDay)) / 2
g.DrawString str(tDay), DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 / 2 - tw, DaysTop + DaysHeight / wc * y + DaysHeight / wc / 2 + g.TextHeight / 4
case 2
g.DrawPicture OffScrn, DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y, DaysWidth / 7, DaysHeight / wc, DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y, DaysWidth / 7, DaysHeight / wc
case 3
if tDay = Today and Month = CurrentMonth and Year = CurrentYear then
g.Bold = true
end if
g.TextSize = SelectTextSize
g.ForeColor= rgb(212, 212, 255)
g.FillRect DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y,DaysWidth / 7, DaysHeight / wc
g.ForeColor= rgb(128, 128, 255)
g.DrawLine DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 2, DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y
g.DrawLine DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 2, DaysTop + DaysHeight / wc * y
g.ForeColor= rgb(168, 168, 255)
g.DrawLine DaysLeft + DaysWidth / 7 * x + 1, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 3, DaysLeft + DaysWidth / 7 * x + 1, DaysTop + DaysHeight / wc * y + 1
g.DrawLine DaysLeft + DaysWidth / 7 * x + 1, DaysTop + DaysHeight / wc * y + 1, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 3, DaysTop + DaysHeight / wc * y + 1
g.ForeColor= rgb(255, 255, 255)
g.DrawLine DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 2, DaysTop + DaysHeight / wc * y + 2, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 2, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 2
g.DrawLine DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 2, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 2, DaysLeft + DaysWidth / 7 * x + 2, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 2
select case x
case 0
g.ForeColor = rgb(255, 0, 0)
case 6
g.ForeColor = rgb(0, 0, 255)
else
g.ForeColor = rgb(0, 0, 0)
end select
tw = g.TextHeight / 2 * len(str(tDay)) / 2
g.DrawString str(tDay), DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 / 2 - tw + 1, DaysTop + DaysHeight / wc * y + DaysHeight / wc / 2 + g.TextHeight / 4 + 1
end select
g.Bold = false
End Sub
65535
IncMonth
0
10
0
10
0
134217984
Sub IncMonth()
Month = Month + 1
if Month = 13 then
Month = 1
Year = Year + 1
if Year > 2100 then
Year = 2100
end if
end if
Redraw
End Sub
65535
DecMonth
0
10
0
10
0
134217984
Sub DecMonth()
Month = Month - 1
if Month = 0 then
Month = 12
Year = Year - 1
if Year < 1920 then
Year = 1920
end if
end if
Redraw
End Sub
65535
Redraw
0
47
20
47
20
134217984
Sub Redraw()
dim w as integer
dim h as integer
dim d as integer
dim i as integer
dim g as Graphics
g = OffScrn.Graphics
w = g.width - 1
h = g.height - 1
2F2F88EA94D48A4F98678169899A93CA816A82CC956089E6
g.ForeColor = rgb(128, 128, 128)
g.DrawLine 0, h, 0, 0
g.DrawLine 0, 0, w, 0
g.ForeColor = rgb(255, 255, 255)
g.DrawLIne w, 0, w, h
g.DrawLIne w, h, 0, h
2F2F825194D496DA82CC986781698D959046816A82CC956089E6
g.ForeColor = rgb(0, 0, 0)
g.DrawRect 1, 1, w - 2, h - 2
2F2F93E091A482F09492904682C9936882E892D782B7
g.ForeColor = rgb(212, 212, 212)
g.FillRect 2, 2, w- 4, h - 4
2F2F835E83438367838B82CC956089E6
g.ForeColor = rgb(192, 192, 192)
2F2F8CE393FA838B815B8360839389BB
g.TextFont = "Geneva"
g.Bold = True
g.TextSize = TitleTextSize
g.drawstring str(year)+"."+str(month), w - g.textheight / 2 * 7, h - 8
2F2F956089E697CC88E68E5A8F6F
DaysWidth = w - 4 - SideMargin * 2
DaysHeight = h - TitleHeight - 4 - 8
DaysLeft = 2 + SideMargin
DaysTop = TitleHeight + 8
w = DaysWidth
h = DaysHeight
2F2F976A93FA956089E6
g.TextFont = "Geneva"
g.TextSize = TextSize
for i = 0 to 6
select case i
case 0
g.ForeColor = rgb(255, 0, 0)
case 6
g.ForeColor = rgb(0, 0, 255)
else
g.ForeColor = rgb(0, 0, 0)
end select
g.DrawString NthField("SUN MON TUE WED THU FRI SUT", " ", i + 1), w / 7 * i + DaysLeft + w / 7 / 2 - g.TextHeight / 2 * 3 / 2, DaysTop - 16 + g.TextHeight
next
2F2F93FA956089E6
for i = 1 to GetDaysOfMonth(Month)
DrawDayCell i, 0, g
next
g = Graphics
g.DrawPicture OffScrn, 0, 0, g.width, g.height, 0, 0, g.width, g.height
End Sub
65535
MouseClick
65535
MouseUp
1
26
1
26
134217984
Sub MouseUp(X As Integer, Y As Integer)
DrawDayCell previousDay, 1, Graphics
End Sub
65535
MouseEnter
1
0
1
0
134217984
Sub MouseEnter()
End Sub
65535
MouseExit
2
16
2
16
134217984
Sub MouseExit()
DrawDayCell previousDay, 2, Graphics
previousDay = 32
End Sub
65535
MouseMove
14
6
14
6
134217984
Sub MouseMove(X As Integer, Y As Integer)
dim d as integer
dim g as Graphics
g = Graphics
if X > DaysLeft and X < (DaysLeft + DaysWidth) and Y > DaysTop and Y < (DaysTop + DaysHeight) then
d = (X - DaysLeft) / (DaysWidth / 7) + Floor((Y - DaysTop) / Floor(DaysHeight / 6)) * 7 - GetDayOfWeek(1) +1
if d < 1 or d > GetDaysOfMonth(Month) then
d = 0
end if
if d <> previousDay then
//DrawDayCell previousDay, 2, g
//DrawDayCell d, 1, g
previousDay = d
end if
else
//DrawDayCell previousDay, 2, g
end if
End Sub
65535
MouseDown
12
0
12
0
134217984
Function MouseDown(X As Integer, Y As Integer) As Boolean
dim d as integer
if X > DaysLeft and X < (DaysLeft + DaysWidth) and Y > DaysTop and Y < (DaysTop + DaysHeight) then
d = (X - DaysLeft) / (DaysWidth / 7) + Floor((Y - DaysTop) / Floor(DaysHeight / 6)) * 7 - GetDayOfWeek(1) + 1
if d >= 1 and d <= GetDaysOfMonth(Month) then
DrawDayCell d, 3, Graphics
day = d
MouseClick()
end if
end if
return true
End Function
65535
Close
1
0
1
0
134217984
Sub Close()
End Sub
65535
Open
5
42
5
42
134217984
Sub Open()
dim d as Date
dim g as Graphics
g = Graphics
offScrn = newPicture(g.width, g.height, 16)
d = new Date
Year = d.Year
Month = d.Month
Day = d.Day
CurrentYear = d.year
CurrentMonth = d.Month
Today = d.day
SideMargin = 8
TitleHeight = 8
TextSize = 12
SelectTextSize = 12
TitleTextSize = 36
Redraw
End Sub
65535
Paint
2
0
2
0
134217984
Sub Paint(g As Graphics)
g.DrawPicture OffScrn, 0, 0, g.width, g.height, 0, 0, g.width, g.height
End Sub
Function
21
-1000
100001107
-1000
0
Function
104
0
gScreenX as Integer
gScreenY as Integer
Vre133 as String
gDecimal as Integer
lHeadFootLine(3) as Integer
lMaxPage(1) as Integer
lPageLineNumber(1) as Integer
lSegmentNumber as Integer
lSegmentString(50) as String
lSegmentPosition(50) as String
lSegmentSize(50) as Integer
lSegmentSizeBuffer(50) as Integer
lGraphHeight as Integer
lPrintData(50) as Integer
lCellSegment as String
lPrintFont(1) as String
gBasicPath as String
gVersionString as String
gPrintSettings as String
65535
gsPrintV
tGraph as Graphics,tObjL as Integer,tObjT as Integer,tObjR as Integer,tObjB as Integer,tFormat as String
0
16
33
16
37
134217984
Sub gsPrintV(tGraph as Graphics,tObjL as Integer,tObjT as Integer,tObjR as Integer,tObjB as Integer,tFormat as String)
Dim i as Integer
Dim tLeftPoint as Integer
Dim tString as String
OutPlot tGraph,tObjL,tObjT,tObjR,tObjT
OutPlot tGraph,tObjL,tObjB,tObjR,tObjB
OutPlot tGraph,tObjL,tObjT,tObjL,tObjB
tLeftPoint = tObjL
For i = 1 To 255
tString = NthField(tFormat,";",i)
If tString = "" Then
i = 255
Else
tLeftPoint = tLeftPoint + Val(tString)
OutPlot tGraph,tLeftPoint,tObjT,tLeftPoint,tObjB
End If
Next
End Sub
65535
SetOrg
tX as Integer,tY as Integer
0
1
0
1
8
134217984
Sub SetOrg(tX as Integer,tY as Integer)
gScreenX = tX
gScreenY = tY
End Sub
65535
OutPlot
tGraph as Graphics,tObjL as Integer,tObjT as Integer,tObjR as Integer,tObjB as Integer
0
1
73
1
74
134217984
Sub OutPlot(tGraph as Graphics,tObjL as Integer,tObjT as Integer,tObjR as Integer,tObjB as Integer)
tGraph.DrawLine tObjL + gScreenX,tObjT + gScreenY,tObjR + gScreenX,tObjB + gScreenY
End Sub
65535
OutPrint
tGraph as Graphics,tX as Integer,tY as Integer,tString as String
0
1
14
1
0
134217984
Sub OutPrint(tGraph as Graphics,tX as Integer,tY as Integer,tString as String)
tGraph.DrawString tString,tX + gScreenX,tY + gScreenY
End Sub
65535
ZeroSup
tNumerical as Double,tKeta as Integer
String
0
3
54
3
59
134217984
Function ZeroSup(tNumerical as Double,tKeta as Integer) As String
Dim tString as String
tString = "0000000000000000000000" + Str(tNumerical)//Right(Str(tNumerical),Len(Str(tNumerical)) - 1)
tString = RightB(tString,tKeta)
Return tString
End Function
65535
CenterPrint
tGraph as Graphics,tString as String,tLeft as Integer,tRight as Integer,tTop as Integer,tBtm as Integer
0
11
44
11
47
134217984
Sub CenterPrint(tGraph as Graphics,tString as String,tLeft as Integer,tRight as Integer,tTop as Integer,tBtm as Integer)
Dim tPrintSizeLR as Integer
Dim tPrintSizeTB as Integer
Dim tStringSize as Integer
Dim tGomi as String
tStringSize = tGraph.StringWidth(tString)
tPrintSizeLR = ((tRight - tLeft) - tStringSize) / 2
tGomi = LeftB(tString,2)
tStringSize = tGraph.StringWidth(tGomi)
tPrintSizeTB = ((tBtm - tTop) - tStringSize) / 2
OutPrint tGraph,tLeft + tPrintSizeLR,tBtm - tPrintSizeTB,tString
End Sub
65535
EvenlyPrint
tGraph as Graphics,tX as Integer,tY as Integer,tString as String
0
6
35
6
35
134217984
Sub EvenlyPrint(tGraph as Graphics,tX as Integer,tY as Integer,tString as String)
Dim tFontSize as Integer
Dim tXzahyou as Integer
tFontSize = tGraph.StringWidth(tString)
tXzahyou = tX - tFontSize
OutPrint tGraph,tXzahyou,tY,tString
End Sub
65535
SpaceSup
tNumerical as String,tKeta as Integer
String
0
3
60
3
61
134217984
Function SpaceSup(tNumerical as String,tKeta as Integer) As String
Dim tString as String
tString = " " + tNumerical
tString = RightB(tString,tKeta)
Return tString
End Function
65535
GetMiddleDate
tDate as String
String
0
9
4
9
4
134217984
Function GetMiddleDate(tDate as String) As String
2F2F8AD6909490E096BE8146348C8590BC97EF82F095D482B7814088F882AB909482AA363088C88FE382C882E731392A2A814288C889BA82C882E732302A2A82F095D482B781
2F2F88F882AB909481408146328C8582CC95B68E9A97F181699094926C82CC82DD816A
2F2F95D482E8926C81408146348C8582CC95B68E9A97F18169348C8590BC97EF816A
Dim tString as String
If Val(LeftB(tDate,2)) >= 60 Then
tString = "19" + tDate
Else
tString = "20" + tDate
End If
Return tString
End Function
65535
RemoveString
tString as String,tRemoveString as String
String
0
7
0
7
0
134217984
Function RemoveString(tString as String,tRemoveString as String) As String
2F2F8AD6909490E096BE814695B68E9A97F182A982E781418E7792E882B382EA82BD95B68E9A88C88A4F82F08EE682E88F6F82B7
2F2F88F882AB90948140814695B68E9A97F1814195B68E9A97F182A982E78EE682E88F9C82AB82BD82A295B68E9A
2F2F95D482E8926C814081468EE682E88F9C82A982EA82BD95B68E9A97F1
2F2F8DEC90AC93FA81408146313939382F2D2D2F2D2D282D2D2D29
2F2F8F4390B393FA81408146313939382F30392F32332857656429814082B182CC835283818393836782F0957482AF82BD
2F2F94F58D6C814081408146
Dim i as Integer
Dim tReturnString as String
tReturnString = ""
For i = 1 to LenB(tString)
tReturnString = tReturnString + NthField(tString,tRemoveString,i)
Next
Return tReturnString
End Function
65535
ChangeSequence
tString as String
Double
0
10
0
10
0
134217984
Function ChangeSequence(tString as String) As Double
2F2F8AD6909490E096BE8146834A8393837D82CC8DAC82B682C182BD90948E9A95B68E9A97F182F0446F75626C6582C982B582C495D482B7
2F2F88F882AB909481408146537472696E67
2F2F95D482E8926C81408146446F75626C65
2F2F8DEC90AC93FA81408146313939382F30372F30332846726929
2F2F94F58D6C814081408146
Dim tReturnDouble as Double
tReturnDouble = Val(RemoveString(tString,","))
Return tReturnDouble
End Function
65535
ChangeDateInteger
tDateString as String
Integer
0
3
0
3
0
134217984
Function ChangeDateInteger(tDateString as String) As Integer
2F2F93FA957482AF82F08EF382AF8EE682C182C4388C8590AE909482C982B582C495D482B7
2F2F93FA957482AF82CC95B68E9A97F182CD222E2282C582E0222F2282C582E089BD82C582E08E67977089C2
Dim tString as String
Dim tInteger as Integer
tString = LeftB(tDateString,4) + ZeroSup(Val(NthField(tDateString,"/",2)),2) + ZeroSup(Val(NthField(tDateString,"/",3)),2)
tInteger = Val(tString)
Return tInteger
End Function
65535
ChangeDateYMD
tDateString as String
String
0
1
0
6
0
134217984
Function ChangeDateYMD(tDateString as String) As String
2F2F8AD6909490E096BE814653686F72744461746582F08EF382AF82C459592F4D4D2F444482C595D482B7
2F2F88F882AB90948140814653686F727444617465
2F2F95D482E8926C8140814659592F4D4D2F4444
2F2F8DEC90AC93FA81408146313939382F30372F30332846726929
2F2F94F58D6C814081408146
Dim tString as String
tString = ZeroSup(Val(NthField(tDateString,".",1)),2) + "/" + ZeroSup(Val(NthField(tDateString,".",2)),2) + "/" + ZeroSup(Val(NthField(tDateString,".",3)),2)
Return tString
End Function
65535
ChangeDateString
tDateString as String
String
0
6
115
6
115
134217984
Function ChangeDateString(tDateString as String) As String
2F2F93FA957482AF82F08EF382AF8EE682C182C4388C8595B68E9A97F182C982B582C495D482B7
2F2F93FA957482AF82CC95B68E9A97F182CD222E2282C582E0222F2282C582E089BD82C582E08E67977089C2
2F2F82B582A982B5814190E693AA944E909482CD328C8582CC82B182C6
Dim tString as String
tString = LeftB(tDateString,4) + ZeroSup(Val(NthField(tDateString,"/",2)),2) + ZeroSup(Val(NthField(tDateString,"/",3)),2)
Return tString
End Function
65535
IncMonth
tDate as String
String
0
20
4
20
4
134217984
Function IncMonth(tDate as String) As String
2F2F8AD6909490E096BE814659592F4D4D2F444482F08EF382AF82C488EA8C8E906982DF82E9
2F2F88F882AB90948140814659592F4D4D2F4444
2F2F95D482E8926C8140814659592F4D4D2F4444
2F2F8DEC90AC93FA81408146313939382F30372F3237284D6F6E29
2F2F8F4390B393FA81408146313939382F30382F3130284D6F6E29
2F2F81408140814081408140313939382F30392F3134284D6F6E298140348C8590BC97EF82C882E7348C8582C58141328C8590BC97EF82C882E7328C8582C595D482B782E682A482C995CF8D58
2F2F94F58D6C814081408146
Dim tYear as Integer
Dim tMonth as Integer
Dim tDay as Integer
tYear = Val(NthField(tDate,"/",1))
tMonth = Val(NthField(tDate,"/",2))
tDay = Val(NthField(tDate,"/",3))
If tMonth = 12 Then
tYear = tYear + 1
tMonth = 1
Else
tMonth = tMonth + 1
End If
If tMonth = 2 Then
If (Val(GetMiddleDate(Str(tYear))) Mod 4) = 0 Then
If tDay >= 30 Then
tDay = 29
End If
Else
If tDay >= 29 Then
tDay = 28
End If
End If
ElseIf tMonth = 4 Or tMonth = 6 Or tMonth = 9 Or tMonth = 11 Then
If tDay >= 31 Then
tDay = 30
End If
End If
Return Str(tYear) + "/" + ZeroSup(tMonth,2) + "/" + ZeroSup(tDay,2)
End Function
65535
DecMonth
tDate as String
String
0
40
17
40
17
134217984
Function DecMonth(tDate as String) As String
2F2F8AD6909490E096BE814659592F4D4D2F444482F08EF382AF82C488EA8C8E96DF82B7
2F2F88F882AB90948140814659592F4D4D2F4444
2F2F95D482E8926C8140814659592F4D4D2F4444
2F2F8DEC90AC93FA81408146313939382F30372F3237284D6F6E29
2F2F8F4390B393FA81408146313939382F30382F3130284D6F6E29
2F2F81408140814081408140313939382F30392F3134284D6F6E298140348C8590BC97EF82C882E7348C8582C58141328C8590BC97EF82C882E7328C8582C595D482B782E682A482C995CF8D58
2F2F94F58D6C814081408146
Dim tYear as Integer
Dim tMonth as Integer
Dim tDay as Integer
tYear = Val(NthField(tDate,"/",1))
tMonth = Val(NthField(tDate,"/",2))
tDay = Val(NthField(tDate,"/",3))
If tMonth= 1 Then
tYear = tYear - 1
tMonth = 12
Else
tMonth = tMonth - 1
End If
If tMonth = 2 Then
If (Val(GetMiddleDate(Str(tYear))) Mod 4) = 0 Then
If tDay >= 30 Then
tDay = 29
End If
Else
If tDay >= 29 Then
tDay = 28
End If
End If
ElseIf tMonth = 4 Or tMonth = 6 Or tMonth = 9 Or tMonth = 11 Then
If tDay >= 31 Then
tDay = 30
End If
End If
Return Str(tYear) + "/" + ZeroSup(tMonth,2) + "/" + ZeroSup(tDay,2)
End Function
65535
MakeFolder
tFolderName as String
FolderItem
0
11
18
11
18
134217984
Function MakeFolder(tFolderName as String) As FolderItem
2F2F8AD6909490E096BE81468EF382AF82BD96BC914F82CC83748348838B835F82F08DEC90AC82B782E9
2F2F88F882AB90948140814683748348838B835F96BC81698370835882A282E882C5816A
2F2F95D482E8926C81408146466F6C6465724974656D
2F2F8DEC90AC93FA81408146313939382F30372F31372846726929
2F2F94F58D6C814081408146
Dim tFolderItem as FolderItem
tFolderItem = GetFolderItem(tFolderName)
tFolderItem.CreateAsFolder
Return tFolderItem
End Function
65535
SpaceSupB
tNumerical as String,tKeta as Integer
String
0
6
13
6
13
134217984
Function SpaceSupB(tNumerical as String,tKeta as Integer) As String
Dim tString as String
tString = tNumerical + " "
tString = LeftB(tString,tKeta)
Return tString
End Function
65535
DeBugLog
tPath as String,tWriteString as String
0
42
45
42
45
134217984
Sub DeBugLog(tPath as String,tWriteString as String)
2F2F8AD6909490E096BE81468366836F8362834F838D834F82CC8F6F97CD
2F2F88F882AB9094814081468F6F97CD82B782E9837483408343838B82CC8370835881418F9182AB8F6F82B793E09765
2F2F95D482E8926C8140814682C882B5
2F2F8DEC90AC93FA81408146313939392F30382F30352854687529
2F2F8F4390B393FA81408146313939392F30382F3139285468752981408F6F97CD837483408343838B82F08365834C8358836782A982E7836F83438369838A82D695CF8D5881458DC591E58D73909482CC92C789C1
2F2F81408140814081408146323030302F31302F3138285765642981408DEC90AC82B782E9837483408343838B835E8343837682F0746578742F706C61696E8175746578742F706C61696E817682C995CF8D58
2F2F94F58D6C8140814081468F6F97CD82C582AB82E995B68E9A909482CD96F13830836F8343836781418DC591E53939398D7382DC82C5
Dim tFolderItem as FolderItem
Dim tBinaryStream as BinaryStream
Dim tLine as Integer
Dim tString as String
Dim tDate as Date
tDate = New Date
tFolderItem = GetFolderItem(tPath)
If tFolderItem <> Nil Then
tBinaryStream = tFolderItem.OpenAsBinaryFile(True)
End If
If tBinaryStream = Nil Then
tBinaryStream = tFolderItem.CreateBinaryFile("text/plain")
End If
tLine = 0
If tBinaryStream <> Nil Then
tLine = Val(tBinaryStream.Read(150))
If tLine = 99999 Then
tLine = 0
End If
tLine = tLine + 1
#If TargetMacOS Then
tBinaryStream.Position = 0
tBinaryStream.Write SpaceSupB(ZeroSup(tLine,5),150) + CHR(13)
tString = ZeroSup(tLine,5) + " " + tDate.ShortDate + " " + tDate.LongTime + " " + tWriteString
tBinaryStream.Position = tLine * 151
tBinaryStream.Write SpaceSupB(tString,150) + CHR(13)
#Else
tBinaryStream.Position = 0
tBinaryStream.Write SpaceSupB(ZeroSup(tLine,5),150) + CHR(13) + CHR(10)
tString = ZeroSup(tLine,5) + " " + tDate.ShortDate + " " + tDate.LongTime + " " + tWriteString
tBinaryStream.Position = tLine * 152
tBinaryStream.Write SpaceSupB(tString,150) + CHR(13) + CHR(10)
#Endif
tBinaryStream.Close
tFolderItem.MacType = "TEXT"
tFolderItem.MacCreator = "ttxt"
End If
End Sub
65535
DecimalPointDouble
tDouble as Double
Double
0
12
21
12
21
134217984
Function DecimalPointDouble(tDouble as Double) As Double
Dim tDecimalDouble as Double
Select Case gDecimal
Case 1
tDecimalDouble = FloorBug(tDouble)
Case 2
tDecimalDouble = Ceil(tDouble)
Case 3
tDecimalDouble =Round(tDouble)
End Select
Return tDecimalDouble
End Function
65535
CheakPopupCout
tPopupName as PopupMenu
Boolean
0
18
15
18
15
134217984
Function CheakPopupCout(tPopupName as PopupMenu) As Boolean
2F2F8AD6909490E096BE8146837C8362837683418362837682C995B68E9A97F182CD82A082E982A9814882C882A282A98148
2F2F88F882AB909481408146506F7075704D656E75
2F2F95D482E8926C8140814682A082E981848184547275658140814082C882A28184818446616C7365
2F2F8DEC90AC93FA81408146313939382F30392F30342846726929
2F2F94F58D6C814081408146
Dim tString as String
Dim tBoolean as Boolean
tPopupName.ListIndex = 0
tString = tPopupName.Text
If tString <> "" Then
tBoolean = True
Else
tBoolean = False
End If
Return tBoolean
End Function
65535
OpenPrint
tGraph as Graphics,tScreenX as Integer,tScreenY as Integer,tHeadFoot as String,tMaxPage as String,tSegmentNumber as String,tSegmentString as String,tSegmentPosition as String,tFontName as String,tFontSize as String
0
65
7
65
15
134217984
Sub OpenPrint(tGraph as Graphics,tScreenX as Integer,tScreenY as Integer,tHeadFoot as String,tMaxPage as String,tSegmentNumber as String,tSegmentString as String,tSegmentPosition as String,tFontName as String,tFontSize as String)
2F2F8AD6909490E096BE8146955C88F38DFC82C9954B977682C88366815B835E82F089C18D4882B782E9
2F2F88F882AB909481408146477261706869637381417453637265656E5881417453637265656E58814183778362835E819583748362835E88CA9275814188EA95C596DA819582BB82EA88C88D7E8379815B835782CC8DC591E58D739094
2F2F81408140814081408140835A838B82CC8354834383598141955C91E88141955C8EA688CA927581418374834883938367814183748348839383678354834383598169955C91E882F08F9C82AB915382C48BE690D882E895B68E9A82CD81775E816994BC8A70816A817882F08E67977082CC8E96816A
2F2F95D482E8926C8140814682C882B5
2F2F8DEC90AC93FA81408146313939382F30392F30362853756E29
2F2F8F4390B393FA81408146313939382F31302F303128546875298140837483488393836782C683548343835982F08E7792E882C582AB82E9976C82C995CF8D58
2F2F8F4390B393FA81408146313939382F31312F313928546875298140955C82CC8945925B8DC0955782F06C5072696E744461746128382982C992C789C1
2F2F8F4390B393FA81408146313939392F30352F3137284D6F6E298140837483488393836783548343835982CC94F792B290AE816991BD95AA4F53382E3682CC93E0959495CF8D5882CC88D7816A
2F2F94F58D6C8140814081464F70656E507269746E82C64C6973745072696E7482CC33835A8362836782C58E67977082B782E9
Dim i as Integer
Dim tTextHeight as Integer
Dim tTextWidth as Integer
Dim tCellSegment as String
Dim tCellLength as Integer
Dim tCellHeight as Integer
Dim tCellWidth as Integer
Dim tListLeft as Integer
Dim tListTop as Integer
Dim tPrintString(50) as String
Dim tCenterPrintInteger as Integer
Dim i as Integer
Dim j as Integer
dim tstring as string
gScreenX = tScreenX
gScreenY = tScreenY
2F2F88EA95C596DA82CC83778362835F8D82
lHeadFootLine(0) = Val(NthField(tHeadFoot,";",1))
2F2F88EA95C596DA82CC83748362835E8D82
lHeadFootLine(1) = Val(NthField(tHeadFoot,";",2))
2F2F88C88D7E95C582CC83778362835E8D82
lHeadFootLine(2) = Val(NthField(tHeadFoot,";",3))
2F2F88C88D7E95C582CC83748362835E8D82
lHeadFootLine(3) = Val(NthField(tHeadFoot,";",4))
2F2F88EA95C582DF82CC8DC591E58D739094
lMaxPage(0) = Val(NthField(tMaxPage,";",1))
2F2F88C88D7E95C582CC8DC591E58D739094
lMaxPage(1) = Val(NthField(tMaxPage,";",2))
2F2F8379815B835794D48D86
lPageLineNumber(0) = 1
2F2F82BB82CC8379815B835793E082C588F38DFC82B582BD8D739094
lPageLineNumber(1) = 1
2F2F8A65835A838B82CC83548343835982C6814182DD82BE82B5
i = 0
While NthField(tSegmentNumber,";",i + 1) <> ""
lSegmentSizeBuffer(i) = Val(NthField(tSegmentNumber,";",i + 1))
lSegmentString(i) = NthField(tSegmentString,Chr(9),i + 1)
lSegmentPosition(i) = NthField(tSegmentPosition,";",i + 1)
i = i + 1
Wend
lSegmentNumber = i
lPrintFont(0) = tFontName
lPrintFont(1) = tFontSize
tGraph.TextFont = lPrintFont(0)
tGraph.TextSize = Val(lPrintFont(1))
2F2F959D82CC9094926C82CD915382C48373834E835A838B
2F2F88F38DFC89C2945C89A1959D
lPrintData(0) = tGraph.Width
2F2F88F38DFC89C2945C8F63959D
lPrintData(1) = tGraph.Height
2F2F8CBB8DDD82CC837483488393836782C582CC88EA95B68E9A816994BC8A70816A82CC89A1959D
6C5072696E7444617461283229203D20207447726170682E537472696E675769647468282281A12229202F2032202B2031
2F2F8CBB8DDD82CC837483488393836782C582CC88EA95B68E9A816994BC8A70816A82CC8F63959D
6C5072696E7444617461283329203D20207447726170682E537472696E675769647468282281A12229
2F2F8CBB8DDD82CC837483488393836782C582CC88EA8D7388F38DFC82CC8F63959D
lPrintData(4) = tGraph.TextHeight
lCellSegment = ""
tCellWidth = 0
For i = 0 to 49
If lSegmentSizeBuffer(i) > 0 Then
2F2F955C8DEC90AC8E9E82CC8BE690D882E882F08DEC82E9
lCellSegment = lCellSegment + Str((lSegmentSizeBuffer(i) + 2) * lPrintData(2)) + ";"
2F2F955C82CC8F6382F093BE82E9
tCellWidth = tCellWidth + (lSegmentSizeBuffer(i) + 2) * lPrintData(2)
2F2F8DC482D18A65835A838B82CC83548343835982F093BE82E9
lSegmentSize(i + 1) = tCellWidth
Else
2F2F955C8DEC90AC8E9E82CC8BE690D882E882CC8DC58CE382CC88EA95B68E9A81698DC58CE382C981688147816882AA957482A282C482B582DC82A482BD82DF82C9816A82F082CD82B882B7
lCellSegment = LeftB(lCellSegment,LenB(lCellSegment) - 1)
Exit
End If
Next
2F2F955C82CC8F63959D82F093BE82E9
lPrintData(5) = lPrintData(4) * lMaxPage(0)
2F2F8A6590DD92E88FE382A982E78C768E5A82B582BD955C82CC8DB6925B8DC09557
lPrintData(6) = (lPrintData(0) - tCellWidth) / 2
2F2F835A838B83548343835982C9955C82CC8DB6925B82CC8DC0955782F091AB82B58D9E82DE
lSegmentSize(0) = tListLeft
For j = 1 to 49
lSegmentSize(j) = lSegmentSize(j) + tListLeft
Next
2F2F8A6590DD92E88FE382A982E78C768E5A82B582BD955C82CC8FE395948DC09557
lPrintData(7) = lHeadFootLine(0) + 20
2F2F8A6582AD90DD92E88FE382A982E78C768E5A82B582BD955C82CC8945925B8DC09557
lPrintData(8) = lPrintData(0) - (lPrintData(0) - lSegmentSize(lSegmentNumber)) / 2
End Sub
65535
AddPrint
tGraph as Graphics,tString as String
Integer
0
15
7
15
15
134217984
Function AddPrint(tGraph as Graphics,tString as String) As Integer
2F2F8AD6909490E096BE814688EA8D7388F38DFC82B782E9
2F2F88F882AB90948140814647726170686963732C88F38DFC95B68E9A97F1
2F2F95D482E8926C8140814688F38DFC82B582BD8D73
2F2F8DEC90AC93FA81408146313939382F30392F30362853756E29
2F2F8F4390B393FA81408146313939382F31302F303128546875298140837483488393836782C683548343835982F08E7792E882C582AB82E9976C82C995CF8D58
2F2F81408140814081408146313939382F31302F30362854756529814088F38DFC88CA927582CC95738BEF8D8782F089F08FC1
2F2F81408140814081408146313939382F31302F3238285765642920209286905388F38DFC82CC95738BEF8D878F4390B3
2F2F94F58D6C8140814081464F70656E507269746E82C64C6973745072696E7482CC33835A8362836782C58E67977082B782E9
Dim tPrintString(50) as String
Dim tPrintInteger as Integer
Dim i as Integer
tGraph.TextFont = lPrintFont(0)
tGraph.TextSize = Val(lPrintFont(1))
2F2F88F38DFC8379815B835782AA825095C596DA82A982BB82EA88C88A4F82A982C588F38DFC8D73909482F095CF8D58
If lPageLineNumber(0) = 1 Then
tPrintInteger = 0
Else
tPrintInteger = 1
End If
2F2F8379815B835782CC8DC591E58D73909482C982C882C182BD82E7955C82F08F9182AB8379815B835782F0919782E9
If lMaxPage(tPrintInteger) = lPageLineNumber(1) Then
2F2F955C82CC956089E6
ListPrint tGraph,lPageLineNumber(1)
2F2F8379815B835782F0919782E9
tGraph.NextPage
2F2F8379815B8357834A83458393835E82F088EA82C2919D82E282B5814188F38DFC8D73834A83458393835E82F0838A835A83628367
lPageLineNumber(0) = lPageLineNumber(0) + 1
lPageLineNumber(1) = 1
2F2F955C82CC8F63959D82F093BE82E9
lPrintData(5) = lPrintData(4) * lMaxPage(1)
2F2F8A6590DD92E88FE382A982E78C768E5A82B582BD955C82CC8FE395948DC09557
lPrintData(7) = lHeadFootLine(2) + 20
End If
For i = 0 to 49
2F2F88F38DFC93E0976582F0947A97F182D68A69945B
tPrintString(i) = NthField(tString,Chr(9),i + 1)
Next
2F2F8379815B835782CC834A83458393835E82F088EA82C2919D82E282B7
lPageLineNumber(1) = lPageLineNumber(1) + 1
2F2F88F882AB8EF382AF82BD95B68E9A97F182F088F38DFC
For i = 0 to 50
Select Case lSegmentPosition(i)
Case "L"
OutPrint tGraph , lPrintData(6) + lSegmentSize(i) + 4 , lPrintData(7) + (lPrintData(4) * lPageLineNumber(1)) - 2,tPrintString(i)
Case "M"
CenterPrint tGraph , tPrintString(i) , lPrintData(6) + lSegmentSize(i) , lPrintData(6) + lSegmentSize(i + 1) , lPrintData(7) + lPrintData(4) * (lPageLineNumber(1) - 1), lPrintData(7) + lPrintData(4) * lPageLineNumber(1) - 2
Case "R"
EvenlyPrint tGraph,lPrintData(6) + lSegmentSize(i + 1) - 1,lPrintData(7) + (lPrintData(4) * lPageLineNumber(1)) - 2,tPrintString(i)
Case ""
Exit
End Select
Next
2F2F8DA189F18F9182A282BD95C582F095D482B7
Return lPageLineNumber(0)
End Function
65535
ListPrint
tGraph as Graphics,tLastPrint as Integer
0
10
7
10
15
134217984
Sub ListPrint(tGraph as Graphics,tLastPrint as Integer)
2F2F8AD6909490E096BE8146955C82C6955C91E882F08DEC90AC82B782E9
2F2F88F882AB90948140814647726170686963732C88F38DFC82B582BD8D7390948169955C82CC94CD88CD82C98E679770816A
2F2F95D482E8926C8140814682C882B5
2F2F8DEC90AC93FA81408146313939382F30392F30362853756E29
2F2F8F4390B393FA81408146313939382F31302F3031285468752981408DC0955788CA927582F02D3182B582BD
2F2F81408140814081408146313939382F31302F30362854756529814088F38DFC88CA927582CC95738BEF8D8782F089F08FC1
2F2F94F58D6C8140814081464F70656E507269746E82C64C6973745072696E7482CC33835A8362836782C58E67977082B782E9
Dim i as Integer
tGraph.TextFont = lPrintFont(0)
tGraph.TextSize = Val(lPrintFont(1))
2F2F955C82F08DEC82E9
gsPrintV tGraph , lPrintData(6) , lPrintData(7) , lPrintData(0) - lPrintData(6) - 1, lPrintData(7) + lPrintData(4) , lCellSegment
gsPrintV tGraph , lPrintData(6) , lPrintData(7) + lPrintData(4) , lPrintData(0) - lPrintData(6) - 1 ,lPrintData(7) + tLastPrint * lPrintData(4) , lCellSegment
2F2F955C91E882F08DEC82E9
For i = 0 to 50
If lSegmentString(i) <> "" Then
CenterPrint tGraph , lSegmentString(i) , lPrintData(6) + lSegmentSize(i) , lPrintData(6) + lSegmentSize(i + 1) + 4, lPrintData(7) , lPrintData(7) + lPrintData(4) - 2
Else
Exit
End If
Next
2F2F88F38DFC8D739094834A83458393835E82F088EA82C2919D82E282B7
lPageLineNumber(1) = lPageLineNumber(1) + 1
End Sub
65535
SpaceMid
tString as String,tMozi as Integer
String
0
10
19
10
19
134217984
Function SpaceMid(tString as String,tMozi as Integer) As String
Dim tSpace as Integer
Dim tSpaceString as String
tSpace = Floor((tMozi -Len(tString)) / 2)
tSpaceString = SpaceSupB(tString,tSpace + Len(tString))
tSpaceString = SpaceSup(tSpaceString,tMozi)
Return tSPaceString
End Function
65535
ClearPrintSet
0
1
0
6
0
134217984
Sub ClearPrintSet()
2F2F8AD6909490E096BE814688F38DFC838B815B8360839382C58E67977082B582BD95CF909482F0834E838A834182B782E9
2F2F88F882AB90948140814682C882B5
2F2F95D482E8926C8140814682C882B5
2F2F8DEC90AC93FA81408146313939382F31312F31392854687529
2F2F94F58D6C8140814081464F70656E507269746E82C64C6973745072696E7482C64164645072696E7482CC34835A8362836782C58E67977082B782E9
Dim i as Integer
gScreenX = 0
gScreenY = 0
For i = 0 to 3
lHeadFootLine(i) = 0
Next
lMaxPage(0) = 0
lMaxPage(1) = 0
lPageLineNumber(0) = 0
lPageLineNumber(1) = 0
For i = 1 to 50
lSegmentSize(i) = 0
lSegmentString(i) = ""
lSegmentPosition(i) = ""
lSegmentSizeBuffer(i) = 0
Next
lSegmentNumber = 0
lCellSegment = ""
For i = 0 to 8
lPrintData(i) = 0
Next
lPrintFont(0) = ""
lPrintFont(1) = ""
End Sub
65535
GetDayOfWeek
tYear as Integer,tMonth as Integer,tDay as Integer
Integer
0
25
70
25
70
134217984
Function GetDayOfWeek(tYear as Integer,tMonth as Integer,tDay as Integer) As Integer
2F2F8AD6909490E096BE81468E7792E882B382EA82BD93FA957482AA89BD976A93FA82A98B8182DF82E9
2F2F88F882AB909481408146944E81418C8E814193FA
2F2F95D482E8926C814081463181468C8E976A93FA814032814689CE976A93FA81403381469085976A93FA814034814696D8976A93FA81403581468BE0976A93FA81403681469379976A93FA814030814693FA976A93FA
2F2F8DEC90AC93FA81408146313939382F31322F3231284D6F6E29
2F2F94F58D6C814081408146
Dim i as Integer
Dim tBufferDay as Integer
tBufferDay = tDay
//1920/1/1 Thursday
tBufferDay = 4 + 365 * (tYear - 1920) + tBufferDay - 1
For i = 1920 to tYear - 1
If (i Mod 4 = 0) And ((i Mod 100 <> 0) Or (i Mod 400 = 0)) Then
tBufferDay = tBufferDay + 1
End If
Next
For i = 1 to tMonth - 1
tBufferDay = tBufferDay + GetDaysOfMonth(tYear,i)
Next
Return tBufferDay Mod 7
2F2F203181468C8E976A93FA814032814689CE976A93FA81403381469085976A93FA814034814696D8976A93FA81403581468BE0976A93FA81403681469379976A93FA814030814693FA976A93FA
End Function
65535
GetDaysOfMonth
tYear as Integer,tMonth as Integer
Integer
0
12
17
12
17
134217984
Function GetDaysOfMonth(tYear as Integer,tMonth as Integer) As Integer
2F2F8AD6909490E096BE81468E7792E882B382EA82BD8C8E82AA89BD93FA82A082E982A98B8182DF82E9
2F2F88F882AB909481408146944E81418C8E
2F2F95D482E8926C8140814682BB82CC8C8E82CC93FA9094
2F2F8DEC90AC93FA81408146313939382F31322F3231284D6F6E29
2F2F94F58D6C814081408146
Dim tDays as Integer
dim tinteger as integer
2F2F82BB82CC8C8E82CC93FA909482F095D482B7
tDays = Val(NthField("31,28,31,30,31,30,31,31,30,31,30,31", ",",tMonth))
tinteger = tyear
tinteger = tmonth
2F2F895B944E82C882E782518C8E82C9825089C18E5A
If (tMonth = 2) And IsLeapYear(tYear) Then
tDays = tDays + 1
End If
Return tDays
End Function
65535
IsLeapYear
tYear as Integer
Boolean
0
9
19
9
19
134217984
Function IsLeapYear(tYear as Integer) As Boolean
2F2F8AD6909490E096BE81468E7792E882B382EA82BD944E82AA895B944E82A98B8182DF82E9
2F2F88F882AB909481408146944E
2F2F95D482E8926C81408146895B944E82C882E754727565
2F2F8DEC90AC93FA81408146313939382F31322F3231284D6F6E29
2F2F94F58D6C814081408146
2F2F834A838C83938367944E82AA895B944E82C882E754727565
Return (tYear Mod 4 = 0) And ((tYear Mod 100 <> 0) Or (tYear Mod 400 = 0))
//1920/1/1 Thursday
End Function
65535
ReturnDate
tStartDate as String,tEndDate as String
Integer
0
2
20
2
20
134217984
Function ReturnDate(tStartDate as String,tEndDate as String) As Integer
2F2F8AD6909490E096BE81468A4A8E6E93FA82A982E78F4997B993FA82DC82C589BD93FA82A082E982A98B8182DF82E9
2F2F88F882AB9094814081468A4A8E6E93FA81418F4997B993FA
2F2F95D482E8926C8140814682BB82CC8AD482CC93FA9094
2F2F8DEC90AC93FA81408146313939382F31322F3231284D6F6E29
2F2F94F58D6C814081408146
Dim tStartDay as Integer
Dim tEndDay as Integer
Dim tTemp as Integer
Dim i as integer
2F2F8A4A8E6E93FA82C68F4997B993FA82F093BE82E9
tStartDay = Val(NthField(tStartDate,"/",3))
tEndDay = Val(NthField(tEndDate,"/",3))
2F2F8F4997B993FA81402D81408A4A8E6E93FA81402B814031
tTemp = tEndDay - tStartDay + 1
2F2F8C8E82CC95AA82BE82AF838B815B837682B582C882AA82E793FA909482F089C182A682C482A282AD
tStartDay = Val(NthField(tStartDate,"/",1)) * 100 + Val(NthField(tStartDate,"/",2))
tEndDay = Val(NthField(tEndDate,"/",1)) * 100 + Val(NthField(tEndDate,"/",2))
For i = tStartDay to tEndDay - 1
tTemp = tTemp + GetDaysOfMonth(Val(LeftB(Str(i),4)),Val(RightB(Str(i),2)))
2F2F8C8E82AA81773132817882C982C882C182BD82E781773838817882F091AB82B582C4944E82F0906982DF82E9
If RightB(Str(i),2) = "12" Then
i = i + 88
End If
Next
Return tTemp
End Function
65535
IncDay
tDate as String
String
0
18
60
18
60
134217984
Function IncDay(tDate as String) As String
2F2F8AD6909490E096BE814659592F4D4D2F444482F08EF382AF82C488EA93FA906982DF82E9
2F2F88F882AB90948140814659592F4D4D2F4444
2F2F95D482E8926C8140814659592F4D4D2F4444
2F2F8DEC90AC93FA81408146313939382F31322F32322854756529
2F2F94F58D6C814081408146
Dim tYear as Integer
Dim tMonth as Integer
Dim tDay as Integer
Dim tReturnString as String
tYear = Val(NthField(tDate,"/",1))
tMonth = Val(NthField(tDate,"/",2))
tDay = Val(NthField(tDate,"/",3))
tDay = tDay + 1
If tDay > GetDaysOfMonth(tYear,tMonth) Then
tDay = 1
tReturnString = IncMonth(Str(tYear) + "/" + ZeroSup(tMonth,2) + "/" + Str(tDay))
Else
tReturnString = Str(tYear) + "/" + ZeroSup(tMonth,2) + "/" + Str(tDay)
End If
Return tReturnString
End Function
65535
DecDay
tDate as String
String
0
5
82
5
82
134217984
Function DecDay(tDate as String) As String
2F2F8AD6909490E096BE814659592F4D4D2F444482F08EF382AF82C488EA93FA96DF82B7
2F2F88F882AB90948140814659592F4D4D2F4444
2F2F95D482E8926C8140814659592F4D4D2F4444
2F2F8DEC90AC93FA81408146313939382F31322F32322854756529
2F2F8F4390B393FA81408146313939392F30312F303628576564298140825093FA82CC914F93FA81693D914F8C8E82CC969693FA816A82CC8C768E5A82AA8AD488E182C182C482A282E982CC82F08F4390B3
2F2F94F58D6C814081408146
Dim tYear as Integer
Dim tMonth as Integer
Dim tDay as Integer
Dim tReturnString as String
tYear = Val(NthField(tDate,"/",1))
tMonth = Val(NthField(tDate,"/",2))
tDay = Val(NthField(tDate,"/",3))
tDay = tDay - 1
If tDay = 0 Then
tMonth = tMonth - 1
If tMonth = 0 Then
tYear = tYear - 1
tMonth = 12
End If
tDay = GetDaysOfMonth(tYear,tMonth)
End If
tReturnString = Str(tYear) + "/" + ZeroSup(tMonth,2) + "/" + Str(tDay)
Return tReturnString
End Function
65535
FloorBug
tDouble as Double
Double
0
5
68
5
68
134217984
Function FloorBug(tDouble as Double) As Double
2F2F8AD6909490E096BE8146466C6F6F728E6797708E9E82CC96E291E882F089F08C8882B782E9
2F2F88F882AB909481408146446F75626C65
2F2F95D482E8926C81408146446F75626C65
2F2F8DEC90AC93FA81408146313939392F30312F31352846726929
2F2F94F58D6C814081408146446F75626C6582F08E67977082B582C482E090B893788FE396E291E882AA94AD90B682B782E982CC82C582B182CC8AD6909482C589F194F0
Dim tString as String
Dim tReturnDouble as Double
tString = format(tDouble - Ceil(tDouble - 1) + 0.000000001,"#.000000000000000000000")
If Val(tString) >= 1 Then
tReturnDouble = Ceil(tDouble)
Else
tReturnDouble = Floor(tDouble)
End If
Return tReturnDouble
End Function
CliantNoCheck
0
-1000
100001107
-1000
0
CliantNoCheck
24
0
65535
NoChecker
TheName As String
String
0
1
0
1
44
134217984
Function NoChecker(TheName As String) As String
2F2F8EF382AF8EE682C182BD89EF8ED096BC82C98352815B836894D48D8682AA82A082C182BD82E78EE682E9
Dim Abu As String
Dim Toby As Boolean
Dim Sport As Integer
ABU = Left(Trim(TheName),1)
Toby = False
For Sport = 0 To 9
If Abu = Str(Sport) Then
Toby = True
Exit
End IF
Next
ABU = Mid(Trim(TheName),2,1)
If Toby = True Then
Toby = False
For Sport = 0 To 9
If Abu = STR(Sport) Then
Toby = True
Exit
End IF
Next
End IF
ABU = Mid(Trim(TheName),3,1)
If Toby = True Then
Toby = False
For Sport = 0 To 9
If Abu = STR(Sport) Then
Toby = True
Exit
End IF
Next
End IF
If Toby = True Then
Return Trim(Mid(Trim(TheName),4,Len(Trim(TheName))-3))
Else
Return Trim(TheName)
End If
End Function
65535
NoChecker2
TheName As String
String
0
1
56
1
56
134217984
Function NoChecker2(TheName As String) As String
2F2F8EF382AF8EE682C182BD89EF8ED096BC82C98352815B836894D48D8682AA82A082C182BD82E78352815B836894D48D8682F095D482B7
Dim Abu As String
Dim Toby As Boolean
Dim Sport As Integer
ABU = Left(Trim(TheName),1)
Toby = False
For Sport = 0 To 9
If Abu = Str(Sport) Then
Toby = True
Exit
End IF
Next
ABU = Mid(Trim(TheName),2,1)
If Toby = True Then
Toby = False
For Sport = 0 To 9
If Abu = STR(Sport) Then
Toby = True
Exit
End IF
Next
End IF
ABU = Mid(Trim(TheName),3,1)
If Toby = True Then
Toby = False
For Sport = 0 To 9
If Abu = STR(Sport) Then
Toby = True
Exit
End IF
Next
End IF
If Toby = True Then
Return Left(Trim(TheName),3)
Else
Return ""
End If
End Function
FunctionA
0
-1000
100001107
-1000
0
FunctionA
24
0
65535
NoChecker
TheName As String
String
0
1
0
1
44
134217984
Function NoChecker(TheName As String) As String
2F2F8EF382AF8EE682C182BD89EF8ED096BC82C98352815B836894D48D8682AA82A082C182BD82E78EE682E9
Dim Abu As String
Dim Toby As Boolean
Dim Sport As Integer
ABU = Left(Trim(TheName),1)
Toby = False
For Sport = 0 To 9
If Abu = Str(Sport) Then
Toby = True
Exit
End IF
Next
ABU = Mid(Trim(TheName),2,1)
If Toby = True Then
Toby = False
For Sport = 0 To 9
If Abu = STR(Sport) Then
Toby = True
Exit
End IF
Next
End IF
ABU = Mid(Trim(TheName),3,1)
If Toby = True Then
Toby = False
For Sport = 0 To 9
If Abu = STR(Sport) Then
Toby = True
Exit
End IF
Next
End IF
If Toby = True Then
Return Trim(Mid(Trim(TheName),4,Len(Trim(TheName))-3))
Else
Return Trim(TheName)
End If
End Function
65535
NoChecker2
TheName As String
String
0
1
56
1
56
134217984
Function NoChecker2(TheName As String) As String
2F2F8EF382AF8EE682C182BD89EF8ED096BC82C98352815B836894D48D8682AA82A082C182BD82E78352815B836894D48D8682F095D482B7
Dim Abu As String
Dim Toby As Boolean
Dim Sport As Integer
ABU = Left(Trim(TheName),1)
Toby = False
For Sport = 0 To 9
If Abu = Str(Sport) Then
Toby = True
Exit
End IF
Next
ABU = Mid(Trim(TheName),2,1)
If Toby = True Then
Toby = False
For Sport = 0 To 9
If Abu = STR(Sport) Then
Toby = True
Exit
End IF
Next
End IF
ABU = Mid(Trim(TheName),3,1)
If Toby = True Then
Toby = False
For Sport = 0 To 9
If Abu = STR(Sport) Then
Toby = True
Exit
End IF
Next
End IF
If Toby = True Then
Return Left(Trim(TheName),3)
Else
Return ""
End If
End Function
65535
LenA
StringA As String,CutA As integer,CutB As Integer
Integer
0
6
20
6
20
134217984
Function LenA(StringA As String,CutA As integer,CutB As Integer) As Integer
2F2F8250836F8343836782C68251836F8343836782CC8DAC82B482C182BD95B68E9A97F182F08CF395E2825182C282A982E783738362835E838A90D882EA82E995FB82F095D482B78142
2F2F537472696E674120936E82B382EA82BD95B68E9A97F1
2F2F43757441202020202083738362835E838A90D882E88EE682E882BD82A2836F8343836790948CF395E28250
2F2F43757442202020202083738362835E838A90D882E88EE682E882BD82A2836F8343836790948CF395E232
2F2F838A835E815B8393814083738362835E838A90D882E88EE682EA82E9836F83438367909482F095D482B78142
Dim Ans,i As Integer
For i = 1 To Len(StringA)
Ans = Ans + LenB(Mid(StringA,i,1))
IF Ans = CutA or Ans = CutB Then
Return Ans
End If
Next
End Function
Transfer
21
-1000
100001107
-1000
0
Transfer
28
0
Ver203 as String
65535
SaveTransfer
tKamokuType as String,tDate as String,tClientName as String
0
14
35
14
35
134217984
Sub SaveTransfer(tKamokuType as String,tDate as String,tClientName as String)
2F2F8C4A897A8BE08A7A82CC8C768E5A
Dim tTransferString(5) as String
Dim tBufferDate as String
Dim i as Integer
tBufferDate = tDate
Do
For i = 0 to 4
2F2F8DA189F18C8E82CC8C4A897A81693D918D8D878C76816A82F093BE82E9
tTransferString(i) = ReadThisMonthData(tKamokuType,tBufferDate,tClientName,Str(i))
Next
2F2F93FA957482F088EA83968C8E82B782B782DF82E9
tBufferDate = IncMonth(tBufferDate)
2F2F8E9F8C8E82CC88EA8D7396DA82C990E682C993BE82BD8C4A897A82F08F9182AB8D9E82DD814197888C8E82CC8C8E82DC82C582AD82E895D482B7
SaveDifferentialTransfer(tKamokuType,tBufferDate,tClientName,tTransferString(1),tTransferString(2),tTransferString(3),tTransferString(4))
If SaveLastMonthTransfer(tKamokuType,tBufferDate,tClientName,tTransferString(0)) = False Then
Exit
End If
Loop
End Sub
65535
ReadThisMonthData
tKamokuType as String,tDate as String,tClientName as String,tKubun as String
String
1
23
0
27
6
134217984
Private Function ReadThisMonthData(tKamokuType as String,tDate as String,tClientName as String,tKubun as String) As String
Dim tFolderItem as FolderItem
Dim tBinaryInput as BinaryStream
Dim tReturnString as String
Dim tKari as Double
Dim tKasi as Double
Dim tKariBuffer as Double
Dim tKasiBuffer as Double
Dim tString as String
Dim tReadKubun as String
Dim tKubunType as String
Dim tlKari as Double
Dim tlKasi as Double
Dim Syamei As String
tKari = 0
tKasi = 0
tlKari = 0
tlKasi = 0
tFolderItem = MakeFolder(gBasicPath + tKamokuType)
tFolderItem = MakeFolder(tFolderItem.AbsolutePath + NthField(tDate,"/",1))
74466F6C6465724974656D203D204D616B65466F6C6465722874466F6C6465724974656D2E4162736F6C75746550617468202B205374722856616C284E74684669656C642874446174652C222F222C32292929202B20228C8E2229
If LenB(tClientName) > 30 Then
Syamei = LeftB(tClientName,LenA(tClientName,30,31))
Else
Syamei = LeftB(tClientName,30)
End IF
tFolderItem = GetFolderItem(tFolderItem.AbsolutePath + Syamei)
If tFolderItem <> Nil Then
tBinaryInput = tFolderItem.OpenAsBinaryFile(True)
If tBinaryInput <> Nil Then
tBinaryInput.LittleEndian = True
If tKubun = "0" Then
tBinaryInput.Position = tBinaryInput.Position + 69
tKari = ChangeSequence(tBinaryInput.ReadPString)
tKasi = ChangeSequence(tBinaryInput.ReadPString)
tBinaryInput.Position = tBinaryInput.Position + 45
Else
2F2F90568AD690948A658C4A897A82F093C782DD8D9E82DE
tString = ReadDifferentialTransger(tKamokuType,tDate,tClientName,tKubun)
tKari = Val(NthField(tString,CHR(9),1))
tKasi = Val(NthField(tString,CHR(9),2))
tBinaryInput.Position = tBinaryInput.Position + 144
End If
End If
Select Case tKubun
Case "0"
744B7562756E54797065203D2022915391CC22
Case "1"
744B7562756E54797065203D20228D488C7C8ED022
Case "2"
tKubunType = "System"
Case "3"
tKubunType = "Fishing"
Case "4"
744B7562756E54797065203D20228AC7979D22
End Select
44654275674C6F6728225472616E736665722E4C6F67222C4E74684669656C64286756657273696F6E537472696E672C2220222C3129202B2022814622202B204C656674422874436C69656E744E616D652C333029202B202282CC22202B204E74684669656C642874446174652C222F222C3129202B20222F22202B205374722856616C284E74684669656C642874446174652C222F222C32292929202B20744B7562756E54797065202B20228C4A897A208ED88BE08A7A3A22202B20466F726D617428744B6172692C222D2C232229202B20222091DD8BE08A7A3A22202B20466F726D617428744B6173692C222D2C23222929
While tBinaryInput.EOF = False
tBinaryInput.Position = tBinaryInput.Position + 69
tKariBuffer = ChangeSequence(tBinaryInput.ReadPString)
tKasiBuffer = ChangeSequence(tBinaryInput.ReadPString)
tReadKubun = tBinaryInput.ReadPString
If Len(tReadKubun) = 2 Then
2F2F8BE695AA82AA91B68DDD82B582C482A282E982C682AB
tBinaryInput.Position = tBinaryInput.Position + 42
Else
2F2F8BE695AA82AA91B68DDD82B582C482A282C882A282C682AB
tBinaryInput.Position = tBinaryInput.Position + 2
End If
If tKubun = "0" Or tKubun = Trim(tReadKubun) Then
tKari = tKari + tKariBuffer
tKasi = tKasi + tKasiBuffer
tlKari = tlKari + tKariBuffer
tlKasi = tlKasi + tKasiBuffer
End If
Wend
44654275674C6F6728225472616E736665722E4C6F67222C4E74684669656C64286756657273696F6E537472696E672C2220222C3129202B202281462220202B204C656674422874436C69656E744E616D652C333029202B202282CC22202B204E74684669656C642874446174652C222F222C3129202B20222F22202B205374722856616C284E74684669656C642874446174652C222F222C32292929202B20744B7562756E54797065202B2022948494838D878C76208ED88BE08A7A3A22202B20466F726D617428746C4B6172692C222D2C232229202B20222091DD8BE08A7A3A22202B20466F726D617428746C4B6173692C222D2C23222929
DeBugLog("Transfer.Log","~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
tBinaryInput.Close
tReturnString = Format(tKari,"#") + CHR(9) + Format(tKasi,"#")
Else
tReturnString = ""
End If
Return tReturnString
End Function
65535
SaveLastMonthTransfer
tKamokuType as String,tDate as String,tClientName as String,tTransferString as String
Boolean
1
10
0
10
0
134217984
Private Function SaveLastMonthTransfer(tKamokuType as String,tDate as String,tClientName as String,tTransferString as String) As Boolean
Dim tFolderItem as FolderItem
Dim tBinaryOutput as BinaryStream
Dim tKari as Double
Dim tKasi as Double
Dim tWriteString as String
Dim tThisDate as Date
Dim tString as String
Dim tInteger as Integer
Dim Syamei as string
tThisDate = New Date
tKari = Val(NthField(tTransferString,CHR(9),1))
tKasi = Val(NthField(tTransferString,CHR(9),2))
DeBugLog("Transfer.Log","~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
44654275674C6F6728225472616E736665722E4C6F67222C4E74684669656C64286756657273696F6E537472696E672C2220222C3129202B202281462220202B204C656674422874436C69656E744E616D652C333029202B202282CC22202B204E74684669656C642874446174652C222F222C3129202B20222F22202B205374722856616C284E74684669656C642874446174652C222F222C32292929202B2022915391CC8C4A897A208ED88BE08A7A3A22202B20466F726D617428744B6172692C222D2C232229202B20222091DD8BE08A7A3A22202B20466F726D617428744B6173692C222D2C23222929
DeBugLog("Transfer.Log","~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")
tFolderItem = MakeFolder(gBasicPath + tKamokuType)
tFolderItem = MakeFolder(tFolderItem.AbsolutePath + NthField(tDate,"/",1))
74466F6C6465724974656D203D204D616B65466F6C6465722874466F6C6465724974656D2E4162736F6C75746550617468202B205374722856616C284E74684669656C642874446174652C222F222C32292929202B20228C8E2229
If LenB(tClientName) > 30 Then
Syamei = LeftB(tClientName,LenA(tClientName,30,31))
Else
Syamei = LeftB(tClientName,30)
End IF
tFolderItem = GetFolderItem(tFolderItem.AbsolutePath + Syamei)
If Val(NthField(tDate,"/",2)) = 4 Then
745772697465537472696E67203D2022914F8AFA8C4A897A22
Else
745772697465537472696E67203D2022914F8C8E8C4A897A22
End If
If tFolderItem <> Nil Then
tBinaryOutput = tFolderItem.OpenAsBinaryFile(True)
If tBinaryOutput = Nil Then
tBinaryOutput = tFolderItem.CreateBinaryFile("TEXT")
End If
If tBinaryOutput <> Nil Then
tBinaryOutput.LittleEndian = True
tBinaryOutput.WritePString SpaceSup("",5)
tBinaryOutput.WritePString SpaceSup(tWriteString,36)
tBinaryOutput.WritePString SpaceSup("",10)
tBinaryOutput.WritePString SpaceSup("",14)
496620745772697465537472696E67203D2022914F8AFA8C4A897A22205468656E
tString = Format(tKari - tKasi,"-,#")
tBinaryOutput.WritePString SpaceSup(tString,14)
tBinaryOutput.WritePString SpaceSup("",14)
456C7365496620745772697465537472696E67203D2022914F8C8E8C4A897A22205468656E
tBinaryOutput.WritePString SpaceSup(Format(tKari,"-,#"),14)
tBinaryOutput.WritePString SpaceSup(Format(tKasi,"-,#"),14)
End If
tBinaryOutput.WritePString SpaceSup("",2)
tBinaryOutput.WritePString SpaceSup("",39)
tBinaryOutput.WritePString CHR(13)
tBinaryOutput.Close
tWriteString = Str(tThisDate.Year) + "/" + ZeroSup(tThisDate.Month,2) + "/" + ZeroSup(tThisDate.Day,2)
tWriteString = IncMonth(tWriteString)
tInteger = StrComp(Leftb(tDate,7),LeftB(tWriteString,7),1)
If tInteger = 0 Or tInteger = 1 Then
Return False
Else
Return True
End IF
End If
End If
Return False
End Function
65535
ReadDifferentialTransger
tKamokuType as String,tDate as String,tClientName as String,tKubun as String
String
0
17
0
21
6
134217984
Function ReadDifferentialTransger(tKamokuType as String,tDate as String,tClientName as String,tKubun as String) As String
Dim tFolderItem as FolderItem
Dim tBinaryInput as BinaryStream
Dim tReturnString as String
Dim tWriteString as String
Dim tKari as Double
Dim tKasi as Double
Dim i as Integer
Dim Syamei as string
tKari = 0
tKasi = 0
tFolderItem = MakeFolder(gBasicPath + tKamokuType)
tFolderItem = MakeFolder(tFolderItem.AbsolutePath + NthField(tDate,"/",1))
74466F6C6465724974656D203D204D616B65466F6C6465722874466F6C6465724974656D2E4162736F6C75746550617468202B205374722856616C284E74684669656C642874446174652C222F222C32292929202B20228C8E2229
74466F6C6465724974656D203D204D616B65466F6C6465722874466F6C6465724974656D2E4162736F6C75746550617468202B20228C4A897A8DB795AA2229
If LenB(tClientName) > 30 Then
Syamei = LeftB(tClientName,LenA(tClientName,30,31))
Else
Syamei = LeftB(tClientName,30)
End IF
tFolderItem = GetFolderItem(tFolderItem.AbsolutePath + Syamei)
If tFolderItem <> Nil Then
tBinaryInput = tFolderItem.OpenAsBinaryFile(True)
If tBinaryInput <> Nil Then
tBinaryInput.LittleEndian = True
For i = 2 to Val(tKubun)
tBinaryInput.Position = tBinaryInput.Position + 144
Next
tBinaryInput.Position = tBinaryInput.Position + 69
tKari = ChangeSequence(tBinaryInput.ReadPString)
tKasi = ChangeSequence(tBinaryInput.ReadPString)
tBinaryInput.Position = tBinaryInput.Position + 45
Else
tBinaryInput = tFolderItem.CreateBinaryFile("text")
If tBinaryInput <> Nil Then
tBinaryInput.LittleEndian = True
If Val(NthField(tDate,"/",2)) = 4 Then
745772697465537472696E67203D2022914F8AFA8C4A897A22
Else
745772697465537472696E67203D2022914F8C8E8C4A897A22
End If
For i = 1 to 4
tBinaryInput.WritePString SpaceSup("",5)
Select Case i
Case 1
7442696E617279496E7075742E577269746550537472696E6720537061636553757028745772697465537472696E67202B202281698D488C7C8ED0816A222C333629
Case 2
7442696E617279496E7075742E577269746550537472696E6720537061636553757028745772697465537472696E67202B2022816953797374656D816A222C333629
Case 3
7442696E617279496E7075742E577269746550537472696E6720537061636553757028745772697465537472696E67202B2022816946697368696E67816A222C333629
Case 4
7442696E617279496E7075742E577269746550537472696E6720537061636553757028745772697465537472696E67202B202281698AC7979D816A222C333629
End Select
tBinaryInput.WritePString SpaceSup("",10)
tBinaryInput.WritePString SpaceSup("",14)
tBinaryInput.WritePString SpaceSup("",14)
tBinaryInput.WritePString SpaceSup("",14)
tBinaryInput.WritePString SpaceSup("",2)
tBinaryInput.WritePString SpaceSup("",39)
tBinaryInput.WritePString CHR(13)
Next
End If
End If
End If
tBinaryInput.Close
tReturnString = Format(tKari,"#") + CHR(9) + Format(tKasi,"#")
Return tReturnString
End Function
65535
SaveDifferentialTransfer
tKamokuType as String,tDate as String,tClientName as String,tTransfer1 as String,tTransfer2 as String,tTransfer3 as String,tTransfer4 as String
0
24
0
28
6
134217984
Sub SaveDifferentialTransfer(tKamokuType as String,tDate as String,tClientName as String,tTransfer1 as String,tTransfer2 as String,tTransfer3 as String,tTransfer4 as String)
Dim tFolderItem as FolderItem
Dim tBinaryOutput as BinaryStream
Dim tKari(4) as Double
Dim tKasi(4) as Double
Dim tWriteString as String
Dim i as Integer
Dim tString as String
Dim tKubunType as String
Dim Syamei As String
tKari(1) = Val(NthField(tTransfer1,CHR(9),1))
tKasi(1) = Val(NthField(tTransfer1,CHR(9),2))
tKari(2) = Val(NthField(tTransfer2,CHR(9),1))
tKasi(2) = Val(NthField(tTransfer2,CHR(9),2))
tKari(3) = Val(NthField(tTransfer3,CHR(9),1))
tKasi(3) = Val(NthField(tTransfer3,CHR(9),2))
tKari(4) = Val(NthField(tTransfer4,CHR(9),1))
tKasi(4) = Val(NthField(tTransfer4,CHR(9),2))
tFolderItem = MakeFolder(gBasicPath + tKamokuType)
tFolderItem = MakeFolder(tFolderItem.AbsolutePath + NthField(tDate,"/",1))
74466F6C6465724974656D203D204D616B65466F6C6465722874466F6C6465724974656D2E4162736F6C75746550617468202B205374722856616C284E74684669656C642874446174652C222F222C32292929202B20228C8E2229
74466F6C6465724974656D203D204D616B65466F6C6465722874466F6C6465724974656D2E4162736F6C75746550617468202B20228C4A897A8DB795AA2229
If LenB(tClientName) > 30 Then
Syamei = LeftB(tClientName,LenA(tClientName,30,31))
Else
Syamei = LeftB(tClientName,30)
End IF
tFolderItem = GetFolderItem(tFolderItem.AbsolutePath + Syamei)
If Val(NthField(tDate,"/",2)) = 4 Then
745772697465537472696E67203D2022914F8AFA8C4A897A22
Else
745772697465537472696E67203D2022914F8C8E8C4A897A22
End If
If tFolderItem <> Nil Then
tBinaryOutput = tFolderItem.OpenAsBinaryFile(True)
If tBinaryOutput = Nil Then
tBinaryOutput = tFolderItem.CreateBinaryFile("TEXT")
End If
If tBinaryOutput <> Nil Then
tBinaryOutput.LittleEndian = True
For i = 1 to 4
Select Case i
Case 1
744B7562756E54797065203D20228D488C7C8ED022
Case 2
tKubunType = "System"
Case 3
tKubunType = "Fishing"
Case 4
744B7562756E54797065203D20228AC7979D22
End Select
44654275674C6F6728225472616E736665722E4C6F67222C4E74684669656C64286756657273696F6E537472696E672C2220222C3129202B202281462220202B204C656674422874436C69656E744E616D652C333029202B202282CC22202B204E74684669656C642874446174652C222F222C3129202B20222F22202B205374722856616C284E74684669656C642874446174652C222F222C32292929202B20744B7562756E54797065202B20228C4A897A208ED88BE08A7A3A22202B20466F726D617428744B6172692869292C222D2C232229202B20222091DD8BE08A7A3A22202B20466F726D617428744B6173692869292C222D2C23222929
tBinaryOutput.WritePString SpaceSup("",5)
Select Case i
Case 1
7442696E6172794F75747075742E577269746550537472696E6720537061636553757028745772697465537472696E67202B202281698D488C7C8ED0816A222C333629
Case 2
7442696E6172794F75747075742E577269746550537472696E6720537061636553757028745772697465537472696E67202B2022816953797374656D816A222C333629
Case 3
7442696E6172794F75747075742E577269746550537472696E6720537061636553757028745772697465537472696E67202B2022816946697368696E67816A222C333629
Case 4
7442696E6172794F75747075742E577269746550537472696E6720537061636553757028745772697465537472696E67202B202281698AC7979D816A222C333629
End Select
tBinaryOutput.WritePString SpaceSup("",10)
tBinaryOutput.WritePString SpaceSup("",14)
496620745772697465537472696E67203D2022914F8AFA8C4A897A22205468656E
tString = Format(tKari(i) - tKasi(i),"-,#")
tBinaryOutput.WritePString SpaceSup(tString,14)
tBinaryOutput.WritePString SpaceSup("",14)
456C7365496620745772697465537472696E67203D2022914F8C8E8C4A897A22205468656E
tBinaryOutput.WritePString SpaceSup(Format(tKari(i),"-,#"),14)
tBinaryOutput.WritePString SpaceSup(Format(tKasi(i),"-,#"),14)
End If
tBinaryOutput.WritePString SpaceSup("",2)
tBinaryOutput.WritePString SpaceSup("",39)
tBinaryOutput.WritePString CHR(13)
Next
tBinaryOutput.Close
End If
End If
End Sub
App
0
-1000
100001107
-1000
1
App
28
Application
0
1
2