prt.bas

汽修厂管理软件

Attribute VB_Name = "Module2"
Option Explicit
Global RowsofPage As Integer


Function CalRowsofPage(Height As Long, rHeight As Long) As Integer
 CalRowsofPage = Height / rHeight

End Function

Function CalPages(RowsofPage As Integer, TotalRows As Integer) As Integer
If TotalRows Mod RowsofPage = 0 Then
   CalPages = TotalRows \ RowsofPage
  Else
   CalPages = TotalRows \ RowsofPage + 1
End If
End Function