seharusnya seperti ini :
Function Coba(a As String) As Double
If a = "muda" Then
usia = 1
Else
If a = "paruhbaya" Then
usia = 2
Else
usia = 3
End If
End If
Coba = usia ''<-- kurang return valuenya
End Function
klo function itu ada nilai kembalian(return value)
klo prosedure(sub) itu ga ada nilai kembaliannya.
Dan sekedar sara, apabila nilai yg dikembalikan berupa bilanga bulat
lebih baik gunakan tipe data yg sesuai misal integer, karena double
digunakan untuk pecahan(walau ttp bisa dipakai)
Salam,
Agus pradikta
--- In [email protected], "vbyono" <[EMAIL PROTECTED]> wrote:
>
> Function Coba(a As String) As Double
> If a = "muda" Then
> usia = 1
>
> Else
> If a = "paruhbaya" Then
> usia = 2
> Else
> usia = 3
> End If
> End If
> End Function
>
> Private Sub Command1_Click()
> Dim x,x1,a As String
> x = " SELECT * FROM NN WHERE NN.No=1"
> Set x1 = cn.Execute(x)
> a = x1(0)
> Label1.Caption = Coba(a) ' Kenapa ya Fungsi ini tidak bisa
> melakukan penyeleksian ya...
> end sub
>
> ' Kenapa ya Fungsi ini tidak bisa melakukan penyeleksian ya...
> Mohon bantuannya,Maklum ya saya Kan pemula...
>
