litvinovg/epublishing
1
0
Fork 0
Code Issues Pull requests Projects Releases 33 Packages Wiki Activity Actions

Use Long for ASC result

Browse source
This commit is contained in:
Georgy Litvinov 2020-06-23 16:07:11 +02:00
parent 1ec3e9ad34
commit e607dd98de
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ePublishing/Archive.xba
View file

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark14
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark15
End Sub
@ -417,7 +417,7 @@ End Sub
Function isLowerCase(character As String) As Boolean
Dim charNum As Integer
Dim charNum As Long
If (character = &quot;&quot;) Then
charNum = ASC(&quot;&quot;+0)
Else