Heres the code for now.
Public Class Form1
Dim wokeup As DateTime
Dim awake As DateTime
Dim CurrentTime As DateTime
Dim am As String
Dim pm As String
Dim lop As Integer
Dim today As Date
Dim monthday As Date
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim lop As Integer
ComboBox1.Items.Add("AM")
ComboBox1.Items.Add("PM")
ComboBox1.SelectedItem = "AM"
' ComboBox2.SelectedItem =
today = (DateAndTime.Today)
'monthday =
For lop = 1 To 31
ComboBox2.Items.Add(lop)
Next lop
End Sub
Private Sub NumericUpDown1_ValueChanged(sender As System.Object, e As System.EventArgs)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
wokeup = TextBox1.Text + ComboBox1.SelectedItem
CurrentTime = DateTime.Now
'Label2.Text = (CurrentTime.Subtract(wokeup)).ToString
Label2.Text = today
End Sub
End Class

New Topic/Question
Reply




MultiQuote









|