Jjboy_87Medlem sedan aug. 20011 099 inlägg Trådstart#1 hur gör jag om det här koden?:
ser ut så här: 00-00-00 00:00:00
vill lägga in idag eller igår!!
så här idag 00:00:00 < > igår 00:00:00
Function DateFormat(dt)
DateFormat = Right(Year(dt), 2) & "-" & Right(0 & Month(dt), 2) & "-" & Right(0 & Day(dt), 2) & " " & Right(0 & Hour(dt), 2) & ":" & Right(0 & Minute(dt), 2)
End Function
tohaMedlem sedan dec. 1999707 inläggInte helt lätt att tolka din fråga men jag tror jag förstår vad du menar.
Tror du med enkelhet kan göra följande jämförelse:
Function DateFormat(ByVal dt)
If dt = Date() then
DateFormat = "Idag, " & FormatDateTime(dt, vbShortTime)
ElseIf dt = Date()-1 then
DateFormat = "Igår, " & FormatDateTime(dt, vbShortTime)
Else
DateFormat = FormatDateTime(dt, vbShortDate) & ", " & FormatDateTime(dt, vbShortTime)
End if
End Function
Jjboy_87Medlem sedan aug. 20011 099 inlägg hur blandar jag ihop det med den ena koden????