Modules/GUIs.ZooFlow/Search/frmFlowSearch2.vb
2022-04-08 16:22:42 +02:00

11 lines
493 B
VB.net

Public Class frmFlowSearch2
Private Sub HyperlinkLabelControl5_Click(sender As Object, e As EventArgs) Handles HyperlinkLabelControl5.Click
DateEditFrom.EditValue = Date.Today
DateEditTo.EditValue = Date.Today
End Sub
Private Sub HyperlinkLabelControl4_Click(sender As Object, e As EventArgs) Handles HyperlinkLabelControl4.Click
DateEditFrom.EditValue = Date.Today.AddDays(-1)
DateEditTo.EditValue = Date.Today.AddDays(-1)
End Sub
End Class