funzionix
gestione funzioni di vario tipo
Option Explicit Private Sub anno_Click() Label1.Caption = Year(Date) 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