Re: [indoprog-vb] delivery report SMS pake at+command di vb???

[David Joyo Mulyono]

> Select case Len(txtPesan.Text)
> Case is 0<Len(txtPesan.Text)<160 : banyaksms="1"

select case len(txtpesan.text)
   case is <=160
       banyaksms=1

   case is <=320
       banyaksms=2

end select

cara lain yang lebih singkat :

If Int(A / 160) = (A / 160) Then
    banyaksms=(len(txtpesan.text)/160)
Else
    banyaksms=(len(txtpesan.text)/160) + 1
End If


Best Regards,
David J M

Advess - ISV