HP ALM

This category is a parent category in order to collect all sub categories and according articles.

The below method takes a technical field name of an HP ALM BUG field and a corresponding filter condition like a bug id and returns a bug uniquely identified by handed filter condition.

If you need to get the last day in a month in VBScript you can use the following function.

Source Code

1
2
3
4
5
6
7
8
9
10
11
12
13
' @Author - Alexander Bolte
' @ChnageDate - 2015-03-11
' @Description - Returns a Date representing the last day of a given month.
' @Param monthNumber - a 1 based Integer representing a month.
' @Returns a Date representing the last day of a given month.
Function getLastDayInMonth(monthNumber) ' As Date
	Dim lastDay ' As Date
 
	lastDay = Now()
	lastDay = DateSerial(year(lastDay), monthNumber + 1, 0)
 
	getLastDayInMonth = lastDay
End Function

 

References

I found this little trick on a Microsoft page, which also describes how to calculate several dates depending on the current date.

https://msdn.microsoft.com/en-us/library/aa227533(v=vs.60).aspx

 

Combines key value pairs from two collections of type Scripting.Dictionary.

Source Code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
' @Author - Alexander Bolte
' @ChangeDate - 2015-02-11
' @Description - Combines the fields of two handed collections where fields
' are understood as a key value pair.
' @Param aColl - a collection of type Scripting.Dictionary holding values for
' field labels, which are not available in collection 'bColl'.
' @Param bColl - a collection of type Scripting.Dictionary holding values for
' field labels, which are not available in collection 'aColl'.
' @Returns a collection of type Scripting.Dictionary holding all key value pairs
' from both handed collections for each unique key.
Function combineFields(aColl, bColl) ' As Scripting.Dictionary
	Dim bKey ' As String()
	Dim i ' As Integer
 
	bKey = bColl.keys
	For i = lBound(bKey) To uBound(bKey)
		If Not (aColl.Exists(bKey(i))) Then
			aColl.add bKey(i), bColl(bKey(i))
		End If
	Next
 
	Set combineFields = aColl
End Function

 

Referenced API 

http://www.w3schools.com/asp/asp_ref_dictionary.asp

Subcategories

This category is meant to hold all articles regarding HP ALM REST API.

This category will provide articles regarding usage of Visual Basic Script in the workflow module of HP ALM.