OpenOffice.info

Code: Alles auswählen

sub test 

dim datstun(0 to 5,0 to 1)

datstun(0,0) = 14 : datstun(0,1) = "s0.5"
datstun(1,0) = 11 : datstun(1,1) = "s1.5"
datstun(2,0) = 31 : datstun(2,1) = "s2.5"
datstun(3,0) = 15 : datstun(3,1) = "s3.5"
datstun(4,0) = 12 : datstun(4,1) = "s4.5"
datstun(5,0) = 30 : datstun(4,1) = "s5.5"

msgbox datstun(1,0)
end sub

Code: Alles auswählen

sub test 

dim datstun(0 to 5,0 to 1) 

datstun(0,0) = 14 : datstun(0,1) = "s0.5" 
datstun(1,0) = 11 : datstun(1,1) = "s1.5" 
datstun(2,0) = 31 : datstun(2,1) = "s2.5" 
datstun(3,0) = 15 : datstun(3,1) = "s3.5" 
datstun(4,0) = 12 : datstun(4,1) = "s4.5" 
datstun(5,0) = 30 : datstun(4,1) = "s5.5" 

For i = 0 To 5
	For j = i + 1 To 5
		If datstun(i,0) > datstun(j,0) Then 
			Temp = datstun(i,0) 
			Temp2 = datstun(i,1) 
			datstun(i,0) = datstun(j,0) 
			datstun(i,1) = datstun(j,1) 
			datstun(j,0) = Temp 
			datstun(j,1) = Temp2 
		End If 
	Next j
Next i

For i = 0 To 5
x = x & datstun(i,0) & " | " & datstun(i,1) & CHR(13)
Next i

msgbox x
end sub