Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Tempo - frmTempo.frm

frmTempo.frm

Caricato da: Antometal
Scarica il programma completo

  1. Private Sub cmdAziona_Click()
  2.     If IsDate(txtDataPrima) = False Then txtDataPrima.Text = ""
  3.     If IsDate(txtDataSeconda) = False Then txtDataSeconda.Text = ""
  4.     If txtDataPrima.Text = "" Or txtDataSeconda.Text = "" Then
  5.         MsgBox "Errore, inserisci una data nel formato:  gg/mm/aaaa", vbExclamation, Me.Caption
  6.         Exit Sub
  7.     End If
  8. lblDifferenza.Caption = "Tra le 2 date intercorrono " & DateDiff("d", txtDataPrima, txtDataSeconda) & " giorni!!!"
  9. lblGiornoPrimo.Caption = StrConv(WeekdayName(Weekday(txtDataPrima, vbMonday), , vbMonday), vbProperCase)
  10. lblGiornoSecondo.Caption = StrConv(WeekdayName(Weekday(txtDataSeconda, vbMonday), , vbMonday), vbProperCase)
  11. End Sub
  12.  
  13. Private Sub Form_Load()
  14. txtDataPrima.Text = Date
  15. txtDataSeconda.Text = Date
  16. End Sub
  17.  
  18. Private Sub lblOggi_Click()
  19. txtDataPrima.Text = Date
  20. txtDataSeconda.Text = Date
  21. End Sub