funzioney

gestione funzioni varie

Option Explicit

Private Sub CommandButton1_Click()
Dim a As Integer
Dim s As String
Dim s1 As String
a = -25
s = CStr(a)
s1 = Str(a)
Lista.AddItem (CStr(-25))
Lista.AddItem (Str(-26))
Lista.AddItem (Asc("A"))
Lista.AddItem (AscB("A"))
Lista.AddItem (AscW("A"))
Lista.AddItem (CBool("A" = "B"))
Lista.AddItem (CBool("A" < "B"))
Lista.AddItem (CBool("A" > "B"))
Lista.AddItem (CByte(10 = 10))
Lista.AddItem (CByte(10 < 20))
Lista.AddItem (CByte(10 > 20))
Lista.AddItem (CCur("A" = "B"))
Lista.AddItem (CCur("A" < "B"))
Lista.AddItem (CCur("A" > "B"))
Lista.AddItem (CDate(Date))
Lista.AddItem (CDbl(100.34587654345))
Lista.AddItem (CDec(125.3456789))
Lista.AddItem (Chr(65))
Lista.AddItem (Chr$(65))
Lista.AddItem (ChrB(66))
Lista.AddItem (ChrB$(66))
Lista.AddItem (ChrW(67))
Lista.AddItem (ChrW$(68))
Lista.AddItem (CInt(123.456))
Lista.AddItem (CLng(123456789))
Lista.AddItem (CVar(12))
Lista.AddItem (CDate(Date))
Lista.AddItem (DateValue(Date))
Lista.AddItem (IsNumeric(10))
Lista.AddItem (IsDate(Date))
Lista.AddItem (IsNumeric("A"))
Lista.AddItem (IsDate(12))
End Sub

Private Sub UserForm_Click()

End Sub

ritorna