pfunctio1

esci con testvbax.htm

pfunctio1.ppt

Option Explicit

Private Sub anno_Click()
label1.Caption = Year(Date)
End Sub

Private Sub CommandButton1_Click()
cifra = ""
label1.Caption = ""
parola = ""
End Sub

Private Sub datagiorno_Click()
label1.Caption = Date
End Sub

Private Sub esponenziale_Click()
label1.Caption = Exp(cifra)
End Sub

Private Sub finaleparola_Click()
label1.Caption = Right$(parola, 3)
End Sub

Private Sub giorno_Click()
label1.Caption = Day(Date)
End Sub

Private Sub inizioparola_Click()
label1.Caption = Left$(parola, 3)
End Sub

Private Sub logaritmodec_Click()
label1.Caption = Log(cifra) / Log(10)
End Sub

Private Sub logaritmonat_Click()
label1.Caption = Log(cifra)
End Sub

Private Sub OptionButton1_Click()

End Sub

Private Sub lunghezza_Click()
label1.Caption = Len(parola)
End Sub

Private Sub mese_Click()
label1.Caption = Month(Date)
End Sub

Private Sub minuti_Click()
label1.Caption = Minute(Time)
End Sub

Private Sub Ora_Click()
label1.Caption = Hour(Time)
End Sub

Private Sub partemedia_Click()
label1.Caption = Mid$(parola, 2, 3)
End Sub

Private Sub quadrato_Click()
label1.Caption = cifra ^ 2
End Sub

Private Sub radice_Click()
label1.Caption = Sqr(cifra)
End Sub

Private Sub assoluto_Click()
label1.Caption = Abs(cifra)
End Sub

Private Sub secondi_Click()
label1.Caption = Second(Time)
End Sub

Private Sub segno_Click()
label1.Caption = Sgn(cifra)
End Sub

Private Sub seno_Click()
label1.Caption = Sin(cifra * 3.14 / 180)
End Sub

Private Sub spazids_Click()
label1.Caption = Trim(parola)
End Sub

Private Sub spaziodestra_Click()
label1.Caption = RTrim(parola)
End Sub

Private Sub spazisinistra_Click()
label1.Caption = LTrim(parola)
End Sub

Private Sub tempo_Click()
label1.Caption = Time()
End Sub

Private Sub unione_Click()
label1.Caption = parola & " e " & parola
End Sub

Private Sub UserForm_Click()

End Sub