Merge and aggregate datasets: Difference between revisions

=={{header|FreeBASIC}}==

{{trans|C++}}

<syntaxhighlight lang="vbnet">Type Patient

ID As String

LastName As String

End Type

Type Visit

PatientID As String

Fecha As String

Score As Single

HasScore As Integer

End Type

Dim As Patient patients(5)

Dim As Visit visits(8)

patients(1).ID = "1001": patients(1).LastName = "Hopper"

patients(2).ID = "4004": patients(2).LastName = "Wirth"

patients(3).ID = "3003": patients(3).LastName = "Kemeny"

patients(4).ID = "2002": patients(4).LastName = "Gosling"

patients(5).ID = "5005": patients(5).LastName = "Kurtz"

visits(1).PatientID = "2002": visits(1).Fecha = "2020-09-10": visits(1).Score = 6.8: visits(1).HasScore = -1

visits(2).PatientID = "1001": visits(2).Fecha = "2020-09-17": visits(2).Score = 5.5: visits(2).HasScore = -1

visits(3).PatientID = "4004": visits(3).Fecha = "2020-09-24": visits(3).Score = 8.4: visits(3).HasScore = -1

visits(4).PatientID = "2002": visits(4).Fecha = "2020-10-08": visits(4).HasScore = 0

visits(5).PatientID = "1001": visits(5).Fecha = "" : visits(5).Score = 6.6: visits(5).HasScore = -1

visits(6).PatientID = "3003": visits(6).Fecha = "2020-11-12": visits(6).HasScore = 0

visits(7).PatientID = "4004": visits(7).Fecha = "2020-11-05": visits(7).Score = 7.0: visits(7).HasScore = -1

visits(8).PatientID = "1001": visits(8).Fecha = "2020-11-19": visits(8).Score = 5.3: visits(8).HasScore = -1

Print "| PATIENT_ID | LASTNAME | LAST_VISIT | SCORE_SUM | SCORE_AVG |"

For i As Integer = 1 To 5

Dim As String lastVisit = ""

Dim As Single sum = 0

Dim As Integer numScores = 0

For j As Integer = 1 To 8

If patients(i).ID = visits(j).PatientID Then

If visits(j).HasScore Then

sum += visits(j).Score

numScores += 1

End If

If visits(j).Fecha > lastVisit Then

lastVisit = visits(j).Fecha

End If

End If

Next j

Print "| "; patients(i).ID; " | ";

Print Using "\ \ | \ \ | "; patients(i).LastName; lastVisit;

If numScores > 0 Then

Print Using "#######.# | #######.#"; sum; (sum / Csng(numScores));

Else

Print " | ";

End If

Print " |"

Next i

Sleep</syntaxhighlight>

{{out}}

<pre>| PATIENT_ID | LASTNAME | LAST_VISIT | SCORE_SUM | SCORE_AVG |

| 1001 | Hopper | 2020-11-19 | 17.4 | 5.8 |

| 4004 | Wirth | 2020-11-05 | 15.4 | 7.7 |

| 3003 | Kemeny | 2020-11-12 | | |

| 2002 | Gosling | 2020-10-08 | 6.8 | 6.8 |

| 5005 | Kurtz | | | |</pre>