MENAGE only two click

[luca90]

Private Function IsLeapYear(LngY As Long) As Boolean

    IsLeapYear = (LngY Mod 4 = 0 And LngY Mod 100 <> 0) Or (LngY Mod 100 = 0 And LngY Mod 400 = 0)

End Function
Private Sub MSFlexGrid2_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)

    Dim CL As Integer, RW As Integer, iMonth As Integer, P As String, A As String

    iMonth = cboMonth.ListIndex + 1
    Y = cboYear.Text

    'Me.TARRIVO.Text = ""
    'Me.TPARTE.Text = ""

    With MSFlexGrid2

        RW = .MouseRow
        CL = .MouseCol

        If RW >= 1 And .TextMatrix(RW, CL) > "" Then

            If Me.TARRIVO.Text > "" And Me.TPARTE.Text > "" Then
                Me.TGG.Text = DateDiff("D", Me.TPARTE.Text, Me.TARRIVO.Text)
                Me.TPARTE.Text = ""
                Me.TARRIVO.Text = ""
            End If
            
            Else
            
            Me.LDATA1.Caption = ""

        End If

    End With

End Sub

i need to manage only two mouse click.
for example first click insert date in ARRIVO tbox , second click insert date in PARTENZA tbox then if the two tbox are fiklled go to difference of day...

If Me.TARRIVO.Text > "" And Me.TPARTE.Text > "" Then
'number of days
Me.TGG.Text = DateDiff("D", Me.TPARTE.Text, Me.TARRIVO.Text)
Me.TPARTE.Text = ""
Me.TARRIVO.Text = ""
End If

This is is a simple reserved room project

[SamOscarBrown]

As usual, I have no idea what you want! Mouse_Click on WHAT? The Grid?

zip and attach your project as well...maybe I can figure out what you want....!

[luca90]

Code test

[SamOscarBrown]

What is the upper left control? Looks like a calendar. You call it picCal.

[luca90]

What is the upper left control? Looks like a calendar. You call it picCal.

is a picturebox. Is my first experminent...

[SamOscarBrown]

That is so convoluted. Instead of a picturebox (picCal) and the MSFlexGrid (lower left), why not use a datePicker Control?

[OptionBase1]

MENAGE only two click

Shouldn't it be three?

[luca90]

Shouldn't it be three?

Yes!

[SamOscarBrown]

This is not elegant, but does show how, with 2 clicks on a datepicker, you can populate two textboxes with dates and calculate the difference for the third textbox

Option Explicit
Dim numClicks As Integer


Private Sub DTPicker1_Change()
        numClicks = numClicks + 1
        If numClicks = 1 Then
                Text1.Text = DTPicker1.Value
                If Text2.Text <> "" Then
                        Text3.Text = DateDiff("d", CDate(Text1.Text), CDate(Text2.Text))
                End If
         Else
                Text2.Text = DTPicker1.Value
                Text3.Text = DateDiff("d", CDate(Text1.Text), CDate(Text2.Text))
                numClicks = 0
        End If
End Sub