cebdff63-8609-4119-9275-e0643b844bb2SQL11inStringLocaleCodeIntegerStartIntegerEndStringHostIDStringParamValuesStringParamLabelsStringParamValuesIntegerUTCOffsettrue8.5intrue1in1in1in38d51bd6-7a8d-4ea9-9ecf-7a5f1bc77b75image/gifR0lGODlhCwALAKIAAAAAAP///6empikpKf///wAAAAAAAAAAACH5BAEAAAQALAAAAAALAAsAAAMXSLrc/k2MueYQRFKLleYR6EjdU0LokwAAOw==daySystem.DateTimehourSystem.StringvmidSystem.Int32nameSystem.StringhostidSystem.Int32hostnameSystem.Stringavg_cpuSystem.Decimalavg_free_memSystem.Int64avg_vif_readSystem.Decimalavg_vif_writeSystem.Decimalavg_vbd_readSystem.Decimalavg_vbd_writeSystem.Decimalmin_dynamic_memorySystem.Int64KirkwoodDBConnectionStringtrue
Function GetLabel(Label as String) as String
Dim i As Integer
Dim Names() As String
Dim Values() As String
Dim Param As Parameter = Report.Parameters!ParamLabels
Dim ParamVal As Parameter = Report.Parameters!ParamValues
Names = Split(Param.Value.ToString(), "|")
Values = Split(ParamVal.Value.ToString(), "|")
For i = 0 to Ubound(Names)
If (Names(i) = Label) Then Return Values(i)
Next i
Return Label
End Function
Function GetDateFromOffset(Offset as Integer) As String
Dim currentDate As DateTime = Now
Return DateAdd( "D", Offset, Now).ToShortDateString()
End Function
Function GetPageNumberText() As String
Dim strPageFormatString As String = String.Empty
strPageFormatString = System.String.Format(GetLabel("LBL_FOOTER_PAGE"), Report.Globals!PageNumber, Report.Globals!TotalPages)
Return strPageFormatString
End Function
8.99751intextbox18.375in1true0.125in0.25in=Code.GetLabel("LBL_VM_PERF_HISTORY") + ": " + Parameters!HostName.Value