V definícii pohľadu v stĺpci Užívateľská funkcia je Nasob;2
Funkcia prenásobí pred zobrazením hodnoty parametrom (dvojkou).
Private Function Nasob(ArcBId As Long, Id As Long,NumItems As Long, UserParams As Variant) As Variant |
Dim D2ObjData As VBApi_TUniVal |
Dim ret As Long |
Dim value As Variant |
' Inicializacia |
If Id = -1 And NumItems = -1 Then |
On Error GoTo InvalidParams |
value = UserParams(1) * 2 ' otestujem ci je parameter cislo |
On Error GoTo 0 |
Nasob = RetOk |
Exit Function |
End If |
If Id = NoDataTime Then |
Nasob = "Nemám dáta" |
Exit Function |
End If |
If Id = NoDataValid Then |
Nasob = "Neplatné dáta" |
Exit Function |
End If |
ret = GetActualD2DataObj(Id, D2ObjData) ' poziadam o aktualne data |
If ret = RetOk Then |
On Error GoTo InvalidEnum |
value = D2GetSpecificProperty(D2ObjData, D2ValueValue) ' ziskam hodnotu |
Nasob = value * UserParams(1) ' vynasobim 2 |
On Error GoTo 0 |
Else |
Nasob = "Nemám dáta" |
End If |
Exit Function |
InvalidEnum: |
Nasob = "Nepodaril sa výpočet" |
Exit Function |
InvalidParams: |
Nasob = "Pozadujem parameter cislo" |
Exit Function |
End Function |