Hej
Jag har i mitt program gort så att efter ett vist datum skall programmet inte fungera längre men om någon med engelskt datum format kör så blir det fel kan man komma runt detta på något sätt.


If date =>"2004-01-20" then
Msgbox"Detta program har slutat att fungera kontakta dataansvarig"
unload me
exit sub
end if

frmKoll.show

Mvh
Tobbe

If date =>"2004-01-20" OR date =>"20-01-2004 then
Msgbox"Detta program har slutat att fungera kontakta dataansvarig"
unload me
exit sub
end if

frmKoll.show

Själva formatet får du kolla upp men det är ju bara att bygga ut villkorssatsen.

Hej
>men om någon med engelskt datum format kör så blir det fel kan man komma runt detta på något sätt.

Om han/hon kör med engelskt datum ,förstår dom nog inte detta meddelande ;-)
>Msgbox"Detta program har slutat att fungera kontakta dataansvarig"

Båda formaten är giltiga ,mitt förslag är att du alltid omvandlar till Long
ex Dim checkDate As Long
checkDate = CDate(strDate)
If Clng(CDate(Date)) >= checkDate Then

Obs (=>) fungerar inte, skall vara (>=)

/Sven

Okey Sven men jag är nog lite trög, var skall jag lägga datum villkoret i strDate
strDate ="2004-01-20" eller !!!!

Jag har faktiskt träffat på personer som använder Engelska och Danska datum eller teckenuppsättningar här i Sverige och de är där mitt program inte funkar som det ska.

Mvh
Tobbe

Använd en datumkonstant istället. Så slipper du problem. Har även lagt in en koll som kontrollerar om datum ställts tillbaks:
<code>
Public Property Let LastDate(Value As Date)
SaveSetting App.Title, "Settings", "CheckNumber", CLng(Date)
End Property

Public Property Get LastDate() As Date
LastDate = CDate(GetSetting(App.Title, "Settings", "CheckNumber", CLng(Date)))
End Property

Private Sub Form_Load()
If Date >= #1/20/2004# Then
MsgBox "Detta program har slutat att fungera!" & vbCrLf & "Kontakta dataansvarig", vbInformation
Unload Me
Exit Sub
ElseIf Date < LastDate Then
MsgBox "Datum har blivit omställt!" & vbCrLf & "Kontakta dataansvarig", vbInformation
Unload Me
Exit Sub
Else
LastDate = Date
frmKoll.Show
End If
End Sub
</code>

Tackar så mycket skall testa detta i morgon

/Tobbe

Hej igen
Okey Sven men jag är nog lite trög, var skall jag lägga datum villkoret i strDate
strDate ="2004-01-20" eller !!!!

Ja strDate i mitt exempel är det datum som du anser skall vara stopdatum
precis som du skriver ovan.Oberoende av vad användaren har
för format så kommer det att bli samma tal Long.
Du kan göra denna test så förstår du

Option Explicit
Private Sub Command1_Click()
Label1.Caption = CLng(CDate("2003-01-25"))
Label2.Caption = CLng(CDate("25-01-2003"))
Label3.Caption = CLng(CDate("01-25-2003"))
End Sub
/Sven