用vba实现识别选中单元格里的时间数据是否为同一天，如果为同一天则返回1，否则返回0

可以使用如下代码来实现：

Function IsSameDay() As Integer
    ' 获取选中单元格的值
    Dim selectedValue As Variant
    selectedValue = Selection.Value
    
    ' 判断是否为时间格式，如果不是则直接返回 0
    If Not IsDate(selectedValue) Then
        IsSameDay = 0
        Exit Function
    End If
    
    ' 获取当前日期和选中单元格的日期
    Dim currentDate As Date
    currentDate = Date
    Dim selectedDate As Date
    selectedDate = DateValue(selectedValue)
    
    ' 比较日期，如果相同则返回 1，否则返回 0
    If currentDate = selectedDate Then
        IsSameDay = 1
    Else
        IsSameDay = 0
    End If
End Function

这个函数首先获取当前选中单元格的值，并判断是否为时间格式。如果不是，则直接返回 0。如果是时间格式，则获取当前日期和选中单元格的日期，比较它们是否相同。如果相同，则返回 1，否则返回 0。你可以在 Excel 中调用这个函数来判断选中单元格里的时间数据是否为同一天。